Главная страница
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.025 c
8-1093947884
ExpertTech
2004-08-31 14:24
2004.11.28
Как в гриде границу ячейки нарисовать толще?


11-1082825813
Max003
2004-04-24 20:56
2004.11.28
Что делать? Минимальный MCK проект(пустая форма) весит 25.5 кб


3-1099310895
Артем К.
2004-11-01 15:08
2004.11.28
Проблемы с вычисляемым полем


6-1095827118
seregin2
2004-09-22 08:25
2004.11.28
Передача Stream в Socket ах


6-1095423432
Uran
2004-09-17 16:17
2004.11.28
Как зарегестрировать ActiveX Server на клиенте