| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос сохранения ресурсов... [Delphi, Windows]

Phantom 13 ©   (2002-11-15 07:54:00) 

Пример на сайте DelphiGFX прекрасный с BMP все ясно...
Но вот проблема имеются некая запись
type
TGUnitsRec = Record
Exp:integer; // Хранит информацию о
Healt:byte; // юните;
...
end;
//далее имеется коллеция таких юнитов (создание коллекции опускаю)
TGUnits= class(TComponent)
private
FGUnit:TUnitsCollection
....
//описание конструктора идеструктора пропускаю...
....
published
propertyGUnit:TUnitsCollection r eadFGUnit writeFGUnit;
....
var
GUnits1 :TGUnits; //Некое число одинаковых юнитов;
GUnits2 :TGUnits; //Еще юниты с другими свойствами;
//Все работает свойства просматриваются создаются добавлются в коллекцию
//а вот всякая попытка сохранит проваливается а в helpe так cкудно
//описаны TStream и TCollection :(
var
OutStream : TStream;
TableStream : TStream;

...
OutStream:=TFileStream.Create(OutFileName, fmCreate);
TableStream:=TMemoryStream.Create;
// далее пытаюсь использовать такой код
TableStream.ReadComponent(GUnits1);
TableStream.CopyFrom(ResourceStream,ResourceStream.Size);
// Результат Error Stream Error;

Может поскажет кто в чем проблема?

---

MBo   (2002-11-15 11:57:00) [1]

мне непонятно, что, откуда и куда читается

---

Phantom 13   (2002-11-15 11:43:00) [2]

существует, описался
хотя там так хотя особой роли не игает
хотя имеено в него и пытаюсь считать копонент,
просто хотел сократить кусок кода приведенного здесь
var
OutStream : TStream;
TableStream : TStream;
ResourceStream : TStream;
f:integer;

....
OutStream:=TFileStream.Create(OutFileName, fmCreate);
TableStream:=TMemoryStream.Create;
ResourceStream:=TMemoryStream.Create;
....
TableStream.ReadComponent(GUnits1);
TableStream.CopyFrom(ResourceStream,f);
f:=f+ResourceStream.Size;
....

---

MBo   (2002-11-15 08:24:00) [3]

Создано ли ResourceStream?
Существует ли такой ресурс?
Стоит ли его Position в 0?

---

Наверх