Thema: Delphi DelphiTwain

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#8

Re: DelphiTwain

  Alt 3. Okt 2006, 18:23
Zitat von 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?
Ich würde mich mal über die Kompremierungsmethode informieren
DPI könnte umterumständen damit beinflußt werden.


Zitat:
Header überschreiben hat super geklappt. Ich dachte nicht, dass
es eine so einfache Lösung gibt.
Header überschreiben gaukelt dir nur etwas vor.
Besser wird das Bild deshalb noch lange nicht!
Es ist nicht der Header sondern die Kompremierung bzw die Anzahl der Pixel was
die Qualität des Bildes ausmacht.

gruß
  Mit Zitat antworten Zitat