TEdgeBrowser

[Delbor]

Hi zusammen

Seit einiger Zeit arbeite ich nun mit Delphi Alexandria und baue hier an einem unter Sydney begonnenen Projekt weiter.
Dazu gehört auch ein Frame mit einem TEdgebrowser. Dieser soll jeweils zusammen mit einem Tabsheet (mit diesem als Parent) erzeugt werden.
Testweise geh ich (in Sydney) vorerst so vor:

Delphi-Quellcode:

procedure THomeOfficerFeMain.BitBtn1Click(Sender: TObject);
begin
  EdgeBrowserFrame1.EdgeBrowserNavigateproc;
end;

Die folgende Prozedure war ursprünglich dazu vorgesehen, einen einzelnen TEdgeBrowser aufzunehmen und da die Urls zu wechseln. Statt dessen Weise ich hier eine Url vorerst statisch zu:

Delphi-Quellcode:

procedure TEdgeBrowserFrame.EdgeBrowserNavigateproc;
  var URL: String;
begin
 URL := 'F:\BenutzerHandbücher&Manuals\Benutzerhandbuch HP OfficeJet 3830 All-in-One series';
 EdgeBrowserNewWebSeiteTab(URL);
end;

...um diese dann in einem neuen Tabsheet darzustellen:

Delphi-Quellcode:

procedure TEdgeBrowserFrame.EdgeBrowserNewWebSeiteTab(URL: string);
  var NewTab: TRzTabSheet; NewEdge: TEdgeBrowser; TabIdx : integer;
begin
  TabIdx := Self.RzPageControl1.PageCount;
  NewTab := TRzTabSheet.Create(Self);
  NewTab.PageControl := Self.RzPageControl1;
  NewTab.Caption := URL;
  NewTab.Name := 'NewTab' + inttoStr(TabIdx + 1);
  NewTab.PageControl := RzPageControl1;
  NewTab.Parent := RzPageControl1;
  RzPageControl1.ActivePage := Newtab;
  NewEdge := TEdgeBrowser.Create(Self);
  NewEdge.Parent := NewTab;

//  NewEdge.CreateWebView;
  NewEdge.Align := alClient;

  NewEdge.Navigate('F:\BenutzerHandbücher&Manuals\Benutzerhandbuch HP OfficeJet 3830 All-in-One series');
  FWebPageList.Add(NewTab);
end;

Das klappt soweit einwandfrei, mit nach meinen Erkenntnissen zwei Einschränkungen (selbst, wenn ich wie hier CreateWebView ausklammere):

• Der Edgeviewbrowser muss sich auf einer aktiven Seite befinden
• Das Tempo ist unter aller ...

In Delphi Alexandria ist zur Zeit die Demo geladen, und die begrüsst mich so:

Zitat:

Edge initialisation error
---------------------------
Failed to initialise Edge loader
---------------------------
OK

Eine Url hab ich da noch nicht eingegeben (Einige URLs gibts in der Unit, die aber nicht aufgerufen werden. Ich hab bisher nicht herauskriegen können, was mit dem 'Failed to initialise Edge loader' gemeint ist. 'CreateWebView' ist damit offenbar nicht gemeint.
Wieso funktionierts in Sydney, in Alexandria aber nicht?

Gruss
Delbor

[Uwe Raabe]

Das EdgeView-SDK aus GetIt hast du installiert?
Den Post-Build-Event zum Kopieren der DLL hast du auch angelegt (Projektkonfiguration für WebView2-Loader-DLLs)?

[Delbor]

Hi zusammen

Mir ist klar: der Thread ist alles andere als Taufrisch, das Problem allerdings ist geblieben, bzw nicht wirklich gelöst. In der Anwendung, von der bisher die Rede war, funktioniert das vorerst 'einwandfrei'. Das heisst: die Prozedur EdgeBrowserNewWebSeiteTab erzeugt mir ein neues Tab und einen EdgeBrowser auf dem Pagecontrol, und dieser zeigt mir an der Url eine anklickbare Liste mit Ordnern an, über die ich Pdf-Dokumente öffnen kann.
Das Verzeichnis der exe (F:\Embarcadero Project Corner\HomeOfficerFirstEdition\Win32\Debug) sieht so aus:


Das obige Programm musste ich unter Verwendung bestehenden Codes neu schreiben, wobei ich den selben Code und einen neu erzeugten Frame verwende. Das Verzeichnis der exe (F:\Embarcadero Project Corner\Delphi Alexandria Corner\Alexandria Project Corner\OfficerAlexProject\Win32\Debug) sieht diesmal so aus:


Hier wird das Tabsheet erzeugt und der Pfad auf dem Tab angegeben, aber die erwartete Seite wird nicht angezeigt.
Grundsätzlich könnte ich jetzt einfach die fehlenden Ordner in den neuen EXE-Ordner kopieren. Das Problem ist allerdings: ich kann nicht wirklich nachvollziehen, ob dies richtig wäre.

Soeben habe ich den Rat von Uwe Raabe umgesetzt:

Das Resultat:

Zitat:

[Exec Fehler] Der Befehl "copy /Y "common_DLL_folder_path\x86\WebView2Loader.dll " F:\Embarcadero Project Corner\Delphi Alexandria Corner\Alexandria Project Corner\OfficerAlexProject\Win32\Debug\" wurde mit dem Code 1 beendet.
Verstrichene Zeit: 00:00:35.4

Und nun?

Gruss
Delbor

[DeddyH]

Dein OutputDir enthält Leerzeichen, deshalb muss das in Deinem Befehl auch in Anführungszeichen gesetzt werden.

[Delbor]

Hi zusammen

Jetzt zeigt der Edgebrowser tatsächlich die gewählte Pdf-Datei an - wobei ich mal davon ausgehe, dass HTML oder Pdf sozusagen egal ist.

Zitat von Uwe Raabe:

Das EdgeView-SDK aus GetIt hast du installiert?
Den Post-Build-Event zum Kopieren der DLL hast du auch angelegt (Projektkonfiguration für WebView2-Loader-DLLs)?

Gemäss diesem Rat habe ich das Build-Event mit dem gezeigten String angelegt und die gepostete Fehlermeldung erhalten.
Dann hab ich eine weitere Demo entdeckt und dern BuildEvents gecheckt. Und da ist eingetragen:
copy /y "$(BDS)\Redist\win32\WebView2Loader.dll" "$(OUTPUTDIR)" Das hab ich so in meinem Projekt eingetragen, und das funktioniert soweit (ausser, dass das Tempo nach wie vor ... ist.)

Zitat von DeddyH:

Dein OutputDir enthält Leerzeichen, deshalb muss das in Deinem Befehl auch in Anführungszeichen gesetzt werden.

Erst dachte ich, ich hätte das wirklich übersehen, doch der da angegebene String enthält Anführungszeichen :

Zitat:

copy /Y "common_DLL_folder_path\x86\WebView2Loader.dll " $(OUTPUTDIR)

Mein aktuell verwendeter String im Build-Event:

Zitat:

copy /y "$(BDS)\Redist\win32\WebView2Loader.dll" "$(OUTPUTDIR)"

Okay, das macht klar, wo die Anführungszeichen fehlen.

Für mich wesentlich ist vor allem: krieg ich den Edge auch in kommenden Anwendungen auf diese Art zum laufen? Eine aktuellere Delphi-Version wird es höchstens noch in Form einer Community geben.


Gruss
Delbor