订阅本文为【用Delphi检测IE使用的代理服务器】的汉字拼音对照版显示拼音
如ru果guo我wo们men开kai发fa的de对dui象xiang，不bu是shi在zai公gong网wang的de环huan境jing内nei上shang网wang，是shi使shi用yong内nei网wang的de，我wo们men应ying该gai怎zen么me样yang检jian测ce你ni的deIE使shi用yong的de代dai理li服fu务wu器qi呢ne？接jie下xia来lai我wo们men通tong过guo以yi下xia实shi例li来lai学xue习xi：
BR clear=all>
//-----------------------------------------------
//记ji得de引yin用yong WinInet 单dan元yuan
//-----------------------------------------------
uses
WinInet
//----------------------------------------------
//定ding义yi要yao使shi用yong的de函han数shu
//----------------------------------------------
function GetProxyInformation: string;
var
ProxyInfo: PInternetProxyInfo;
Len: LongWord;
begin
Result := '';
Len := 4096;
GetMem(ProxyInfo, Len);
try
if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
begin
Result := ProxyInfo^.lpszProxy
end;
finally
FreeMem(ProxyInfo);
end;
end;
procedure GetProxyServer(protocol: string; var ProxyServer: string;
var ProxyPort: Integer);
var
i: Integer;
proxyinfo, ps: string;
begin
ProxyServer := '';
ProxyPort := 0;
proxyinfo := GetProxyInformation;
if proxyinfo = '' then
Exit;
protocol := protocol + '=';
||||||
i := Pos(protocol, proxyinfo);
if i > 0 then
begin
Delete(proxyinfo, 1, i + Length(protocol));
i := Pos(';', ProxyServer);
if i > 0 then
proxyinfo := Copy(proxyinfo, 1, i - 1);
end;
i := Pos(':', proxyinfo);
if i > 0 then
begin
ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);
ProxyServer := Copy(proxyinfo, 1, i - 1)
end
end;
//----------------------------------------------------------------
//使shi用yong范fan例li
//----------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
ProxyServer: string;
ProxyPort: Integer;
begin
GetProxyServer('http', ProxyServer, ProxyPort);
if ProxyPort=0 then
begin
ShowMessage('你ni的deIE没mei有you使shi用yong的de代dai理li服fu务wu器qi')
end
else
Label1.Caption := ProxyServer;
label2.Caption := IntToStr(ProxyPort);
end;
【原文】
