Форум: "Сети";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

как проследить события для TSERVERSOCKET в консольном приложении?   Найти похожие ветки 

← →
Digitman   (2001-11-08 14:03) [1]

тяжко ж ты двигаешься)....

туды его вставить можно вот так, к примеру :

type

TMyObject = class
procedure OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
end;


var
MyObject: TMyObject;

....

implementation

procedure TMyObject.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
... do something .....
end;

....

ServerSocket := TServerSocket.Create(nil);
MyObject := TMyObject.Create;
ServerSocket.OnClientConnect := MyObject.OnClientConnect;

---

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

Форум: "Сети";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c