X
xhuangbin
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
hHttpSession, hReqUrl:HInternet;
begin
hHttpSession:=InternetOpen('FindWeb',INTERNET_OPEN_TYPE_PROXY,'socks=192.168.1.127:1080',nil,0);
try
hReqUrl:=InternetOpenURL(hHttpSession,PChar('http://162.105.138.141/papersdata/200527.zip'),nil,0,0,0);
if hReqUrl=nil then
begin
InternetCloseHandle(hHttpSession);
MessageBox(0,'查找主机时出错!','提示信息',MB_OK+MB_ICONERROR);
exit;
end
else
begin
MessageBox(0,'连接成功!','提示信息',MB_OK);
exit;
end;
finally
InternetCloseHandle(hHttpSession);
end;
end;
以上代码中如果代理服务器为http代理(端口8080),设置为'http=192.168.1.127:8080',连接成功
如果代理服务器为socks4代理(端口1080),设置为'socks=192.168.1.127:1080',连接也成功
但如果代理服务器是Socks5代理,端口同样是1080,则设置'socks=192.168.1.127:1080',将报错(特别说明,用flashxp测试,该socks5代理是绝对可以使用的,因为设置flashxp的代理为它时,下载文件正常,并且代理服务器端看到socks5的访问日志),利用IE测试也是同样的状况,socks4代理可以,而socks5代理就不行,请教各位大虾给个答复,非常感谢!!
var
hHttpSession, hReqUrl:HInternet;
begin
hHttpSession:=InternetOpen('FindWeb',INTERNET_OPEN_TYPE_PROXY,'socks=192.168.1.127:1080',nil,0);
try
hReqUrl:=InternetOpenURL(hHttpSession,PChar('http://162.105.138.141/papersdata/200527.zip'),nil,0,0,0);
if hReqUrl=nil then
begin
InternetCloseHandle(hHttpSession);
MessageBox(0,'查找主机时出错!','提示信息',MB_OK+MB_ICONERROR);
exit;
end
else
begin
MessageBox(0,'连接成功!','提示信息',MB_OK);
exit;
end;
finally
InternetCloseHandle(hHttpSession);
end;
end;
以上代码中如果代理服务器为http代理(端口8080),设置为'http=192.168.1.127:8080',连接成功
如果代理服务器为socks4代理(端口1080),设置为'socks=192.168.1.127:1080',连接也成功
但如果代理服务器是Socks5代理,端口同样是1080,则设置'socks=192.168.1.127:1080',将报错(特别说明,用flashxp测试,该socks5代理是绝对可以使用的,因为设置flashxp的代理为它时,下载文件正常,并且代理服务器端看到socks5的访问日志),利用IE测试也是同样的状况,socks4代理可以,而socks5代理就不行,请教各位大虾给个答复,非常感谢!!