Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.25;
Скачать: CL | DM;

Вниз

Что я делаю не так?   Найти похожие ветки 

 
avr555 ©   (2002-02-07 13:18) [0]

Хочу записать объект в поток. Для это го делаю следующее:

procedure TForm1.ButtClick(Sender: TObject);
var
btn,btn1 : TButton;
str:TMemoryStream;
comTmp :TButton;
begin
str := TMemoryStream.Create;


btn := TButton.Create(self);
btn.Parent := self;
btn.Left := 100;
btn.Top := 100;

str.WriteComponent(btn);
str.Seek(0, soFromBeginning);
comTmp := TButton(str.ReadComponent(nil));
btn.Free;

end;

Когда происходит чтение компонента, выходит сообщение:
"Class TButton not found"

Что я делаю неправильно


 
avr555 ©   (2002-02-07 13:28) [1]

Только написал в форум и сразу же нашел ответ:
Нужно было добавить:
RegisterClass(TComponentClass(btn.ClassType));
И все заработало.


 
avr555 ©   (2002-02-07 14:45) [2]

Все у меня работает замечательно, только не копируются внутренние объекты, массивы, дрцгие компоненты.

Мне их тоже по отдельности ручками копировать?



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

Текущий архив: 2002.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-79329
Yaro
2002-02-08 01:36
2002.02.25
Скрыть/Закрыть Explorer


4-79516
Алекс1
2001-12-18 10:16
2002.02.25
Удалить директорию в NT и перезагрузка в NT


6-79421
NailS
2001-11-29 15:09
2002.02.25
Алгоритмы передачи данных для TCP


6-79409
Дима
2001-12-07 19:07
2002.02.25
МАС адрес


1-79365
DimaIv
2002-02-08 16:38
2002.02.25
Как правильно обьявлять функции при помощи Overload