![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Алексей123 |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: ![]() ![]() ![]() |
ЗДРАСТВУЙТЕ!
у меня есть типизированный файл, в типе пара стринговых переменных и TPicture, но при сохранении переменной этого типа в файл, вместо картинки возвращаеться только её адрес в шестнадцатиричной форме... что мне можо сделать для того что бы картинка хранилась в моем фале? |
![]() ![]() |
Артемий |
![]()
Сообщение
#2
|
![]() Помощник капитана ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: ![]() ![]() ![]() |
Пробуй 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;
-------------------- Dum spiro spero!
|
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 19:40 |