tcpserver使用中出现的问题 ( 积分: 50 )

请教高手:我在用tcpserver控件收到客户端发来的数据时用memo来表示出来,在程序中读取memo中的第一行和第二行却什么也没有,请问这是什么原因呀![]谢谢
procedure Tmain_form.main_tcpserverAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
DataThread: TClientDataThread;
begin
main_TcpServer.Active := false;
memo_1.Lines.Clear;
DataThread:= TClientDataThread.Create(true);
DataThread.TargetList := memo_1.lines;
DataThread.ListBuffer.Add(ClientSocket.RemoteHost);
s := ClientSocket.Receiveln;
while s <> '' do
begin
DataThread.ListBuffer.Add(s);
s := ClientSocket.Receiveln;
end;
DataThread.Resume;
//以下两行读取memo_1的第一行和第二行,本来是有数据的却读不出来[]
label1.caption := main_memo_1.Lines[0];
label2.caption := main_memo_1.Lines[1];
main_tcpServer.Active := true;
end;

请教高手:我在用tcpserver控件收到客户端发来的数据时用memo来表示出来,在程序中读取memo中的第一行和第二行却什么也没有,请问这是什么原因呀![]谢谢
procedure Tmain_form.main_tcpserverAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
DataThread: TClientDataThread;
begin
main_TcpServer.Active := false;
memo_1.Lines.Clear;
DataThread:= TClientDataThread.Create(true);
DataThread.TargetList := memo_1.lines;
DataThread.ListBuffer.Add(ClientSocket.RemoteHost);
s := ClientSocket.Receiveln;
while s <> '' do
begin
DataThread.ListBuffer.Add(s);
s := ClientSocket.Receiveln;
end;
DataThread.Resume;
//以下两行读取memo_1的第一行和第二行,本来是有数据的却读不出来[]
label1.caption := main_memo_1.Lines[0];
label2.caption := main_memo_1.Lines[1];
main_tcpServer.Active := true;
end;

清空MEMO应该是MEMO.CLEAR吧

DataThread:= TClientDataThread.Create(False);
还有DataThread.Resume;是做什么的呢？不要这个

谢谢,我试一试[]

label1.caption := main_memo_1.Lines[0];
label2.caption := main_memo_1.Lines[1];
DataThread.Resume;
这样试试

DataThread:= TClientDataThread.Create(False); //表示线程实例创建后并不立即执行(Excute)过程，而需要等到DataThread.Resume;才会执行。

我是菜鸟.但是有一个问题想问一下楼主.你的这一句.main_TcpServer.Active := false;
一开始就falsh起来...还怎么可以接收到数据啊?