你本地server线程中创建的clientsocket是阻塞的还是非阻塞的?如果是非阻塞的,可以将
onread事件赋给线程里的一个事件;如果是阻塞的,其实,线程中最好是用阻塞的,delphi帮
助中有自带的例子:
To write a thread for client connections, define a new thread object using the New Thread Object dialog. The Execute method of your new thread object handles the details of reading and writing over the thread connection. It creates a TWinSocketStream object, and uses that to read or write. For example:
procedure TMyClientThread.Execute;
var
TheStream: TWinSocketStream;
buffer: string;
begin
{ create a TWinSocketStream for reading and writing }
TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);
try
{ fetch and process commands until the connection or thread is terminated }
while (not Terminated) and (ClientSocket1.Active) do
begin
try
GetNextRequest(buffer); { GetNextRequest must be a thread-safe method }
{ write the request to the server }
TheStream.Write(buffer, Length(buffer) + 1);
{ continue the communication (e.g. read a response from the server) }
...
except
if not(ExceptObject is EAbort) then
Synchronize(HandleThreadException); { you must write HandleThreadException }
end;
end;
finally
TheStream.free;
end;
end;
To use your thread, create it in an OnConnect event handler.
For more information about creating and running threads, see Executing thread objects.
自己看看吧!
其实,如果仅仅是通信用的话,一个clientsocket就足够了.
仅供参考,呵呵!
