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