DelphiTwain Probleme mit SetImageLayoutFrame

[ToZie]

Ich spiele seit einiger Zeit mit der Komponente DelphiTwain herum. Leider hatte ich damit immer wieder Probleme beim Einstellen des Papierformates - irgendwie schienen meine Scanner völlig eigene Vorstellungen vom Interpretieren der übergeben Werte zu entwickeln. Die Größe der gescannten Vorlagen stimmte zwar hin und wieder, meistens jedoch nicht.

Falls hier noch jemand mit dieser Komponente arbeitet, der Fehler liegt in der Unit DelphiTwainUtils in der Function FloatToFix32.

Delphi-Quellcode:

{Convert from extended to Fix32}
function FloatToFix32 (floater: extended): TW_FIX32;
var
  fracpart : extended;
begin
  //Obtain numerical part by truncating the float number
  Result.Whole := trunc(floater);
  //Obtain fracional part by subtracting float number by
  //numerical part. Also we make sure the number is not
  //negative by multipling by -1 if it is negative
  fracpart := floater - result.Whole;
  if fracpart < 0 then fracpart := fracpart * -1;
  //Multiply by 10 until there is no fracional part any longer
  while FracPart - trunc(FracPart) <> 0 do fracpart := fracpart * 10;
  //Return fracional part
  Result.Frac := trunc(fracpart);
end;

Dieser offenbar gegen früh halb fünf entstandene Code ersetzt durch:

Delphi-Quellcode:

{Convert from extended to Fix32}
function FloatToFix32 (floater: extended): TW_FIX32;
begin
  Result.Whole:=trunc(floater);
  Result.Frac:=trunc(frac(floater)*65536.0);
end;

lässt die Komponente tadellos funktionieren - die Scans passen nun milimetergenau.

Torsten

[Schwedenbitter]

Hallo,

ist zwar schon etwas älter. Aber ich habe dennoch eine Frage:

Wie rufst Du SetImageLayoutFrame auf?
Ich habe versucht, es in Pixeln (entsprechend der vorher eingestellten Auflösung), in cm und in inches anzugeben. Egal was ich mache, ich bekomme immer die Fehlermeldung crBadOperation. Das soll laut Hilfe soviel bedeuten, dass ich eine falsche Kombination von Parametern gewählt haben soll.

Kann mir jemand helfen?

Gruß, Alex

[Elmariachi]

Ist zwar ewig her, aber ich möchte es trotzdem noch erwähnen: Der korrigierte Code oben hat zwei Probleme. Er prüft nicht, ob evtl. Grenzen verletzt werden und vor allem wirft er eine Exception bei negativen Werten, die im TW_FIX32 eine Nachkommastelle haben. (Also z.B. -3,5 wirft Exception während -3 geht)

Code:

  if floater<low(TW_INT16) then floater:=low(TW_INT16);
  if floater>high(TW_INT16) then floater:=high(TW_INT16);
  Result.Whole:=trunc(floater);
  Result.Frac:=trunc(frac(abs(floater))*65536.0);

Natürlich könnte man selbst eine Exception raisen, wenn floater den möglichen Bereich des TW_FIX32 verletzt, aber ich hab einfach mal das Minimum bzw. das Maximum angenommen.