Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: 18bit Bilder erstellen??
18. Nov 2005, 09:37
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;
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|