如何用TWinSocketStream在客户和服务器端实现通讯

[liyee]

我想采用Socket的blocking方式、使用线程和TwinsocketStream来实现C/S通讯，
各位大侠赐教，我必须在那些事件里处理TWinsocketStream,我试着在TServerSocket
的各事件里通过TWinSocketStream向客户端发送，就是没反应，怎么回事呀！555555......

[DIABL0]

TWinSocketStream只能用blocking方式

[5_555]

up

[conduit2000]

procedure TMyClientThread.Execute;
var
TheStream: TWinSocketStream;
buffer: string;
begin
{ create a TWinSocketStream for reading and writing }
TheStream := TWinSocketStream.Create(ClientSocket.Socket, 60000);
try
FillChar(Data179R, SizeOf(Data179R), 0); //初始化 初始化缓冲区
while (not Terminated) and (ClientSocket.Active) do
begin
if Stream.Read(Data179R, SizeOf(Data179R)) = 0 then //读到缓冲区内
begin
ClientSocket.Close;
Terminate;
end;
else
;//数据接收成功，执行动作
end;
finally
TheStream.Free;
end;
end;

[say]

gz