TFileStream

← →
ORMADA © (2004-01-22 10:26) [0]

Пишу в один файл несколько Bitmap"ов
With TFileStream.Create(FileName, fmCreate Or fmOpenWrite) Do
Begin
WriteComponentRes("IMAGE1", TestImage);
WriteComponentRes("IMAGE2", image2);
Free;
End;
всё проходит на ура, когда загружаю всё компоненты а когда требуется загрузить определённый

With TFileStream.Create(ExtractFileDir(Application.ExeName) + "\" + FileName, fmOpenRead) Do
Begin
Try
ReadComponentRes(TComponent(Sender));
Finally
Free;
End;
End;

, который был записан не первым возникает ошибка типа он пытается читать первый компонент а он уже существеует!
Help как сделать выборочную загрузку

← →
Строитель (2004-01-22 10:29) [1]

Кто такой Sender:
ReadComponentRes(TComponent( Sender));?

← →
ORMADA © (2004-01-22 11:21) [2]

любой объект передаваемый процедуре
Sender:TObject

← →
MBo © (2004-01-22 12:29) [3]

Используй вспомогательный TMemoryStream, при записи сначала пишешь в него, потом в файл размер потока, потом содержимое. Повтор для каждого объекта.
Чтение - аналогично

TFileStream Найти похожие ветки