关于TSocketNotifyEvent的问题。

Question

这样改最简单， 但明显你的程序还没有完成， 不能侦听。program Project1;{$APPTYPE CONSOLE}uses
  SysUtils,
  ScktComp;
type
  TSocketNotifyEvent = procedure(Sender: TObject; Socket: TCustomWinSocket) of object;  TMyServerSocket = class(TServerSocket)
  private
    procedure scktServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  end;var
  svrSocket: TMyServerSocket;
//  OnAccept: TSocketNotifyEvent;{ TMyServerSocket }procedure TMyServerSocket.scktServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  writeln('Client connected!');
end;begin
  { TODO -oUser -cConsole Main : Insert code here }
  svrSocket := TMyServerSocket.Create(nil);
  svrSocket.Port := 1234;
  svrSocket.OnAccept := svrSocket.scktServerClientConnect;
  svrSocket.Open;
end.