Всем привет! Не часто я пишу на форумы – отправляюсь в гугл. Но вот одну проблему никак решить не могу: XE2 и прокси с авторизацией.
Есть чудесная процедура proxy_go:
Код:
procedure proxy_go(proxy: string);
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);
end;
Вот только PAnsiChar()
преобразует только 1ый символ, и как не возись (что только не пробовал), не исправить это дело. PChar, PWideChar, и аналогичные Ansi не спасают. Но если задать строкой – всё отлично работает:
proxy_info^.lpszProxy := ‘123.456.78.90:80’;
Для обычных прокси решение я нашёл - MappedPort, и всё бы ничего, да вот необходимо использовать прокси с авторизацией. Возился с EmbeddedWB, и вроде вот оно – счастье, но не всё так легко оказалось…
Настройки прокси устанавливаются именно для ie, проксю установить можно, но вот отключить – незя.. через реестр вырубать муторно.
Помогите, ткните носом если нужно, как twebbrowser заставить работать через прокси с авторизацией?