User Agent ft. UrlMkSetSessionOption

[Bladefire]

Hallo,

ich bin noch immer auf der suche wie ich den UserAgent für den TWebBrowser ändern kann.

Diese Methode scheint bis jetzt die vielversprechendste zu sein:

Code:

procedure SetUserAgent(UserAgent: String);
begin
  UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Pchar(UserAgent), length(UserAgent), 0);
end;

Jedoch gibt es ein Problem. Es wird laut verschiedenen Webseiten die den User Agent string auslesen und anzeigen, nur der erste buchstabe (in diesem Fall "M") als User Agent
wargenommen.

UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0'

Was soll ich machen damit ich den user agent entlich ändern kann?

_____
Edit: Embarcadero® RAD Studio XE6 Version 20.0.16277.1276

[mkinzler]

Was für eine Delphiversion?

Versuch es mla mit AnsiString/PAnsiChar

[Bladefire]

OHMGGJLASDFJLDASJFÖL JLSDÖJFLDSJ FLÖDJSÖFDKJS ÖFDJSÖLAFJDKSLFJDÖASFJ

yuhhuuuuhuuuu.

DANKE^10. danke danke danke danke danke danke. Ich habe soviele stunden danach gesucht und entlich funktioniert es. HERZLICHEN DANK!

AnsiString/PAnsiChar hat funktioniert.

danke !!!!!

Lg Simon