Сокеты и консоль Опции

[Unconnected]

Привет всем.

Животрепещущий вопрос: возможно ли в консоли присвоить событию сокета (OnRead, например) свою процедуру? Например, Client.onread:=myevent;. Описать её (myevent) получается, а вот присвоить правильно - нет..

[volvo]

По идее Event1 должен быть методом класса, поскольку в типе TSocketNotifyEvent есть указание:

type TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;

(2 слова в конце видишь? )

Итого, решение тривиальное - обернуть всю работу с сокетом своим классом:

type
  TFooClass = class(TObject)
    server:TServersocket;
    procedure Event1(Sender: TObject; Socket: TCustomWinSocket);
  end;



Procedure TFooClass.Event1(Sender: TObject; Socket: TCustomWinSocket);
begin
  writeln(socket.receivetext);
end;

var
  obj: TFooClass;
begin
  obj := TFooClass.Create;
  with obj do begin
    server:=TServerSocket.create(nil);
    server.port:=1001;
    server.OnClientRead:=event1;
    server.ServerType := stNonBlocking;
    server.Open;
    while server.active do sleep(100);
  end;
  obj.Free;
end.

Можешь еще добавить try/finally, как положено, и создавать сокет в конструкторе класса TFooClass...