Скачать: CL | DM;

как обойти проксю используя EmbeddedWB?   Найти похожие ветки 

← →
аноним   (2006-02-19 18:58) [0]

в общем ситуация следующая. есть EmbeddedWB, которого нужно пускать мимо прокси установленной в настройках обозревателя.

ситуация такая, что на многих машинах стоит прокси для сжатия трафика, а используемый EmbeddedWB шарится только по сегменту, не выходя за его пределы. как бы так заставить EmbeddedWB (или простой WB) временно не воспринимать конфиг обозревателя? (

просто переключать туда сюда программно опцию с проксей не есть гуд, имхо.

умоляю, помогите +)

---

← →
easy ©   (2006-02-19 19:38) [1]

http://www.delphimaster.ru/articles/TWebBrowser.html

---

← →
аноним   (2006-02-20 10:10) [2]

огромное человеческое пасибо )

---

← →
аноним   (2006-02-20 10:46) [3]

но есть сложность...

procedure TfrmMain.btnHomepageClick(Sender: TObject);
var
PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
 PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;  
 PIInfo^.lpszProxy := PChar("");                
 PIInfo^.lpszProxyBypass := PChar("");              
 UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
 EmbeddedWB1.Navigate(cHomepage);
Dispose(PIINfo);
end;

при условии что у меня cHomepage = "http://192.168.0.1/", а стоит локально прокся для сжатия трафика localhost:8090 -> не работает. т.е. при вызове Navigate WB щимится через проксю, который нюхом не чует что это локальный адрес и обрабатывать его не стоит (про исключения на проксе знаю, но это мой локальный комп, не стоит забывать что каждому юзверю при наличии прокси (а они бывают разные) вбивать подобное не есть гуд...)

---

← →
аноним   (2006-02-20 10:49) [4]

procedure TfrmMain.btnHomepageClick(Sender: TObject);
var
PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
 PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;  
 PIInfo^.lpszProxy := PChar("localhost:8888"); // несуществующий                
 PIInfo^.lpszProxyBypass := PChar(cHomepage);              
 UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
 EmbeddedWB1.Navigate(cHomepage);
Dispose(PIINfo);
end;

вот такая вот штука сработала... но сие тоже не есть гуд. как отказаться от использования прокси вообще? почему PIInfo^.lpszProxy := "" не работает? (

---

← →
аноним   (2006-02-20 10:51) [5]

procedure TfrmMain.btnHomepageClick(Sender: TObject);
var
PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
 PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_DIRECT ;  
 PIInfo^.lpszProxy := nil;                
 PIInfo^.lpszProxyBypass := nil;              
 UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
 EmbeddedWB1.Navigate(cHomepage);
Dispose(PIINfo);
end;

всем спасибо, я - идиот )

---

← →
SergP.   (2006-02-22 13:40) [6]

> вот такая вот штука сработала... но сие тоже не есть гуд.
>  как отказаться от использования прокси вообще? почему PIInfo^.
> lpszProxy := "" не работает? (


В таком случае по идее должны браться настройки эксплорера...


>  PIInfo^.lpszProxy := PChar("localhost:8888");


Можно и так:

PIInfo^.lpszProxy := PChar(":0");
Чтобі соединяться напрямую без проксей...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c