function?TBZSock5ProxyApi.SetProxy(ASocket:?Pointer):?Integer;
var
??proxyUser,?proxyPwd:?String;
??bIsValid:?Boolean;
??sock:? ^ TSocket;
??sockServer:?TSockAddrIn;
??command:?array?[ 0 .. 9 ]?of?Byte;
??re,?len,?ulen,?plen:?Integer;
// ??buffer:?PByte;
??buffer:?array?[ 0 .. 1023 ]?of?Byte;
begin
??sock?: = ?ASocket;
?? if ?FProxyParam.GetServer? = ? '' ?then
??begin
????Result?: = ? 0 ;
????Exit;
??end
?? else
??begin
????Result?: = ? 0 ;
????sock ^ ?: = ?socket(AF_INET,?SOCK_STREAM,? 0 );
???? if ?sock ^ ? = ?INVALID_SOCKET?then
????begin
??????Result?: = ? 1 ;
??????Exit;
????end;
?
????sockServer.sin_family?: = ?AF_INET;
????sockServer.sin_port?: = ?htons(FProxyParam.GetPort);???? // 將整形數(shù)變?yōu)榫W(wǎng)絡(luò)字節(jié)流
????sockServer.sin_addr.S_addr?: = ?inet_addr(PChar(FProxyParam.GetServer));
?
???? // 連接遠(yuǎn)程主機(jī)
???? if ?WinSock.connect(sock ^ ,?sockServer,?SizeOf(sockServer))? <> ? 0 ?then
????begin
??????Result?: = ? 1 ;
??????Exit;
????end;
?
????bIsValid?: = ?FProxyParam.GetProxyValid;
?
???? // 發(fā)送SOCK5協(xié)議指令
????FillChar(command,? 10 ,? 0 );
????command[ 0 ]?: = ? 5 ;
???? if ?bIsValid?then
??????command[ 1 ]?: = ? 2
???? else
??????command[ 1 ]?: = ? 1 ;
???? if ?bIsValid?then
??????command[ 2 ]?: = ? 2
???? else
??????command[ 2 ]?: = ? 0 ;
?
???? // 發(fā)送登陸指令
???? if ?bIsValid?then
??????re?: = ?WinSock.send(sock ^ ,?command,? 4 ,? 0 )
???? else
??????re?: = ?WinSock.send(sock ^ ,?command,? 3 ,? 0 );
???? if ?re? = ?SOCKET_ERROR?then
????begin
??????Result?: = ? 1 ;
??????Exit;
????end;
?
???? // 接收返回的消息
????fillchar(command,? 10 ,? 0 );????????????????????????? // 接收前用0再次填充
????re?: = ?WinSock.recv(sock ^ ,?command,? 2 ,? 0 );
???? if ?re? <> ? 2 ?then
????begin
??????Result?: = ? 1 ;
??????Exit;
????end;
???? if ?command[ 1 ] = $FF?then
????begin
??????Result?: = ? 1 ;
??????Exit;
????end;
?
???? if ?(not?bIsValid)?and?(command[ 1 ] = 0 )?then
????begin
??????Exit;
????end;
?
????proxyUser?: = ?FProxyParam.GetUsername;
????proxyPwd?: = ?FProxyParam.GetPassword;
?
???? if ?command[ 1 ]? <> ? 0 ?then
????begin
?????? if ?command[ 1 ]? <> ? 2 ?then
??????begin
????????Result?: = ? 1 ;
????????Exit;
??????end;
?????? if ?bIsValid?then
??????begin
????????ulen?: = ?Length(proxyUser);
????????plen?: = ?Length(proxyPwd);
????????len?: = ? 3 ? + ?ulen? + ?plen;
????????fillchar(buffer,? 1024 ,? 0 );
?
????????buffer[ 0 ]?: = ? 5 ;
????????buffer[ 1 ]?: = ?ulen;
????????StrPCopy(@buffer[ 2 ],?proxyuser);
????????buffer[ 2 ? + ?ulen]?: = ?plen;
????????StrPCopy(@buffer[ 2 ? + ?ulen? + ? 1 ],?proxyPwd);
?
???????? // 發(fā)送驗(yàn)證信息
????????re?: = ?send(sock ^ ,?buffer,?len,? 0 );
???????? if ?re? = ?SOCKET_ERROR?then
????????begin
??????????Result?: = ? 1 ;
??????????Exit;
????????end;
?
???????? // 接收驗(yàn)證返回信息
????????fillchar(command,? 10 ,? 0 );
????????re?: = ?recv(sock ^ ,?command,? 2 ,? 0 );
???????? if ?((re <> 2 )?or?((command[ 0 ] <> 1 )?and?(command[ 1 ] <> 0 ?)))?then
????????begin
??????????Result?: = ? 1 ;
??????????Exit;
????????end;
??????end??? // if?bisValid
?????? else
??????begin
????????Result?: = ? 1 ;
????????Exit;
??????end;????????????????????? //
????end;? // ?if?command[1]<>0
??end;?? // end?first?if
?
end;
上面的函數(shù)中有一個(gè)FproxyParam變量，它是代理參數(shù)的值對(duì)象，聲明如下：
??TProxyParam? = ? class
?? private
????FUsername,???????? // 代理驗(yàn)證用戶名
????FPassword,???????? // 代理驗(yàn)證密碼
????FServer:?String;???? // 代理服務(wù)器地址
????FPort:?Integer;????? // 代理服務(wù)器端口號(hào)
????FIsValid:?Boolean;?? // 是否驗(yàn)證?????如果代理服務(wù)器是驗(yàn)證的，那么此值應(yīng)該為true
?
????procedure?Clear;
?? public
????constructor?Create;
????procedure?SetUsername(AUsername:?String);
????procedure?SetPassword(APassword:?String);
????procedure?SetServer(AServer:?String);
????procedure?SetPort(APort:?Integer);
????procedure?SetProxyValid(AValid:?Boolean);
?
????function?GetUsername:?String;
????function?GetPassword:?String;
????function?GetServer:?String;
????function?GetPort:?Integer;
????function?GetProxyValid:?Boolean;
??end;

......
Var
Re:Integer;
Begin
Re: = SetProxy(@(ClientSocket.Socket.SocketHandle))?;?? // 如果驗(yàn)證成功，那么就可以用返回的//socket進(jìn)行相應(yīng)的通訊
If?Re = 0 ?then?
Begn
??ShowMessage(‘Sock5?is?ok’);????????? // 代理服務(wù)器就會(huì)有連接的數(shù)據(jù)流顯示
End
Else?begin
??ShowMessage(‘Sock5?is?error’);
End;
End;
……