Cześć.
Mam pytanie, jak w pliku rekordowym zapisać takie rekordy:
TRecord = packed record
rysunek : TPngObject;
//rysunek : TBitmap;
data : TDateTime;
opis : string[20];
end;
Opierając się na Kompendium próbowałem tak:
var
png : TPngObject;
F : File of TRecord;
rec : TRecord;
begin
png:=TPngObject.Create;
png.Assign(image1.Picture.Bitmap);
AssignFile(F, 'file.dat');
try
if FileExists('file.dat') then
Reset(F)
else
Rewrite(F);
Seek(F, FileSize(F)); // przesuń na koniec pliku
Rec.rysunek := png;
//Rec.rysunek := image1.Picture.Bitmap;
Rec.data := now;
Rec.opis := Edit1.Text;
Write(F, Rec); // dodaj zawartość
finally
CloseFile(F);
end;
png.Free;
end;
Czas i tekst zapisują się, ale obrazek nie chce (ani jako bitmapa, ani jako png). Co zrobić żeby zapisać png, czas i tekst do jednego pliku? Z góry dzięki za pomoc.