Jak zapisać zawartość BitMapy w record

0

Mam taki problem ponieważ chcę zrobić bazę danych do aplikacji gdzie tworzę rekord z danymi imię, nazwisko, itp... następnie dodaje do zdjęcie osoby. Chcę całość tych danych mieć w typie Dane_osobowe jak to zrobić by potem zapisywać to w pliku.

type
  Dane_osobowe = record
                             Imie : String[100];
                             Foto : TBitMap;
                          end;

var
   Dane : Dane_osobowe;
   F : File of Dane_Osobowe;

begin
   AssignFile (F, 'baza.dat');
   
   Dane.Imie:='Jan';
   Dane.Foto:=Image1.LoadFromFile ('foto1.bmp');

   Write (F, Dane);
   CloseFile (F);
end;

//Oczywiście potem odczyt tych rekordów gdzie będzie ich x.
 
0

było nie raz - POSZUKAJ

1 użytkowników online, w tym zalogowanych: 0, gości: 1