1,594
社区成员




procedure TForm1.TSAccept(Sender: TObject; ClientSocket: TCustomIpClient);
var //Id:Cardinal;
a: string;
begin
CS := ClientSocket;
ListBox1.Items.Add(CS.RemoteHost);
Memo1.Lines.Add(DatetimeTostr(Now));
Memo1.Lines.Add(CS.RemoteHost + ':');
Memo1.Lines.Add(CS.Receiveln());
//BeginThread(nil,0,@Wait2,nil,0,ID);
while true do /{为什么我单步执行到这里……程序就直接Running了?我没有用线程,可是用死循环接受消息时也不会卡。 在这个循环里的代码明明在执行,可是无法下断,百思不得解! }
begin
a := CS.Receiveln(); //receive message form Client
if a = '' then continue;
Form1.Memo1.Lines.Add(DateTimeToStr(Now));
Form1.Memo1.Lines.Add(CS.RemoteHost + ':');
Form1.Memo1.Lines.Add(a);
end;
end;