Динамически создаваемые сокеты. Как обрабатывать их события?

← →
SFlash © (2002-08-01 12:55) [0]

Мне неоходимо динамически создавать, использовать и удалять сокеты (что работает), но вот как обрабатывать их события (events: onRead, onWrite и т.д.)? Никак в толк не возьму, мож уже глаза замылились вместе с мозгом? Помоги плз

← →
Digitman © (2002-08-01 13:23) [1]

SomeSocketObject.OnRead := имя_некоего_ процедурного_метода_типа_TSocketEvent_некоего_существующего_на_этот_момент_объекта

← →
Rotax (2002-08-02 13:34) [2]

>>Digitman ©

Верно :)

>> SFlash ©
Вот тебе пример:

type
TForm1 = class(TForm)
....
....
procedure MyServerSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
public
Procedure MyProc;
end;
implementation
{$R *.DFM}

procedure TForm1.MyProc;
Var MyServerSocket : TServerSocket;
begin
MyServerSocket := TServerSocket.Create(self);
with MyServerSocket do
begin
...
OnClientRead := MyServerSocketRead;
end;
end;

//и сам обработчик события
procedure TForm1.MyServerSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
...
...
end;

Динамически создаваемые сокеты. Как обрабатывать их события? Найти похожие ветки