Delphi Twain

[Guido R.]

Ich würde nicht bei jedem Aufruf die Komponente zerstören und neu aufbauen...
Ausserdem wo gibst Du an, was mit dem gescannten Bild passieren soll und dass nach einem Bild Schluss sein soll ?

Probier mal anstelle von

Delphi-Quellcode:

   FreeAndNil(ftwain);
   fTwain :=TDelphiTwain.Create(nil);

das hier :

Delphi-Quellcode:

  
  if not Assigned(fTwain)
   then begin
         fTwain := TDelphiTwain.Create(Self);
         fTwain.OnTwainAcquire := fTwainTwainAcquire;
        end;

{...}

Delphi-Quellcode:

procedure TForm1.FTwainTwainAcquire(Sender: TObject; const Index: Integer;
  Image: TBitmap; var Cancel: Boolean);
begin
  Image.SaveToFile('C:\Temp\MyImage.BMP'); {Mach was mit dem Bild}
  Cancel := TRUE;  {Nur ein Bild scannen}
end;

Wenn Du dann noch SelectedSource global definierst, mit -1 initialisierst und nur mit fTwain.SelectSource
neu zuweist, wenn der Wert für SelctedSource=-1 ist, dann kannst Du die Abfragen nach der Scanquelle auf
einmal pro Programmausführung reduzieren