| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как обойти проксю используя EmbeddedWB? [D7, WinXP]

аноним ©   (2006-02-19 18:58:00) 

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

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

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

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

---

SergP.   (2006-02-22 13:40:00) [1]

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


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


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


Можно и так:

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

---

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

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;

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

---

аноним   (2006-02-20 10:49:00) [3]

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:46:00) [4]

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

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:10:00) [5]

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

---

easy   (2006-02-19 19:38:00) [6]

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

---

Наверх