帮翻译成DELPHI

// IocpServer.cpp : 定义控制台应用程序的入口点。
//

#include "stdafx.h"
#include "IocpServer.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif

//#define RECV_ONLY  //是否只处理接收数据
#define BUFFER_SIZE 1024
/****************************************************************** 
* per_handle 数据 
*******************************************************************/ 
typedef struct _PER_HANDLE_DATA 
{ 
    SOCKET      s;      // 对应的套接字句柄 
    sockaddr_in addr;   // 对方的地址
}PER_HANDLE_DATA, *PPER_HANDLE_DATA;
/****************************************************************** 
* per_io 数据 
*******************************************************************/ 
typedef struct _PER_IO_DATA 
{ 
    OVERLAPPED ol;                 // 重叠结构 
    char        buf[BUFFER_SIZE];   // 数据缓冲区 
    int         nOperationType;     // 操作类型
#define OP_READ   1 
#define OP_WRITE 2 
#define OP_ACCEPT 3
}PER_IO_DATA, *PPER_IO_DATA;

// 唯一的应用程序对象

CWinApp theApp;

using namespace std;
DWORD WINAPI ServerThread( LPVOID lpParam );//工作线程
int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
int nRetCode = 0;

// 初始化 MFC 并在失败时显示错误
if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
{
// TODO: 更改错误代码以符合您的需要
_tprintf(_T("错误: MFC 初始化失败\n"));
nRetCode = 1;
}
else
{
// TODO: 在此处为应用程序的行为编写代码。

int nPort =65000;//指定通信端口

// 创建完成端口对象 
// 创建工作线程处理完成端口对象的事件 
HANDLE hIocp = CreateIoCompletionPort( INVALID_HANDLE_VALUE, 0, 0, 0 ); 

//cpu个数*2+2 通常为最佳线程数
SYSTEM_INFO sysInfo;
GetSystemInfo(&sysInfo);
int ThreadNum=sysInfo.dwNumberOfProcessors*2+2;

for(int i=0;i<ThreadNum;i++)
{
HANDLE hThread;
hThread =CreateThread(NULL, 0, ServerThread, (LPVOID)hIocp, 0, 0);
CloseHandle(hThread);
}

WSADATA wsaData;
WSAStartup( MAKEWORD( 2, 2 ), &wsaData );

// 创建监听套接字，绑定本地端口，开始监听 
SOCKET sListen = socket( AF_INET,SOCK_STREAM, 0 );
SOCKADDR_IN addr; 
addr.sin_family = AF_INET; 
addr.sin_port = htons( nPort ); 
addr.sin_addr.S_un.S_addr = INADDR_ANY; 
bind( sListen, (sockaddr *)&addr, sizeof( addr ) ); 
listen( sListen, 5 );
printf( "iocp demo start......\n" );

while(true)
{
//accept客户端
SOCKADDR_IN saRemote; 
int nRemoteLen = sizeof( saRemote ); 
SOCKET sRemote = accept( sListen, (sockaddr *)&saRemote, &nRemoteLen ); 
 

PPER_HANDLE_DATA pPerHandle =(PPER_HANDLE_DATA)::GlobalAlloc(GPTR, sizeof(PER_HANDLE_DATA));
if( pPerHandle == NULL ) 
{ 
break; 
}
pPerHandle->s = sRemote; 
memcpy( &pPerHandle->addr, &saRemote, nRemoteLen );

//关联iocp和接收socket
CreateIoCompletionPort( ( HANDLE)pPerHandle->s, hIocp, (DWORD)pPerHandle, 0 );

PPER_IO_DATA pIoData =(PPER_IO_DATA)GlobalAlloc(GPTR, sizeof(PER_IO_DATA));

if( pIoData == NULL ) 
{ 
break; 
}
pIoData->nOperationType = OP_READ; 
WSABUF buf; 
buf.buf = pIoData->buf; 
buf.len = BUFFER_SIZE; 

DWORD dwRecv = 0; 
DWORD dwFlags = 0;//注意保证dwFlags为0，否则会出错
//压缩数据到缓冲区
WSARecv( pPerHandle->s, &buf, 1, &dwRecv, &dwFlags, &pIoData->ol, NULL );
}
}

