I'm using Fujitsu fi-7160 scanner and it has a professional software. When I use the below code, its call the Fujitsu software. However, in some times, it calls windows scanner software and it causes my software to hangs !! I don't want that
Is there any way to make sure it calls the Fujitsu manufactural software?
Please help
procedure TScannerF.Button4Click(Sender: TObject);
var
AcquireApis : TIEAcquireApis;
begin
if ImageEnMView1.MIO.AcquireParams.SelectedSource.API = ieaNone then
begin
AcquireApis := [];
if chkTwain.checked then
Include( AcquireApis, ieaTwain );
if chkWIA.checked then
Include( AcquireApis, ieaWIA );
if chkDCIM.checked then
Include( AcquireApis, ieaDCIM );
if AcquireApis = [] then
messagedlg( 'You havent select scanner', mtInformation, [mbOK], 0 )
else
begin
ImageEnMView1.MIO.SelectAcquireSource( AcquireApis );
UpdateControlStatus( True );
end;
end;
if (cmbColors.Enabled ) and
( not ImageEnMView1.MIO.AcquireParams.IsPixelTypeSupported( TIEAcquirePixelType( cmbColors.ItemIndex ))) then
begin
MessageDlg( 'The selected color is not supported by your device.', mtError, [mbOK], 0 );
exit;
end;
fAborted := False;
btnAbort.Enabled := True;
btnAbort.Visible := True;
btnAcquire.Enabled := False;
try
Screen.Cursor := crHourglass;
// ImageEnMView1.Clear;
SaveProperties;
ImageEnMView1.MIO.Acquire;
finally
btnAbort.Visible := False;
btnAcquire.Enabled := True;
Screen.Cursor := crDefault;
end;
ProgressBar1.Position := 0;
end;
Search
