WSPConnect重写求教

Question

我现在用的是SPI，我想自己写一个WSPConnect后实现 让该程序通过连接一个socks5代理来完成之后的通信。
function WSPConnect(s: TSocket; name: PSockAddr; namelen: Integer; lpCallerData: LPWSABUF;lpCalleeData: LPWSABUF; lpSQOS: LPQOS; lpGQOS: LPQOS; var lpErrno: Integer): Integer; stdcall;
var
sin:sockaddr_in ;
begin
sin := sockaddr_in(name^);
rizhi('拦截访问目标：'+PChar(IPtoStr(sin.sin_addr.S_addr) + ':' + IntToStr(ntohs(sin.sin_port))));
result:=NextProcTable.lpWSPConnect(s,name,namelen,lpCallerData,lpCalleeData,lpSQOS,lpGQOS,lpErrno);
end;
function WSPStartup(wVersionRequested: WORD; lpWSPData: LPWSPDATA;lpProtocolInfo: LPWSAPROTOCOL_INFOW; UpcallTable: WSPUPCALLTABLE;lpProcTable: LPWSPPROC_TABLE): Integer; stdcall;
var
WSPStartupFunc:LPWSPSTARTUP;
slibpath:string;
hlibhandle:hmodule;
begin
rizhi('启动：WSPStartup...');
if not GetHookProvider(lpProtocolInfo,slibPath) then
    begin
      result:=WSAEPROVIDERFAILEDINIT;
      exit;
    end;
OutputDebugString(pchar(slibpath));
hlibhandle:=loadlibrary(pchar(slibpath));
if hlibhandle<>0 then
    begin
      WSPStartupFunc:= LPWSPSTARTUP(GetProcAddress(hlibhandle,pchar('WSPStartup')));
      if Assigned(WSPStartupFunc) then
        begin
          rizhi('加载：Load library ok!');
          result:=WSPStartupFunc(wVersionRequested,lpWSPData,lpProtocolInfo,UpcallTable,lpProcTable);
          if result=0 then
            begin
              NextProcTable:=lpProcTable^;
              lpProcTable.lpWSPConnect:=WSPConnect;
              rizhi('加载成功：Hook ok!');
              exit;
            end;
        end
      else
        begin
          result:=WSAEPROVIDERFAILEDINIT;
        end;
    end
else
    begin
      result:=WSAEPROVIDERFAILEDINIT;
    end;
end;

Answer 1

现在意思就是在其他应用程序中嵌入一个socks5的连接，让该应用程序通过socks联网

Answer 2

function WSPConnect(s: TSocket; name: PSockAddr; namelen: Integer; lpCallerData: LPWSABUF;lpCalleeData: LPWSABUF; lpSQOS: LPQOS; lpGQOS: LPQOS; var lpErrno: Integer): Integer; stdcall;
var
   oldName  : sockaddr_in;
begin
          oldName.sin_family:=AF_INET;
          oldName.sin_addr.S_addr:= Inet_addr('62.243.224.179');
          oldName.sin_port:= Htons(1080);
         result:=NextProcTable.lpWSPConnect(s,PSockAddr(@oldName),SizeOf(oldName),lpCallerData,lpCalleeData,lpSQOS,lpGQOS,lpErrno);
end;
这样写对吗？