Jak zapisać zawartość BitMapy w record

Odpowiedz Nowy wątek
2011-10-10 00:44
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.

Pozostało 580 znaków

2011-10-10 01:27
0

było nie raz - POSZUKAJ


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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