[ucoz.desinder999]

Здравствуйте
общем такой простой вопрос своего рода как у компонента 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;

кто знает как это исправить прошу помочь

[NekitoSSSS]

я делал так:
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, т.к. мой код был предназначен для цикла.