TWAIN-Problem (TDelphiTwain versagt)

[haentschman]

Hallo...

so einfach läßt sich das nicht sagen was zu tun ist. Zeig mal deinen Code und dann schaun wir mal. Ich hatte mal Probleme mit einem Twain Treiber der den Scanner via IP ansprach. Letztendlich war ein wenig Umstellen angesagt.

...schaun wir mal

[helgew]

- -

[hboy]

Delphi-Quellcode:

procedure TForm1.OnTwainAcquire(Sender: TObject; const Index: Integer;
      Image: TBitmap; var Cancel: Boolean);
var
  newidx: integer;
  datestr: string;
  devname: string;
begin
// ...  
   glm.Layers[newidx].data.Canvas.Draw(0,0,image);
//...

  Cancel := False;
  TwainHelper.FinishAcquisition;
end;

sorry, dass der code auf sich warten lassen musste, ich war nicht zuhause am PC und hatte unterwegs auch nur das compilierte Programm dabei.
Meine Implementierung ist recht simpel vom Beispielcode abgeleitet, ich mache auch keine Einstellungen und so ganz zufrieden bin ich damit natürlich nicht.
Da aber auch das "fullfeatures"-Beispiel mit allen verschiedenen Modi nicht hinkriegt, ein Bild zu importieren, zweifle ich etwas daran, ob es so sinnvoll ist, mit TDelphiTwain weiterzumachen Vielleicht muss ich doch den anderen code mal fläddern.

Nochmal zur Problembeschreibung:
Die Quellenauswahl klappt soweit, sobald ich beim UI der Kamerasoftware auf "transferieren" klicke läuft eine Progressbar bis 60..80%, danach verschwindet der Dialog und weiter passiert nichts, es gibt auch keine Fehlermeldung. Es gibt von Leica auch einen dummytreiber, der eine Kamera simuliert, die sich gleichermaßen bockig stellt. Ich schaue mal, ob der irgendwo zu bekommen ist, damit kann man zumindest mal Trockenübungen machen.

ps.
unter http://www.leica-microsystems.com/pr...-hd/downloads/ gibt es den DFCTwain7.2 Treiber mit Demokamera.

[hboy]

Nun denn,

ich habe die Chose noch etwas massiert und bin an der Stelle angelangt, dass

Delphi-Quellcode:

{Transfer image memory}
function TTwainSource.TransferImageMemory(var ImageHandle: HBitmap;
  PixelType: TW_INT16): TW_UINT16;
var
 {...}
begin
  {Obtain information on the transference buffers}
  Result := Owner.TwainProc(AppInfo, @Structure, DG_CONTROL, DAT_SETUPMEMXFER,
    MSG_GET, @Setup);
 {...}

mir nur TWRC_FAILURE zurückliefert, das wäre der Anfang des Transferprozesses. Ich war so frei, noch messageboxes einzuführen, die mir zunächst den Wert von GetReturnStatus anzeigen, bis ich dann herausgefunden habe, dass der Rückgabewert von TwainProc, der aussagt, ob diese überhaupt erfolgreich war, weggeworfen wird und so Phantasiewerte für den TW_STATUS.ConditionCode rauskommen.

Meine Vermutung wäre, dass die Twainquelle (Leica DFC Demokamera) es schon nicht hinbekommt, in den bereitgestellten Speicher zu schreiben und dann abbricht - wenn nicht schon vorher. Ich habe auch schon etwas im funktionierenden c++-Code der Testapplikation von twain.org herumgelesen, allerdings ohne Erfolg. Kann mir jemand einen Ratschlag geben, wie ich weiter debuggen kann, ohne die 664 Seiten der Twain 2.1 Spezifikationen durchzulesen?

Danke schonmal.

ps. das Bitmap wird, soweit ich es auf den ersten Blick beurteilen konnte, noch korrekt erzeugt, wenn man den return code überschreibt, kommt ein schwarzes Bild an, das einen korrekten Header hat. Irgendwas geht zwischen dem Start der GUI und dem Callback kaputt...

[haentschman]

Zitat:

glm.Layers[newidx].data.Canvas.Draw(0,0,image);

...was passiert denn, wenn du zu Testzwecken einfach mal ein TImage auf die Form nachst und image dem TImage zuweist ?

[hboy]

Zitat von haentschman:

...was passiert denn, wenn du zu Testzwecken einfach mal ein TImage auf die Form nachst und image dem TImage zuweist ?

OnTwainAcquire wird nicht einmal aufgerufen. In TransferImageMemory wird versucht, an TW_SETUPMEMXFER und TW_IMAGEMEMXFER - Strukturen heranzukommen, dabei liefert die TwainProc einen Fehler zurück und durch

Delphi-Quellcode:

  if Result <> TWRC_XFERDONE then
    DeleteObject(ImageHandle);

wird der angelegte Buffer verworfen, der Rückgabewert von TransferImageMemory ist TWRC_FAILURE und das wars. Wenn man der Transfervorbereitungsfunktion ein TWRC_SUCCESS unterjubelt, kommt ein mit $00 gefüllter Puffer an.

Ich tappe leider noch ziemlich im Dunkeln, warum nun eigentlich ein Fehler auftritt. Denkbar wäre, dass sich die Implementierung von Leica den Puffer oder irgendwelche flags anders vorgestellt hätte und schon vor dem Transfer den Modus verlässt, in welchem die Strukturinformationen verfügbar sind.

[haentschman]

Zitat:

OnTwainAcquire wird nicht einmal aufgerufen

...dann bin ich mal schlichtweg überfragt, sorry