TWebbrowser in Delphi XE7 Starter

[einbeliebigername]

Hallo Woodman,

ich habe gerade keine XE7-Installation am laufen. Bei XE8 steht in System.Variants:

Delphi-Quellcode:

{.$DEFINE EMPTYPARAM_VAR}
{$IFDEF EMPTYPARAM_VAR}
var
  EmptyParam: OleVariant;    // "Empty parameter" standard constant which can be
  {$EXTERNALSYM EmptyParam}  // passed as an optional parameter
{$ELSE}
function EmptyParam: OleVariant;// "Empty parameter" standard constant that
{$EXTERNALSYM EmptyParam}       // can be passed as an optional parameter
{$ENDIF}

Was hat sich der Dichter dabei bloß gedacht? Darüber sollte man mal diskutieren!

Und dein Bild

Zitat von Woodman:

Korrekt!

zeigt das EmptyParam bei dir einen Funktion ist. Der Fehler erscheint zu recht. Die Definition von EmptyParam ist für

Zitat von Woodman:

Delphi-Quellcode:

procedure TWebBrowser.Navigate(const URL: WideString);
begin
  DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

falsch. Bei den Starter-Versionen war glaube ich kein Sourcecode dabei. Schau doch trotzdem mal ob irgendwo in den XE7-Verzeichnissen eine System.Variants.pas liegt. Oder du machst daraus

Delphi-Quellcode:

procedure TWebBrowser.Navigate(const URL: WideString);
var
  MyEp: OleVariant;
begin
  MyEp:= EmptyParam;
  DefaultInterface.Navigate(URL, MyEp, MyEp, MyEp, MyEp);
end;

einbeliebigername.