Delphi Twain

[ngott2]

Ich habe es jetzt so gelöst wenn mehr als ein Scaner gefunden werden dann muss man ihn einmal auswählen und den behält er dann bis das Programm neu gestartet wird.

Bloß das der Scaner neu erkannt werden muss macht mir noch Bauchschmerzen.
Und ihn einfach einmal zu deaktivieren und wieder aktivieren finde ich ein bisschen unsauber. Aber ich werde es vorerst so lösen.

Danke ihr beiden.

[Guido R.]

Ähm... ja.
Im Grunde die gleiche Komponente, nur dass diese Version seit 2004 nicht mehr verändert wurde.
Unter www.kluug.net/delphitwain.php findest Du eine Unicode-fähige Version vom 21. Dezember 2013.
Vielleicht löst eine aktuelle Version Dein Problem direkt.

Wie gehst Du grundsätzlich vor ?
Führst Du das LoadLibrary zu Programmstart aus und gibst die Library zum Programmende wieder frei,
oder führst Du LoadLibrary und UnloadLibrary bei Bedarf aus ?

Gruß
Guido R.

[ngott2]

So gehe ich vor

ftwain gibt es auf jeden Fall schon.

Code:

  FreeAndNil(ftwain);
  fTwain :=TDelphiTwain.Create(nil);
  try
    if fTwain.LoadLibrary then
    begin
      fTwain.SourceManagerLoaded := True;
      {Allow user to select source}
      SelectedSource := fTwain.SelectSource;
      ShowMessage(IntToStr (fTwain.SourceCount));
      if (SelectedSource <> -1) then
      begin
        {Load source, select transference method and enable display interface}
        fTwain.Source[SelectedSource].Loaded := True;
        {Show scanconfig!}
        fTwain.Source[SelectedSource].ShowUI := False;
        fTwain.Source[SelectedSource].Enabled := True;
      end
      else
      begin
        ShowMessage('Twain is not installed.');
      end;
    end;
  except
    ShowMessage('Twain is not installed.');
  end;

[ngott2]

Mit der neuen Twain Unit geht es wirklich ohne Probleme danke

[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