最近要写一个socket的多线程的服务,刚刚好从网上找到这篇文章,觉得有用,保存下来
{
使用TServerSocket构件提供多线程服务
www.mynetlife.com 2002-12-29 网迷教程
使用TServerSocket构件提供多线程服务
对于一个socket来说，很容易提供一个侦听消息的多线程服务。Delphi自身也提供了这样的构件：TServerSocket。
不过这里边也需要一点小技巧。
为此，我们要做以下几件事：
-将TServerSocket加入main窗体中
-设置Servertype属性为stThreadBlocking
-生成一个新单元（如下）来包含服务线程
将下面的代码赋给OnGetThread事件响应函数
}
procedure TfrmMain.fSocketGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
begin
// 在每次一个新连接建立的时候为它生成一个新的TServerThread对象。
SocketThread := TServerThread.Create(FALSE, ClientSocket);
end;
{下面是我自己生成的TServerThread对象代码.该对象从TServerClinetThread继承而来，包含从socket读写数据的代码。}
unit serverthread;
interface
uses
windows, scktcomp, SysUtils, Classes, Forms;
type
EServerThread = class(Exception);
// TServerThread服务线程类是TServerClientThread的派生类
TServerThread = class(TServerClientThread)
private
fSocketStream: TWinSocketStream;
public
procedure ClientExecute; override;
// ClientExecute过程将覆盖TServerClientThread.ClientExecute过程
// 并包含实际执行的代码于线程开始时。
end;
implementation
procedure TServerThread.ClientExecute;
begin
inherited FreeOnTerminate := TRUE;
try
fSocketStream := TWinSocketStream.Create(ClientSocket, 100000);
// 设置100000毫秒的充许超时.
try
while (not Terminated) and (ClientSocket.Connected) do
try
// 在此处加入你对输入、读、写的等待
// 下面的示范你可以拿来照搬在此
except on e: exception do begin
// 一旦错误发生就关闭并退出
ClientSocket.Close;
Terminate;
end;
end;
finally
fSocketStream.Free;
end;
except on e: exception do begin
// 一旦错误发生就关闭并退出
ClientSocket.Close;
Terminate;
end;
end;
end;
{一旦连接建立，线程需要等待数据到来.你可以使用下面的代码来等待数据:}
if (not Terminated) and (not fSocketStream.WaitForData(1000000)) then
begin
// 超时处理
end;
// 数据到达!
{为了读取数据，我们需要建立一个数据缓冲区存取到达的数据，可以使用PByteArray或一个char型的数组.
在此例中我设置了一个名为fRequest的char型数组缓冲。此外我将其设为定长，其大小由REQUESTSIZE常量决定.}
var
ac, readlen: integer;
begin
FillChar(fRequest, REQUESTSIZE, 0);
ac := 0;
repeat
readlen := fSocketStream.Read(fRequest[ac],1024);
// 每次读取1024 bytes直到缓冲区满
ac := ac + readlen;
until (readlen = 0) or (ac = REQUESTSIZE);
end;
{
如果说readlen是 0 的话，说明我未收到任何数据.读函数的超时从TWinSocketStream.Create()执行后开始.如果说你不知道预期的数据量,你最好将超时设置得尽量小些.在大多数情况下 30 秒是上限.
当发送一个应答时，你应该很清楚客户端的行为.许多客户端仅仅等待一个应答包,一些则等待许多包.
在本例中，我只设置了一个客户端并只等待一个包，所以我们需要一次就将数据包发送出去。
fSocketStream.WriteBuffer( fRep, fReplySize );
fRep是应答缓冲区,fReplySize则是缓冲区大小. }