ЗДРАСТВУЙТЕ! у меня есть типизированный файл, в типе пара стринговых переменных и TPicture, но при сохранении переменной этого типа в файл, вместо картинки возвращаеться только её адрес в шестнадцатиричной форме... что мне можо сделать для того что бы картинка хранилась в моем фале?
Артемий
21.05.2007 0:12
Пробуй TMemoryStream:
procedure TForm1.Button2Click(Sender: TObject); var S: TMemoryStream; begin try S := TMemoryStream.Create; S.LoadFromFile('1.bmp'); S.SaveToFile('Stream.dat'); finally S.Free; end; end;
procedure TForm1.Button1Click(Sender: TObject); var S: TMemoryStream; begin S := TMemoryStream.Create; S.LoadFromFile('Stream.dat'); Image1.Picture.Bitmap.LoadFromStream(S); end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.