Einzelnen Beitrag anzeigen

Jackie1983

Registriert seit: 12. Mär 2007
486 Beiträge
 
#1

Bitmap speichern mit File of MyRecord

  Alt 22. Sep 2007, 15:32
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?
  Mit Zitat antworten Zitat