Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

хранение изображение в текстовом файле....   Найти похожие ветки 

 
SNV-Soft   (2004-08-28 09:21) [0]

Ув. знатоки, как сохранить изборажение из TImage в текстовый файл. Звучит конечно глупо, но задача стоит следующая:
На форме лежат разные компоненты, включая Timage с загруженной
в нее картинкой. Задача сохранить все параметры компонентов в текстовый файл чтобы потом можно было открыть этот файл и восстановить все компоненты на новой форме!...
Проблема как сохранить картинку, чтобы потом загрузить ее.
PS.
Все параметры должны храниться в одном файле, т.е. хранить отдельно картинку не приветствуется!


 
GuAV ©   (2004-08-28 14:52) [1]


> Задача сохранить все параметры компонентов в текстовый файл
> чтобы потом можно было открыть этот файл и восстановить
> все компоненты на новой форме!...

Хм... а TFileStream.WriteComponent(Form1) не пробовал? Не текстовый файл зато куда проще. или TFileStream.WriteComponent(Image1) и все остальные.

Хочешь тхт - или TBase64stream, или сам с typinfo возись или каждуй компонент руками.


 
SNV-Soft   (2004-08-28 15:31) [2]

Спасибо!!!
Я про WriteComponent(Form1) не знал..думаю это то что надо )


 
GuAV ©   (2004-08-28 17:38) [3]

На всякий случай:
Чтобы потом прочитать нужно CreateNew новую создавать, а не Create:
var F: Tform1;
begin
 F:=TForm1.CreateNew(Application);
 with TFileStream.Create("c:\test.bin",fmOpenRead) do
 try
   ReadComponent(F);
 finally
   Free;
 end;
end;


 
SNV-Soft   (2004-08-29 06:30) [4]

Спасибо, как раз кстати!



Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
11-1083006760
Дас Виндовс 45
2004-04-26 23:12
2004.11.28
Как определить язык, используемый пользователем по умолчанию.


4-1097838267
Wolffgang
2004-10-15 15:04
2004.11.28
Проблема с определением заголовка окна


3-1098958119
Black
2004-10-28 14:08
2004.11.28
SQL сервер своими руками


1-1100610211
Chery
2004-11-16 16:03
2004.11.28
Как Borland Socket Server сделать службой ?


1-1100480011
Rosl
2004-11-15 03:53
2004.11.28
E файлы