Скачать: CL | DM;

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, при записи сначала пишешь в него, потом в файл размер потока, потом содержимое. Повтор для каждого объекта.
Чтение - аналогично

---

← →
ORMADA ©   (2004-01-22 12:35) [4]

2 MBo © c потоками никогда до этого не работал может накидать маленький пример

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c