DPI - Eintrag im BMP-File-Header angeben.

[Hawkeye219]

Ich habe es noch ein wenig korrigiert und dabei xaromz' Vorschlag aufgegriffen:

Delphi-Quellcode:

var
  Value : Cardinal;
begin
  Value := 10000;
  with TFileStream.Create(Dateiname, fmOpenWrite) do
    try
      Position := 38;   // 38, nicht 28 ;-)
      Write(Value, 4);  // Write benötigt eine Variable
      Write(Value, 4);
    finally
      Free;
    end;
end;

Gruß Hawkeye