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