Компонет в консольном приложении

← →
delpher_gray © (2002-08-25 20:32) [0]

Как я могу создать событие для компонента в консольном приложении ?
Пример консольного сервера:

program Server;

uses
SysUtils,
ScktComp;

var
Socket1: TServerSocket;
begin
Socket1 := TServerSocket.Create(nil);
Socket1.Port := 13;
while true do Socket1.Open;
Socket1.Free;
end.

Как я могу сделать событие OnClientRead компоненту Socket1 ??

Подскажите кто знает, ато ничего не получается :-)

← →
Юрий Зотов © (2002-08-25 20:49) [1]

Создайте класс-потомок TServerSocket, введите в него нужный метод и пусть обрабатывает сам себя.

Компонет в консольном приложении Найти похожие ветки