翻译代码！

Question

翻译为DELPHI代码！：
LPWSAPROTOCOL_INFOW  protoinfo=NULL;
WSPPROC_TABLE        nextproctable;
DWORD                protoinfosize=0;
int                  totalprotos=0;if((protoinfo=(LPWSAPROTOCOL_INFOW)GlobalAlloc(GPTR,protoinfosize))==NULL)
    {
        OutputDebugString(_T("GlobalAlloc Error!"));                
        return FALSE;
    }struct sockaddr_in sin;    sin=*(const struct sockaddr_in *)lpto;
    if(sin.sin_port==htons(8000))        
    {
                OutputDebugString(_T("WSPSendTo Tencent Filtered"));
        return 0;
    }
    
if(!ExpandEnvironmentStrings(filterpath,filterpath,MAX_PATH))
for(i=0;i<totalprotos;i++)
    {
        if(memcmp(&protoinfo[i].ProviderId,&filterguid,sizeof(GUID))==0)
        
    }    
    
nextproctable=*lpproctable;
    lpproctable->lpWSPSendTo=WSPSendTo;上面语法不明白！都不是连贯的代码，只要是翻译下来就行！谢谢！
    

Answer 1

呵呵，建议你把连贯的代码贴一下
估计你是像做过滤数据包的程序
另外如果想用上面的两个结构体需要去Jedi上下载东西
winapi和winsock2

Answer 2

大哥们，能不能先把上面的代码翻译过来啊？我只是想大概看看这段程序的DELPHI代码是什么样！至于写程序我还没有那个水平！呵呵！我是在网上找到的上面的这段，只是把上面的给复制过来了！全部代码我没有收藏！谢谢了！

Answer 3

有一些DELPHI是翻译不了的
C++的语法太强大了