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

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

Сохранение и загрузка компонентов в/из потока... [D5, Win95/98, Win2k]

vvsystem ©   (2002-06-13 13:47:00) 

Hi All!
Объясните как сделать правильно: сохраняю форму с компонентами в поток стандартным делфевским примером ComponentToString и потом опять его загружаю StringToComponent. Так вот появляется ошибка типа компонет с таким именем уже существует. Как это обойти?
Зараннее спасибо.

---

Cobalt   (2002-06-15 10:46:00) [1]

>ошибка типа компонет с таким именем уже существует.
Если он есть, то надо передавать: BinStream.ReadComponent(InpComponent);
А ты уверен, что компонента с таким именем нет?

---

vvsystem   (2002-06-14 18:06:00) [2]

Ну что народ? тоже не знаете? жаль...

---

vvsystem   (2002-06-13 13:52:00) [3]

дополню малость: вот исходники
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;

function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
**********************************************здесь ошибка!
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;

---

Наверх