как проследить события для TSERVERSOCKET в консольном приложении? [D5, Win95/98]
krimer © (2001-11-08 13:50:00)
как сюды вставить оброботку событии на наличие конекта итд...
я знаю что ето можно сделать циклом обраьотки сообщении
Но есть ли метод полегче?
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
