Code: Select all
procedure TMainForm.Proxy1ButtonClick(Sender: TObject);
begin
ChromiumWindow1.ChromiumBrowser.ProxyType := CEF_PROXYTYPE_FIXED_SERVERS;
ChromiumWindow1.ChromiumBrowser.ProxyServer := 'proxy.host';
ChromiumWindow1.ChromiumBrowser.ProxyPort := 8000;
ChromiumWindow1.ChromiumBrowser.ProxyUsername := '1000+US+10-1'; // "1" is the session, it generates a new proxy
ChromiumWindow1.ChromiumBrowser.ProxyPassword := 'ThePassword';
ChromiumWindow1.ChromiumBrowser.ProxyScheme := psHTTP;
ChromiumWindow1.ChromiumBrowser.UpdatePreferences;
ChromiumWindow1.ChromiumBrowser.LoadURL('http://checkip.dyndns.org/'); // Here is IP 1
end;
Code: Select all
procedure TMainForm.Proxy2ButtonClick(Sender: TObject);
begin
ChromiumWindow1.ChromiumBrowser.ProxyType := CEF_PROXYTYPE_FIXED_SERVERS;
ChromiumWindow1.ChromiumBrowser.ProxyServer := 'proxy.host';
ChromiumWindow1.ChromiumBrowser.ProxyPort := 8000;
ChromiumWindow1.ChromiumBrowser.ProxyUsername := '1000+US+10-2'; // "2" is the session, it generates another proxy
ChromiumWindow1.ChromiumBrowser.ProxyPassword := 'ThePassword';
ChromiumWindow1.ChromiumBrowser.ProxyScheme := psHTTP;
ChromiumWindow1.ChromiumBrowser.UpdatePreferences;
ChromiumWindow1.ChromiumBrowser.LoadURL('http://checkip.dyndns.org/'); // Here is also IP 1?
end;
Is it possible to change proxy without restart?