TServerSocket的问题!!我看了一个晚上没有发现错在哪里?

Question

TServerSocket的问题!!我看了一个晚上没有发现错在哪里?控制台程序
可以接受不到read事件?
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils, ScktComp;type
  TMyApp = class(TObject)
  public
    procedure Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Disconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Receive(Sender: TObject; Socket: TCustomWinSocket);
  end;var
  MyApp: TMyApp; Server: TServerSocket;procedure TMyApp.Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  WriteLn('Connected.')
end;procedure TMyApp.Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  WriteLn('Disconnected.')
end;procedure TMyApp.Receive(Sender: TObject; Socket: TCustomWinSocket);
begin
  WriteLn(Socket.ReceiveText)
end;begin
  MyApp := TMyApp.Create;
  Server := TServerSocket.Create(nil);
  Server.OnClientConnect := MyApp.Connect;
  Server.OnClientDisconnect := MyApp.Disconnect;
  Server.OnClientRead := MyApp.Receive;
  Server.Port := 3333;
  Server.Active := True;
  while True do ReadLn;
end.

Answer 1

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~

Answer 2

ClientConnect
ClientDisconnect
ClientRead查阅一下这几个事件的说明，就清楚了。
或者给我mail,我把例子给你

Answer 3

to : jcsun(超)我要的是 控制台下面的程序 或者是 动态创建 的socket的例子我的email : [email protected]        谢谢

Answer 4

最后一行while True do ReadLn;改成 
while getmessage(msg, 0, 0, 0) do
try
  translatemessage(msg);
  dispatchmessage(msg);
except
end;
试试