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

Вопрос сохранения ресурсов...   Найти похожие ветки 

← →
Phantom 13 ©   (2002-11-15 07:54) [0]

Пример на сайте DelphiGFX прекрасный с BMP все ясно...
Но вот проблема имеются некая запись
type
TGUnitsRec = Record
Exp:integer; // Хранит информацию о
Healt:byte; // юните;
...
end;
//далее имеется коллеция таких юнитов (создание коллекции опускаю)
TGUnits= class (TComponent)
private
FGUnit:TUnitsCollection
....
//описание конструктора идеструктора пропускаю...
....
published
property GUnit:TUnitsCollection r ead FGUnit write FGUnit;
....
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 08:24) [1]

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

---

← →
Phantom 13 ©   (2002-11-15 11:43) [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 11:57) [3]

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

---

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

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



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