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




Вниз

как проследить события для 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;




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




Наверх





Память: 0.71 MB
Время: 0.023 c
1-99985           Егор                  2002-01-14 17:44  2002.01.31  
Аналог Toad для MS SQL Server2000


6-100034          wHammer               2001-11-06 11:43  2002.01.31  
Как просканировать доступные ресурсы на сетевой машине?


3-99907           TonnyS                2001-12-29 13:31  2002.01.31  
Как с помощью SQL-запроса добавить/изменить MEMO или BLOB поле?


1-99955           Enforcer              2002-01-13 22:54  2002.01.31  
ListBox


3-99863           Andrey196             2001-12-26 15:23  2002.01.31  
Ошибка ненайден индекс, хотя индекс имеется, что делать?? Помогите!!!