VFP 愛用者社區

pj1688888 · 註冊時間: 2005-12-12 文章: 5 第 1 樓

請問先進,vfp 如何將一個傳真圖檔分割成兩個圖檔 (.tiff)。
用傳真接收進來的文件(.tiff) 一頁的長度過長，想把它從中切成兩個文件，是否有方法辦到？,謝謝

pj1688888 · 註冊時間: 2005-12-12 文章: 5 第 2 樓

我找到方法了
利用http://vfp.sunyear.com.tw/viewtopic.php?t=355&start=0&postdays=0&postorder=asc&highlight=scanner

KODAK圖檔掃描控件+pimage2

將Olecontrol控件中的**//mouse up//
Lparameters Button, Shift, x, Y
if shift=1
This.clipboardcopy(1-This.scrollpositionx,1-This.scrollpositiony, This.imagewidth,This.scrollpositiony+Y)
GDIP = Createobject("gpInit")
img = Createobject("gpImage")
img.FromClipboard()
dcp=this.image
img.SaveAsbmp("aa1")
This.clipboardcopy(1-This.scrollpositionx,Y,This.imagewidth,This.imageheight-(This.scrollpositiony+Y))
img.FromClipboard()
img.SaveAsbmp("aa2")
endif

garfield · 發表於: 星期二五月 02, 2006 12:12 pm 文章主題:

精神可佳
謝謝分享.