я делал так:
1) менял настройки прокси:
Код:
uses SHDocVw, wininet,urlmon;
...
procedure CHProxy(proxy:AnsiString);
var proxy_info : PInternetProxyInfo;
begin
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PansiChar(proxy);
proxy_info^.lpszProxyBypass := PANsiChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
UserAgent:='';
UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PChar(UserAgent), Length(UserAgent), 0);
Dispose(proxy_info);
end;
2) создавал браузер
Код:
procedure ReCreateWB;
begin
if wb<>nil then wb:=nil;
wb:=TEmbeddedWB.Create(form1.Panel1);
panel1.InsertControl(wb);
wb.Left:=0;
wb.Top:=0;
wb.Align:=alClient;
wb.DisableErrors.EnableDDE:=true;
wb.DisableErrors.fpExceptions:=true;
wb.DisableErrors.ScriptErrorsSuppressed:=true;
wb.DialogBoxes.DisableAll:=true;
end;
3) ну и выполнял необходимые операции
Код:
wb.navigate('http://2ip.ru');
p.s. удаление (пересоздание) браузера тоже встроено в ReCreateWB, т.к. мой код был предназначен для цикла.