Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

[?]TClientSocket & TServerSocket [D7, WinXP]

Юрий Ж. © (2005-12-01 02:35:00)
Какк их использовать в run-time (назначение процедур на OnConnect и так далее)???

Заранее большое спасибо!

sniknik (2005-12-02 08:33:00) [1]
пытаешся указателю на метод присвоить процедуру, даже если это удастся, работать не будет (типы разные) о чем и сообшение.

метод это структура с собственно процедурой (of object) и ссылкой на хозяина метода, значит чтобы "обойти" ошибку надо либо составить и присвоить эту самую структуру с использованием твоей процедуры либо описать процедуру внутри обьекта.
проще всего второе. попросту надо позаботится чтобы в описании присутствовало
procedure TForm1.OnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
...
end;
например. также у формы тоже прописать заголовок.

можно еще поменять сам принцип, и не пользоваться "пользовательскими" методами, а описать наследника от TClientSocket и перекрыть "оригинал" события. пользоваться естественно уже наследником.
TMyClientSocket = class(TClientSocket)
protected
procedure Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); override;
end;

procedure TMyClientSocket.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent);
begin
... //отбирай тут свое и обрабатывай
end;

Result:= TMyClientSocket.Create(nil);
//Result.OnConnect:=OnConnect; // << этого уже не надо!

Digitman (2005-12-02 08:25:00) [2]

> В чем дело

именно в том, о чем тебе и пишет компилятор

с-во OnConnect имеет тип процедурный метод объекта, а ты пытаешься назначить этому св-ву значение совершенно иного типа, а именно регулярную процедуру

в любом классе объяви и реализуй метод OnConnect с соотв.параметрами, после чего строка

Result.OnConnect:=Объект_того_самого_класса.OnConnect;

будет успешно скомпилирована

Юрий Ж. (2005-12-02 02:27:00) [3]
Ну например:
procedure OnConnect(Sender: TObject; Socket: TCustomWinSocket); begin ... end; ...... Result:=TClientSocket.Create(nil); Result.OnConnect:=OnConnect; // << Ошибка здесь!

Выдается ошибка:
[Error] Unit2.pas(105): E2009 Incompatible types: 'method pointer and regular procedure'

В чем дело и как это обойти???

kami (2005-12-02 01:01:00) [4]
Юрий Ж. (01.12.05 23:05) [2]
А конкретно???

А задать конкретный вопрос ?
Что конкретно нужно, что конкретно не получается? Бо сабж слишком расплывчатый, можно рассказывать очень долго, и так и не подобраться к необходимой информации. Посему краткий и исчерпывающий ответ на конкретный вопрос [0] был дан в Васяня [1]

Юрий Ж. (2005-12-01 23:05:00) [5]
Ха-ха-ха!!!

А конкретно???

Васяня (2005-12-01 05:56:00) [6]
Так же как и остальные компоненты создаваемые в ран-тайме...

Наверх

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