![]() |
|
|
#2
|
||||
|
||||
|
я делал так:
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; Код:
wb.navigate('http://2ip.ru');p.s. удаление (пересоздание) браузера тоже встроено в ReCreateWB, т.к. мой код был предназначен для цикла. |