Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.008 c
3-99840
777
2001-12-26 03:03
2002.01.31
TDBGrid и Ширина столбца. Все что мне посоветовали это здорово но как реально это сделать...


4-100099
VanRain
2001-12-01 15:11
2002.01.31
Инфа по WinAPI


6-100030
FD
2001-11-08 13:16
2002.01.31
Объясните новичку


4-100126
Osmiy
2001-11-22 13:38
2002.01.31
net send без имени компа?


3-99851
Bachin
2001-12-25 20:51
2002.01.31
IB:Named Transaction in trigger