Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.08.2010, 10:06
ucoz.desinder999 ucoz.desinder999 вне форума
Прохожий
 
Регистрация: 04.06.2010
Сообщения: 23
Репутация: 10
По умолчанию Embedded и прокси

Здравствуйте
общем такой простой вопрос своего рода как у компонента 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  
Старый 02.09.2010, 15:25
Аватар для NekitoSSSS
NekitoSSSS NekitoSSSS вне форума
Начинающий
 
Регистрация: 02.05.2009
Адрес: Башкортостан, г.Благовещенск
Сообщения: 142
Версия Delphi: XE
Репутация: 13
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter