Ja, ich drucke über Canvas:
Delphi-Quellcode:
...
tbm:= TBitmap.Create;
try
st:= UpperCase(ExtractFileExt(FileName));
if ((st = '.JPG') or (st = '.JPEG')) and FileExists(FileName) then begin
// hier kommt er immer vorbei
tjp:= TJpegImage.Create;
try
tjp.LoadFromFile(FileName);
tbm.Width:= tjp.Width;
tbm.Height:= tjp.Height;
tbm.Canvas.Draw(0,0,tjp);
finally
tjp.Free;
end;
end;
...
finally
tbm.Free;
end;
Die Datei wird immer gefunden, habe ich protokolliert.
Leider habe ich nur funktionierende Drucker zu Verfügung, deshalb kann ich schlecht debuggen.