TWebbrowser in Delphi XE7 Starter

[Woodman]

Hallo allerseits,
das Thema wurde schon mehrfach behandelt, aber nicht für XE7 Starter.
Ich habe mir hier die TWebBrowser.zip geholt und entpackt.
Beim Einlesen von kommt zunächst diese Fehlermeldung:

Code:

[Window Title]
Fehler

[Content]
Projekt ....\Delphi\TWebBrowser\WebBrowserDelphiXEStarter.dproj kann nicht geladen werden
'false' ist kein gültiger Integerwert

[OK]

Ich habe diverse 'false'-Werte durch '0' ersetzt, dann ließ sich das Projekt zumindest laden. Beim versuch der Installation der Komponente kommt folgender Fehler:

Code:

[dcc32 Fehler] SHDocVw_TLB.pas(3206): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

und zwar bei allen Funktionen ähnlichen Konstrukts:

Delphi-Quellcode:

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

Aber: Wenn ich mit der Maus über den Funktionsnamen verweile, kommt dieser Hinweis:
http://www.delphipraxis.net/attachme...2&d=1441211701
Und die Parameter passen alle, sowohl von der Anzahl als auch vom Typ!

Weiß jemand Rat?

[mkinzler]

Wie ist EmptyParam definiert? Müsste ein OleVariant sein.

[Woodman]

Korrekt!
http://www.delphipraxis.net/attachme...3&d=1441212337

[hathor]

Vielleicht verstehe ich etwas falsch:
Ist die Installation erfolgreich oder was verstehst Du darunter?

Ziehe TWebBrowser auf ein Formular.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('www.web.de');
end;
//oder
procedure TForm1.Button2Click(Sender: TObject);
var s : WideString;
begin
  s:= 'www.web.de';
  WebBrowser1.Navigate(s);
end;

[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:

Zitat von Woodman (Beitrag 1314481)

Korrekt!
http://www.delphipraxis.net/attachme...3&d=1441212337

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

Zitat:

Zitat von Woodman (Beitrag 1314479)

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.

[Woodman]

Zitat:

Zitat von einbeliebigername (Beitrag 1314503)

.... 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.

Vielen Dank für die Rückmeldung, das werde ich heute noch probieren.:-D

[Woodman]

Ja, das war's

Delphi-Quellcode:

procedure Register;

resourcestring
  dtlServerPage = 'Internet';

  dtlOcxPage = 'Internet';

var EmptyParam: OleVariant;              // <<< Hier definiert

implementation

uses ComObj;

Ich habe EmptyParam in der 'SHDocVw_TLB.pas' neu definiert, und schon ließ sich die Komponente fehlerfrei installieren.:-D

Wie gut sie funktioniert, werde ich heute im laufe des Tage noch testen.