在线程中的socket通信问题（100分酬谢）(100分)

我在线程中创建了一个clientsocket事件用来和server进行通讯
可是遇到了问题
1：在serversocket启动通讯建立良好的情况下，只能触发doreader事件，将数据发送出去
可是不能触发doreader事件将server传回的数据包读回来。
2：在网络连接不通或serversocket没有启动的情况下，出现10061错误，可是不能触发doerror事件
进行错误处理，
哪位高手给看看，该怎么处理，代码如下：
unit Unit2;

interface

uses
Classes,ScktComp,sysutils,Graphics;

type
Test = class(TThread)

private
cs:Tclientsocket;
testsock:TWinSocketStream;
protected

procedure doRead(Sender: TObject;Socket: TCustomWinSocket);
procedure doconnect(Sender: TObject;Socket: TCustomWinSocket);
procedure doError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure Execute; override;
public
end;


var
cc:string;
dd:string;
FStr:string;
n:integer;
procedure wval(m:integer);//取得项目编号
procedure w_comm(c:string); //命令字符串
procedure w_data(d:string);//数据字符串

implementation

{ Important: Methods and properties of objects in VCL can only be used in a
method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure Test.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ Test }
uses unit1;
{连接事件}
procedure test.doconnect(Sender: TObject;Socket: TCustomWinSocket);
begin
Socket.SendText(cc);//命令包
Socket.SendText(dd);//数据抱
form1.Memo.lines.add('ok');
end;
{错误处理事件}
procedure test.doError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
cs.Socket.Close;
errorcode:=0;
end;
{读取server传回的确认包事件}
procedure test.doRead(Sender: TObject;Socket: TCustomWinSocket);
begin
FStr:=Socket.ReceiveText;
if Copy(Fstr,1,2)='DT' then
begin
cs.Socket.Close;
form1.Memo.lines.add('DT');
end;
end;
procedure w_comm(c:string);//命令字符串
begin
cc:=c;
end;
procedure w_data(d:string);//数据字符串
begin
dd:=d;
end;
procedure wval(m:integer);
begin
n:=m;
end;

procedure Test.Execute;
begin
freeonterminate:=true;
cs:=Tclientsocket.Create(nil);
cs.Address:='192.96.9.140';
cs.Port:=8001;
cs.ClientType:=ctBlocking;
cs.OnConnect:=doconnect;
cs.OnError:=doError;
cs.OnRead :=doread;
cs.Active:=true;
cs.Free;
end;
end.

因为线程没有消息循环机制。要么自己建，要么不要在线程用。

to mywyn
我的这个程序必须要在线程中用，我想还是自己建消息循环，能给我个示例么，就在
我这个程序上改动，行么？帮帮忙，不够分我可以再加

procedure Test.Execute;
begin
freeonterminate:=true;
cs:=Tclientsocket.Create(nil);
cs.Address:='192.96.9.140';
cs.Port:=8001;
cs.ClientType:=ctBlocking;
cs.OnConnect:=doconnect;
cs.OnError:=doError;
cs.OnRead :=doread;
cs.Active:=true;
while GetMessage(msg,0,0,0) do
begin
dispatchMessage(msg);
end;
cs.Free;
end;

另外，GetMessage函数没有消息是不会返回的，你应在适当的时候在主线程中调用
PostThreadMessage发送Wm_quit来结束线程

to mywyn
我试过了，在网络连接不通，出错后，仍然不能触发doerror事件
连接良好时只能触发doconnect事件，仍然不能触发doreader事件
到底该怎么办呀？

老兄啊，你没听人家说吗？
如果你线程中没循环的话，线程执行一遍就出去了！
所以你可先不用线程，先用个时钟去模拟线程，这样你如能达到目的的话，再把代码搬到
你的线程中，这样调试应该就行的！

错，好几处
首先你的TClientSocket应该放在Thread的构造函数里一起Create比较合理
你设定了type是Blocking的，你如何还要指望他响应onRead,OnError?
你是又想用Blocking的socket,又想他响应事件如何能成功？
如果要是blocking的，应该有这样一个流程:
socket.create;
try
socket.open;
while socket.actived do
begin
cmd := read;
case cmd of:
....要干的事情
end;
except
出错处理
end;
socket.free
如果要响应事件，要设置成nonBlocking的,你最好把socket的create放在thread的constructor里，指定好事件处理程序后，
然后thread的execute里这样
while socket.active do
application.processmessage；
否则线程按顺序执行一遍就退出了，如何响应事件
基本概念不清阿

to moses1999:
我试了一下，可以。可能是你没把ClientType设成ctNonBlocking的缘故。
如果还不行，那就是你的程序有问题，建议放到主线程里测一下。

接受答案了.