TDelphiTwain und Twain Treiber Problem mit bizhub C203

[Schwedenbitter]

Hallo,

ich habe leider auch keine Lösung parat. Ich glaube aber, TDelphiTwain hat einige Fehler. Hierzu gehört auch, dass der Entwickler mit beschriebenen Exception sparsam umging. Ich mache es grundsätzlich so, dass zu Debug-Zwecken bei jedem Ereignis erstmal ein Fenster kommt. Ich kann so testen, ob wenigstens das Ereignis kommt.
Zudem gab es mal im Internet eine Fundstelle dazu, dass es mit der Function Fix32ToFloat oder FloatToFix32 in DelphiTwainUtils.pas Probleme gab. Hierzu gab es eine Beschreibung. Bis ich das gefixt hatte, hatte ich auch immer diverse undefinierbare Probleme. Falls Du noch nicht aufgegeben und das Problem ggf. immer noch hast, könnte ich Dir die Datei mal zukommen lassen.

Ich habe aber mal eine Frage dazu:

Zitat von haentschman:

...
Anmerkung:
- mein Programm funktionierte seit Implementierung mit verschiedenen Scannermodellen (alt wie neu). Incl. Duplex Scan etc.

Heißt das, dass Du mit TDelphiTwain die Duplex-Funktionen ansteuern kannst? Falls ja, wie geht das?

Auch wenn das Thema schön älter ist, würde ich mich dennoch über eine Antwort freuen.

Gruß, Aley

[haentschman]

Oh ha...

...sorry, ich hatte vergessen den Fortschritt mitzuteilen.

Die Lösung war:
- ich hatte das "Scanergebnis" erst einem Picture zugewiesen und dann das Picture dem Report übergeben.
- durch Herausnahme des "Umweges" und direktem Übergeben des Image war alles i.O. ... warum auch immer.

Trotzdem Danke für deine Bemühungen.

Zitat:

Heißt das, dass Du mit TDelphiTwain die Duplex-Funktionen ansteuern kannst? Falls ja, wie geht das?

- Duplex hatte ich nur probiert über die Scannereigene GUI und es funktionierte. Wie man das direkt übergibt, kann ich aus dem Stehgreif auch nicht sagen.

[hboy]

Zitat von Schwedenbitter:

(...) Bis ich das gefixt hatte, hatte ich auch immer diverse undefinierbare Probleme (...)

Delphi-Quellcode:

{Convert from extended to Fix32}
function FloatToFix32 (floater: extended): TW_FIX32;
var
  fracpart : extended;
begin
  Result.Whole := trunc(floater);
  fracpart     := floater - result.Whole;
  fracpart     := abs(fracpart);
  Result.Frac  := trunc(fracpart*$10000);
end;

{Convert from twain Fix32 to extended}
function Fix32ToFloat(Value: TW_FIX32): Extended;
  function Sign(x: extended): extended;
  begin
    if x < 0 then result := -1 else result := +1
  end;
begin
  Result := Value.Whole + Sign(Value.Whole) * (Value.Frac / $10000);
end;

Ist es so besser? Ich hatte den Eindruck, dass bei der ursprünglichen Implementierung aus -1.2 (-1,+0.2) wurde, was dann zu -0.8 rekonstruiert wurde. Was hatte es mit der Whileschleife und dem *10 auf sich?