Задача:
Создаем файл, например baza.txt
Создаем запись TRecord
Код:
Type
TMaterials = record
Name, Artaicle, Manufactured = String[100];
Image: TBaitMap;
End;
Var
Materials: TMaterials;
MaterialsFile: File of TMaterials;
Картинку к примеру загрузили из файла и поместили ее в TImage.
Name, Artaicle, Manufactured берем из TEdit.
Image из TImage.
Далее присваиваем всем переменным их значения и записываем в файл. Проблема в том, что нужно записать TBitMap в файл!!
Код:
AssignFile(MaterialsFile,'C:\Baza.txt');
ReWrite(MaterialsFile);
Materials.Name:=Edit1.Text;
Materials.Article:=Edit2.Text;
Materials.Manufactured:=edit3.Text;
Materials.Image:=Image1.Picture.BitMap;
Write(MaterialsFile,Materials);
CloseFile(MaterialsFile);
Admin: Пользуемся тегами для оформления кода!
В этом виде он записывает так сказать ссылку на Image1 и если удалить картинку из Image1, то при чтении из файла записи Materials.Image и помещения ее например в Image2 возникает ошибка!
Цель: Записать всю картинку целиком в эту запись!
Если нужно записать все это в Class то приведите пример пожалуста, не приходилось работать с ним!