TEmbeddedWB mit Proxy

[-=Breeze=-]

Guten Abend, :hi:

ich möchte mithilfe des TEmbeddedWB über einen Proxy verbinden.
AutoLoadProxy habe ich auf true.

Wenn ich die Proxy-Adresse und -Port über den OI eingebe, funktioniert es.
Wenn ich nun aber die Einstellungen im Quellcode setzen will, klappt es iwie nicht:

Delphi-Quellcode:

  webb.ProxySettings.Address := '193.136.xxx.xxx';
  webb.ProxySettings.Port := 3124;
  webb.Go('http://www.wieistmeineip.de');

Er verbindet einfach ohne Proxy, ich kann auch

Delphi-Quellcode:

webb.ProxySettings.Address := 'QUARK'

eintragen.

Hat jemand eine Idee :?:

[toms]

Hallo

Sollte so gehen:

Delphi-Quellcode:

 EmbeddedWB1.ProxySettings.SetProxy(UserAgent, Address, UserName, Password, Port);

[-=Breeze=-]

Hallo,

danke für die Antwort.
Das habe ich auch schon probiert, bin aber gescheitert, weil ich nicht weiß was bei UserAgent hinkommt...

Weiß jemand bescheid?

[toms]

Bei UserAgent kannst du GetIEUserAgent einsetzen:

Delphi-Quellcode:

function GetIEUserAgent: string;
var
  reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_CURRENT_USER;
      try
        if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform', True) then
          Result := ReadString(UserAgent);
      finally
        CloseKey;
      end;
    end;
  finally
    Free;
  end;
end;