![]() |
|
#1
|
|||
|
|||
![]() Здравствуйте
общем такой простой вопрос своего рода как у компонента EmbeddedWB изменить прокси, всё уже перепробовал - нечего не работает ( вот что пробовал, но при нажатие прокси не меняется ( Код:
procedure TForm1.Button1Click(Sender: TObject); begin EmbeddedWB1.RefreshProxy; EmbeddedWB1.ProxySettings.AutoLoadProxy:=true; EmbeddedWB1.ProxySettings.Address:=form1.Edit5.Text; EmbeddedWB1.ProxySettings.port:=strtoint(form1.Edit6.Text); EmbeddedWB1.RefreshProxy; EmbeddedWB1.Navigate('http://2ip.ru/'); end; кто знает как это исправить прошу помочь |
#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, т.к. мой код был предназначен для цикла. |