[WAScrew]

Всем привет! Не часто я пишу на форумы – отправляюсь в гугл. Но вот одну проблему никак решить не могу: XE2 и прокси с авторизацией.

Есть чудесная процедура proxy_go:

Код:

1 2 3 4 5 6 7 8 9

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 заставить работать через прокси с авторизацией?