hmm ich hab nun noch ein wenig rumprobiert,
der Proxy Support läuft nun zumindestens
wenn man eine Instanz des TWebBrowser
in den Call einbaut:
Delphi-Quellcode:
var
MyInternetProxyInfo: PInternetProxyInfo;
lbResult: boolean;
begin
MyInternetProxyInfo := New(PInternetProxyInfo);
try
MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
MyInternetProxyInfo^.lpszProxy := PChar('
127.0.0.1:80');
MyInternetProxyInfo^.lpszProxyBypass := PChar('
<local>');
lbResult := InternetSetOption(
nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
if not lbResult
then
raise Exception.Create('
Couldn''
t apply proxy settings!')
else
Webbrowser.Navigate('
http://domain.com');
finally
Dispose(MyInternetProxyInfo);
end;