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.

想了一個土辦法解決： 設了一個全局變量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.

引言: 想了一個土辦法解決： 設了一個全局變量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 它是完全開源免費的。 ================================== 搞得懂就答人，搞不懂就問人，沒有人懂還可以問神！

================================== 搞得懂就答人，搞不懂就問人，沒有人懂還可以問神！