18bit Bilder erstellen??

[neolithos]

Fast richtig:

Delphi-Quellcode:

procedure TForm1.bildtauschen(offset : Integer); 
VAR length : integer; 
    p : Pointer; 
begin 
  length := Bmp24ToBmp18(image2.picture.bitmap, p); 
  cla := TFileStream.Create(pfad, fmOpenWrite or fmShareExclusive); 
  cla.Position := offset; 
  cla.write(p^, length);
  FreeAndNil(cla); 
  FreeMem(p); 
end;