Вопрос сохранения ресурсов...

← →
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;
....

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

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