hi,
versuche ein Bitmap zu speichern, nur leider funktioniert das irgend wie nicht.
Hier mal mein Code
Delphi-Quellcode:
Type
rNetDevice = record
Typ,
PositionX,
PositionY : integer;
Bitmap : TBitmap;
end;
...
Procedure Save;
var
Datei : File of rNetDevice;
Datensatz : rNetDevice;
begin
AssignFile(Datei,fName);
Reset(Datei);
Seek(Datei, 0);
// zum Dateianfang
for i:=0 to fObjList.Count-1 do begin
device := TNetDevice(fObjList.Objects[i]);
Datensatz.Typ := 0;
Datensatz.PositionX := device.Position.x;
Datensatz.PositionY := device.Position.y;
Datensatz.Bitmap := TBitmap.Create;
Datensatz.Bitmap.Width := device.Bitmap.Width;
Datensatz.Bitmap.Height := device.Bitmap.Height;
Datensatz.Bitmap.canvas.Draw(0,0,device.Bitmap);
Write(Datei, Datensatz);
end;
CloseFile(Datei);
end;
Hat jemand eine idee?