TServerSocket в unit

← →
nikulin (2002-04-17 16:02) [0]

Надо засунуть TServerSocket в модуль. Я обьявил переменную

sctServer :TServerSocket;

создал экземпляр в части initialization

sctServer:=TServerSocket.Create(nil);

А как работать с событиями OnConnect и OnClientRead?

Помогите пожалуйста!

← →
Donal_Graeme (2002-04-17 16:50) [1]

просто.

пишешь функции обработчики, и цепляешь их к сокету -

sctServer.OnConnect := myOnConnect;
sctServer.OnClientRead := myOnClientRead;

форматы функций (какие там параметры должны быть) смотри в хэлпе на OnConnect и OnClientRead

← →
nikulin (2002-04-17 18:11) [2]

Так я так пробовал.

Описал в implementation
procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
end;

И в initialization написал:

sctServer:=TServerSocket.Create(nil);
sctServer.OnClientRead:=ClientRead;

У меня ошибка такая:
[Error] uWorkWithAbonent.pas(176): Incompatible types: "method pointer and regular procedure"

← →
Digitman © (2002-04-18 08:17) [3]

>nikulin
Обработчиком должен быть метод объекта, а не обычная процедура

procedure TSomeObject.ClientRead(Sender: TObject; Socket: TCustomWinSocket);

← →
nikulin (2002-04-18 09:26) [4]

Большое спасибо вроде получилось
А где вот про это прочитать можно

> Обработчиком должен быть метод объекта, а не обычная процедура

И если еще вопросы будут нельзя ли как-нибудь напрямую обратиться ?

С Уважением к Вам
Никулин Андрей mailto:mnews@ucc.ru
ICQ# 156747019

Вот твоя ошибка :

[Error] uWorkWithAbonent.pas(176): Incompatible types: "method pointer and regular procedure"

выделяешь ее в окне сообщений компилятора, жмешь F1 и читай, о чем идет речь.

Обращайся).
Координаты - в моей инфе (жми копирайт рядом с моим НИКом)

TServerSocket в unit Найти похожие ветки