DelphiTwain

[Lucky64]

Hi,

habe jetzt doch noch ein Problem. Das Speichern als BMP mit 150 DPI klappt.
Wenn ich das Image als JPG speichern will, wird es wieder als 96 DPI gespeichert.
Hier mal der Beispiel-Code.

Delphi-Quellcode:

procedure TForm1.TwainTwainAcquire(Sender: TObject;
  const Index: Integer; Image: TBitmap; var Cancel: Boolean);
var   j:tjpegimage;
begin
  SetBmpDPI(Image,150);            // Header überschreiben
  Image.SaveToFile('c:\testDPI.bmp');
  j:=tjpegimage.create;
  j.Assign(Image);
  j.SaveToFile('c:\testDPI.jpg');
  j.Free;
  Cancel := TRUE;  {Only want one image}
end;

Gibt es für JPG vielleicht auch die Möglichkeit den Header zu überschreiben oder
eine andere Lösung?