Hilfe bei Indy Tunnel Demo ...

[marabu]

Was denn - zu faul den Proxy mit der Hand einzutragen? Naja, geht auch per Programm:

Delphi-Quellcode:

uses
  WinInet;
...
var
  ProxyInfo: PInternetProxyInfo;
  dwSize: DWORD;
begin
  InternetQueryOption(nil, INTERNET_OPTION_PROXY, nil, dwSize);
  GetMem(ProxyInfo, dwSize);
  InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, dwSize);
  ProxyInfo.lpszProxy := 'xxx.xxx.xxx.xxx:80'; 
  ProxyInfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  ProxyInfo.lpszProxyBypass := 'www.delphipraxis.net;192.168.*';
  if not InternetSetOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, SizeOf(ProxyInfo^)) then 
    ShowMessage(Format('error %d', [GetLastError]));
  FreeMem(ProxyInfo);
end;

marabu