udiloginprocess.pas

楠楠写的DBiocp例子都是源码

unit uDILoginProcess;

interface

uses
  Windows, Sysutils, uDISocketServer;
  {$I IOCP.inc}
  
type
  //登录流程
  TDILoginProcess = class
  private
    FDISocketServer: TDISocketServer;
  public
    //读Ini配置文件
    procedure ReadIniFileData;
    //连接网关Server
    function OnConnectToGateServer(sServerIP: String; nPort: Integer): Boolean;
  public
    constructor Create(DISocketServer: TDISocketServer);
    destructor Destroy; override;
  end;

implementation

//TDILoginProcess
constructor TDILoginProcess.Create(DISocketServer: TDISocketServer);
begin
  inherited Create;
  FDISocketServer := DISocketServer;
end;

destructor TDILoginProcess.Destroy;
begin
  inherited Destroy;
end;

procedure TDILoginProcess.ReadIniFileData;
begin

end;

function TDILoginProcess.OnConnectToGateServer(sServerIP: String; nPort: Integer): Boolean;
var
  i: Integer;
  nRet: Boolean;
begin
  i := 0;
  Result := FALSE; 
  while i<=3 do begin
    nRet := FDISocketServer.Connect(sServerIP, nPort);
    if nRet then begin
      Result := TRUE;
      Break;
    end;
  end;
  
end;


end.