Скачать: CL | DM;

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

← →
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;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c