Нужно было отловить пакет отправляемый WebBrowser.
Я использовал функцию
Код:
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('127.0.0.1:5001');
При этом создал в программе SocketServer и перехватил пакет.
Но как вернутся обратно незнаю, пробовал выгружать браузер WebBrowser1.destroy
и загружать заново динамически, но браузер продолжает отправять пакеты на мой socketserver.
Как отключить прокси в WebBrowser?
функция обратная Proxy_GO
Помогите пожалуйсто.