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