return nRetCode;
}


/****************************************************************** 
* 函数介绍：处理完成端口对象事件的线程 
* 输入参数： 
* 输出参数： 
* 返回值 ： 
*******************************************************************/ 
DWORD WINAPI ServerThread( LPVOID lpParam ) 
{ 
    HANDLE hIocp = ( HANDLE )lpParam; 
    if( hIocp == NULL ) 
    { 
        return -1; 
    }
    DWORD dwTrans = 0; 
    PPER_HANDLE_DATA pPerHandle; 
    PPER_IO_DATA     pPerIo; 
     
    while( TRUE ) 
    { 
        // 在关联到此完成端口的所有套接字上等待I/O完成 
        BOOL bRet = GetQueuedCompletionStatus( hIocp, &dwTrans, (LPDWORD)&pPerHandle, (LPOVERLAPPED*)&pPerIo, WSA_INFINITE ); 
        if( !bRet )     // 发生错误 
        { 
            closesocket( pPerHandle->s ); 
            GlobalFree( pPerHandle ); 
            GlobalFree( pPerIo );
            cout << "error" << endl; 
            continue; 
        }
        // 套接字被对方关闭 
        if( dwTrans == 0 && ( pPerIo->nOperationType == OP_READ || pPerIo->nOperationType== OP_WRITE ) ) 
        { 
            closesocket( pPerHandle->s ); 
            GlobalFree( pPerHandle );  
 
            GlobalFree( pPerIo );
            cout << "client closed" << endl; 
            continue; 
        }
        switch ( pPerIo->nOperationType ) 
        { 
        case OP_READ:       // 完成一个接收请求 
            { 
                pPerIo->buf[dwTrans] = '\0'; 
                printf( "%s\n", pPerIo->buf );

#ifdef RECV_ONLY
                // 继续投递接受操作 
                WSABUF buf; 
                buf.buf = pPerIo->buf; 
                buf.len = BUFFER_SIZE; 
                pPerIo->nOperationType = OP_READ;                  
                DWORD dwRecv = 0; 
                DWORD dwFlags = 0;
//压缩数据到缓冲区
                WSARecv( pPerHandle->s, &buf, 1, &dwRecv, &dwFlags, &pPerIo->ol, NULL );
#else
//回应客户端
ZeroMemory(pPerIo->buf,BUFFER_SIZE);
strcpy(pPerIo->buf,"OK");
DWORD dwSend = 0; 
                DWORD dwFlags = 0;
ZeroMemory((LPVOID)&(pPerIo->ol),sizeof(OVERLAPPED));
WSABUF buf; 
                buf.buf = pPerIo->buf; 
                buf.len = 2; 
pPerIo->nOperationType = OP_WRITE;
//发送数据
WSASend(pPerHandle->s,&buf,1,&dwSend,dwFlags,&pPerIo->ol,NULL);
#endif
            } 
            break; 
        case OP_WRITE: 
{
#ifdef RECV_ONLY
               
#else
//发送时的处理

// 继续投递接受操作 
                WSABUF buf; 
                buf.buf = pPerIo->buf;  
 
                buf.len = BUFFER_SIZE; 
                pPerIo->nOperationType = OP_READ;                  
                DWORD dwRecv = 0; 
                DWORD dwFlags = 0;
//压缩数据到缓冲区
                WSARecv( pPerHandle->s, &buf, 1, &dwRecv, &dwFlags, &pPerIo->ol, NULL );
#endif
}
break;
        case OP_ACCEPT: 
            break;
        }
    }
    return 0; 
}

[解决办法]
这些api，delphi都封装好了，直接调用就是了，翻译个啥
[解决办法]
例如：调用ServerThread就：
function ServerThread(lParam:Pointer):DWORD;stdcall;external 'dll名称';
就行了。。
[解决办法]
前段时间有人发布IOCP的代码，你可以找下
[解决办法]
这个看看能不能帮上忙：http://blog.csdn.net/sqldebug_fan/article/details/7884239