工作者线程是发送和接收数据的主要部分。没有这部分代码,是无法实现网络通信的。今天我就来讲一下我写的工作者线程是如何实现的。
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.