有誰用過TDelphiTwain? |
缺席
|
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
TDelphiTwain:詳見:http://delphitwain.sourceforge.net/
一個非常好的Twain開發VCL
小弟在使用中,怎麽也搞不定同時掃描多個圖片,程序詳見SimpleExample procedure TForm1.TwainTwainAcquire(Sender: TObject; const Index: Integer;
Image: TBitmap; var Cancel: Boolean);
begin
ImageHolder.Picture.Assign(Image);
Cancel := TRUE; {Only want one image}
//我改成False一點反映也沒有!
end; 請知道的大哥指教!謝謝! ==================================
搞得懂就答人,搞不懂就問人,沒有人懂還可以問神!
------
-=-=-=-=-=-=-=-=-=-=-= Eveything as your wish. |
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
想了一個土辦法解決:
設了一個全局變量lScan:boolean初始值爲False;
procedure Tfrmphotoscan.bbtnScanClick(Sender: TObject); var selectedsource:integer; begin if delphitwain.LoadLibrary then begin delphitwain.SourceManagerLoaded:=true; selectedsource:=delphitwain.SelectSource; if selectedsource <> -1 then begin delphitwain.Source[selectedsource].Loaded:=true; delphitwain.Source[selectedsource].TransferMode:=ttmMemory; delphitwain.Source[selectedsource].Enabled:=true; lScan:=True; while lscan do begin if delphitwain.Source[selectedsource].Enabled <> true then delphitwain.Source[selectedsource].Enabled:=True; application.ProcessMessages; end; end end else showmessage('找不到掃描設備!'); end; procedure Tfrmphotoscan.DelphiTwainAcquireCancel(Sender: TObject; const Index: Integer); begin lScan:=False; end;基本可用,但肯定不是好辦法,因爲掃描窗口會在每次掃描完成後自動關閉然後又被打開,會出現窗口閃動。如果各位用過delphi twain,有好的辦法請給在下一個指導,謝謝: TDelphiTwain下載地址:http://delphitwain.sourceforge.net 它是完全開源免費的。 ================================== 搞得懂就答人,搞不懂就問人,沒有人懂還可以問神! 發表人 - woodtiger 於 2005/08/24 07:57:06
------
-=-=-=-=-=-=-=-=-=-=-= Eveything as your wish. |
WoodTiger
初階會員 發表:35 回覆:90 積分:25 註冊:2003-08-01 發送簡訊給我 |
引言: 想了一個土辦法解決: 設了一個全局變量lScan:boolean初始值爲False;================================== 搞得懂就答人,搞不懂就問人,沒有人懂還可以問神!procedure Tfrmphotoscan.bbtnScanClick(Sender: TObject); var selectedsource:integer; begin if delphitwain.LoadLibrary then begin delphitwain.SourceManagerLoaded:=true; selectedsource:=delphitwain.SelectSource; if selectedsource <> -1 then begin delphitwain.Source[selectedsource].Loaded:=true; delphitwain.Source[selectedsource].TransferMode:=ttmMemory; delphitwain.Source[selectedsource].Enabled:=true; lScan:=True; while lscan do begin if delphitwain.Source[selectedsource].Enabled <> true then delphitwain.Source[selectedsource].Enabled:=True; application.ProcessMessages; end; end end else showmessage('找不到掃描設備!'); end; procedure Tfrmphotoscan.DelphiTwainAcquireCancel(Sender: TObject; const Index: Integer); begin lScan:=False; end;基本可用,但肯定不是好辦法,因爲掃描窗口會在每次掃描完成後自動關閉然後又被打開,會出現窗口閃動。如果各位用過delphi twain,有好的辦法請給在下一個指導,謝謝: TDelphiTwain下載地址:http://delphitwain.sourceforge.net 它是完全開源免費的。 ================================== 搞得懂就答人,搞不懂就問人,沒有人懂還可以問神!
------
-=-=-=-=-=-=-=-=-=-=-= Eveything as your wish. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |