iocptest.dpr

delphi下的IOCP模型。可以下载来试试。

program IocpTest;

uses
  ComObj,
  ActiveX,
  Forms,
  Main in 'Main.pas' {Form1},
  IOCPPool in 'IOCPPool.pas';

{$R *.RES}

begin

  IsMultiThread := True;
  CoInitFlags := COINIT_MULTITHREADED;

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.