工作者线程是发送和接收数据的主要部分。没有这部分代码，是无法实现网络通信的。今天我就来讲一下我写的工作者线程是如何实现的。
constructor TWorkThread.Create(Parent: TIOEvents);
begin
inherited Create(False);
FParent:=Parent;
end;
我写工作者线程的时候，是将父类（TIOEvents）通过参数传递进来，这样写是为了以后的使用方便。
destructor TWorkThread.Destroy;
begin
inherited;
end;
以下是工作者线程的主要代码。
procedure TWorkThread.Execute;
var
Index:Integer;
ne:TWSANETWORKEVENTS;
begin
while not Terminated do
begin
Index := WSAWaitForMultipleEvents(FParent.FEventNums,@FParent.FEventArray[0],FALSE,WSA_INFINITE,FALSE);
if Index = -1 then
begin
//得到-1应该是需要断开
Exit;
end;
//得到事件对应的数组下标
Index := Index - WSA_WAIT_EVENT_0;
//重置事件
WSAResetEvent(FParent.FEventArray[Index]);
if (Index = WSA_WAIT_FAILED) or (Index = WSA_WAIT_TIMEOUT) or (Index = WSA_INVALID_PARAMETER) or (WSA_INVALID_HANDLE = Index) or (WSANOTINITIALISED = Index) then
begin
Continue;
end;
//开始得到网络事件
if WSAEnumNetworkEvents(FParent.FSocketArray[Index],FParent.FEventArray[Index],@ne) <> INVALID_SOCKET then
begin
case ne.lNetworkEvents of
FD_READ: SocketRead; //接收数据
FD_WRITE: SocketWrite; //发送数据
FD_CLOSE: SocketClose; //连接关闭
end;
end;
end;
end;
由于我在函数WSAWaitForMultipleEvents中使用了参数WSA_INFINITE，这样程序会等在这里一直到套接字上有事件触发。事件触发以后我使用函数WSAResetEvent重置了事件。并使用函数WSAEnumNetworkEvents确定出触发了什么事件。根据不同的事件我调用不同的处理方法。
对于连接关闭事件我的实现是：
procedure TWorkThread.SocketClose;
begin
if Assigned(FParent.FOnDisConnect) then
begin
FParent.OnDisConnect;
end;
//服务端断开
FParent.ClearBuffer;
Destroy;
end;
对于接收到数据事件，我的实现是：
procedure TWorkThread.SocketRead;
var
BytesTransferred,dwFlags: DWORD;
iData:Pchar;
begin
BytesTransferred:=0;
FParent.PostRecv;
if WSAGetOverlappedResult(FParent.FSocket, @FParent.FRecvIOData.Overlapped, @BytesTransferred, FALSE, @dwFlags) then
begin
if BytesTransferred = 0 then
begin
Exit;
end;
FParent.FRecvIOData.BufferLen:=BytesTransferred;
GetMem(iData,FParent.FRecvIOData.BufferLen);
StrMove(iData,@FParent.FRecvIOData.Buffer,FParent.FRecvIOData.BufferLen);
if Assigned(FParent.FOnRecive) then
begin
FParent.FOnRecive(iData,FParent.FRecvIOData.BufferLen);
end;
FreeMem(iData);
end;
end;
我调用函数WSAGetOverlappedResult用来得到接收到的数据信息。并产生一个接收数据事件。
对于发送数据事件，我的处理方法是：
procedure TWorkThread.SocketWrite;
begin
Dec(FParent.FTotalCount);
if Assigned(FParent.FFirstNode) then
begin
if not FParent.PostSend then
begin
closesocket(FParent.FSocket);
end;
end
else
begin
FParent.FSending:=false;
end;
end;
继续投递一个PostSend。来继续发送，发送队列中的数据。至此，Event模型编写客户端通信的主要代码就已经全部写完了，我的代码一定会有一些问题，希望大家看了以后能指出错误来，好让大家一起进步。
initialization
begin
WSAStatupSocket;
end;
finalization
begin
WSACleanupSocket;
end;
end.
本文出自 “狗窝” 博客，请务必保留此出处http://fxh7622.blog.51cto.com/63841/166942
Delphi编写事件模型客户端(3)
社区：
