Помощь - Поиск - Пользователи - Календарь
Полная версия: twebbrowser proxy
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Rian
нашел для указания браузеру прокси такую процедуру, только до ее выполнения браузер загружает, а после указания прокси перестает...

procedure proxy_go(proxy: string);
var proxy_info : PInternetProxyInfo;
begin
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PChar(proxy);
proxy_info^.lpszProxyBypass := PChar('');

UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
Dispose(proxy_info);
end;

proxy_go('82.179.217.243:8080');






ЗЫ так кажется мои опасения по поводу версии делфи оправдались и delphi7 код заработал.... почему не работает в delphi2009 ??
IUnknown
Цитата
почему не работает в delphi2009 ??
Потому что не PChar надо использовать в 2009, а PAnsiChar...
Rian
Цитата(IUnknown @ 11.11.2011 18:38) *

Потому что не PChar надо использовать в 2009, а PAnsiChar...

а) блин всего-то

ЗЫ просто интересно как об этом можно узнать?
IUnknown
Цитата
просто интересно как об этом можно узнать?
Заходить почаще на forums.embarcadero.com, не у тебя первого эта проблема возникла... smile.gif
Rian
таак.. щас проверил, походу не то, нельзя написать PAnsiChar, несовместимость типов
IUnknown
procedure proxy_go(proxy: AnsiString);
var proxy_info : PInternetProxyInfo;
begin
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PChar(proxy);
proxy_info^.lpszProxyBypass := nil;
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
Dispose(proxy_info);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
proxy_go(AnsiString('82.179.217.243:8080'));
end;
(На предупреждение компилятора в данном случае придется закрыть глаза)...
Rian
ok
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.