Código Delphi [-] procedure TfrClientes.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); begin Case nH of 1bImage1.Picture.Assign(Image); 2bImage2.Picture.Assign(Image); 3bImage3.Picture.Assign(Image); 4bImage4.Picture.Assign(Image); 5bImage5.Picture.Assign(Image); end; Cancel := TRUE; {Only want one image} end; procedure TfrClientes.SpeedButton1Click(Sender: TObject); begin nh:=1; {It is always recommended to load library dynamically, never forcing} {final user to have twain installed} if Twain.LoadLibrary then begin {Load source manager} Twain.SourceManagerLoaded := TRUE; {Allow user to select source} SelectedSource := Twain.SelectSource; if SelectedSource <> -1 then begin {Load source, select transference method and enable (display interface)} Twain.Source[SelectedSource].Loaded := TRUE; Twain.Source[SelectedSource].TransferMode := ttmMemory; Twain.Source[SelectedSource].Enabled := TRUE; end {if SelectedSource <> -1} end else showmessage('Twain is not installed.'); end; .....
procedure TfrClientes.TwainTwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); begin Case nH of 1bImage1.Picture.Assign(Image); 2bImage2.Picture.Assign(Image); 3bImage3.Picture.Assign(Image); 4bImage4.Picture.Assign(Image); 5bImage5.Picture.Assign(Image); end; Cancel := TRUE; {Only want one image} end; procedure TfrClientes.SpeedButton1Click(Sender: TObject); begin nh:=1; {It is always recommended to load library dynamically, never forcing} {final user to have twain installed} if Twain.LoadLibrary then begin {Load source manager} Twain.SourceManagerLoaded := TRUE; {Allow user to select source} SelectedSource := Twain.SelectSource; if SelectedSource <> -1 then begin {Load source, select transference method and enable (display interface)} Twain.Source[SelectedSource].Loaded := TRUE; Twain.Source[SelectedSource].TransferMode := ttmMemory; Twain.Source[SelectedSource].Enabled := TRUE; end {if SelectedSource <> -1} end else showmessage('Twain is not installed.'); end; .....