Текущий архив: 2002.01.31;
Скачать: CL | DM;
Вниз
как проследить события для TSERVERSOCKET в консольном приложении? Найти похожие ветки
← →
krimer (2001-11-08 13:50) [0]как сюды вставить оброботку событии на наличие конекта итд...
я знаю что ето можно сделать циклом обраьотки сообщении
Но есть ли метод полегче?
program sturm;
{$APPTYPE CONSOLE}
uses
SysUtils, ScktComp,
Unit1 in "Unit1.pas";
var
ServerSocket : TServerSocket;
begin
ServerSocket := TServerSocket.Create(nil); // created server socket
readln;
end.
← →
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;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c
