Webstite in Tabsheet Anzeigen

[Delbor]

Hi zusammen

In einem Pagecontrol will ich auf jeweils einem eigenen Tabsheet eine bestimmte Website anzeigen. Das klaptt auch soweit fast gut, mit dem 'klitzekleinen' Fehler, dass die gewünschte Webseite auch angezeigt wird - allerdings nicht innerhalb des Tabsheets, sondern als 'eigenständiges' Fenster und ohne dass dabei meine Anwendung im Hintergrund sichtbar wäre.
Der bisherige Code:

Delphi-Quellcode:

procedure TOfficerAlexMain.Btn_CSSClick(Sender: TObject);
  var FireFox : String;
begin
  ShellExecute(0,'open', Pchar('FireFox.exe'), PChar('https:my.css.ch/home'), nil, SW_Hide);

  SetFireFoxParent(Sender);
end;

procedure TOfficerAlexMain.SetFireFoxParent(Sender: TObject);
  var aWnd : Hwnd; TbsFireFox: TTabsheet;
    WPM : TWindowPlacement;
begin
  aWnd:=FindWindow('https:my.css.ch/home',nil);
  if aWnd<>0 then begin
    Winapi.Windows.SetParent(awnd,TbsFireFox.Handle);
  end;
end;

Dabei macht schon ShellExecute genau das, was es tun soll und startet den Firefox mit der gewünschten Website. Allerdings als eigenes Fenster, und meine Anwendung ist im Hintergrund nicht zu sehen.

Was mache ich Falsch?

Gruss
Delbor

[Der schöne Günther]

Ich würde stark davon abraten, fremde Prozesse in deinem Fenster zu hosten.

Lesestoff:
https://stackoverflow.com/questions/...another-proces

Entweder hat Firefox eine extra hierfür vorgesehene Integrationsmöglichkeit, oder du nimmst eine Komponente wie den TWebBrowser.

[Delbor]

Hi der schöne Günther

Zitat:

Ich würde stark davon abraten, fremde Prozesse in deinem Fenster zu hosten.

Lesestoff:
https://stackoverflow.com/questions/...another-proces

Entweder hat Firefox eine extra hierfür vorgesehene Integrationsmöglichkeit, oder du nimmst eine Komponente wie den TWebBrowser.

Der Sinn der FireFox-Exe auf einem Tabsheet ist die erleichterte Erreicharkeit derselben aus meinem Programm heraus. Die angezeigte Webseite soll durchsucht werden und Dateien hoch-bezw. Heruntergeladen werden können. Die entsprechenden Mechanismen stellt dabei die Website bereit.

Klar könnte ich erst eine dieser Seiten 'normal' aufrufen - so, wie ich das sehe, müsste ich vieles 'von Hand' und mehrfach machen, das per Code viel schneller und sicherer erledigt werden kann.

Gruss
Delbor

[himitsu]

Und wenn Firefox was umbaut, funktioniert nichts mehr.

Geil z.B., wenn es nicht im neuen Fenster aufgeht, sondern im neuen Tab, weil der User es so eingestellt hat.
(er freut sich bestimmt, wenn du ihm das komplette Fenster klaust)

TWebBrowser ist ein Edge in deinem Programm (früher ein InternetExplorer), bzw. inzwischen direkt TEdgeBrowser,
aber es gibt z.B. auch CEF4Delphi (Chromium Embedded Framework, bzw, Chromium Based WebView Component), also die Chrome-Browser-Engine.

Und schau mal in die Demos
C:\Users\Public\Documents\Embarcadero\Studio\23.0\Samples\Object Pascal\VCL\WebBrowser

PS: Wer die Delphi-Demos nicht installiert hat, der findet die auch online
https://github.com/Embarcadero/RADSt...VCL/WebBrowser

[Delbor]

Hi zusammen

Die Fehlermeldung:

Zitat:

---------------------------
GExperts Debugger Exception Notification
---------------------------
Project OfficerAlexProject.exe raised exception class EAccessViolation with message 'Access violation at address 009B274B. Read of address 000004A8'.
---------------------------
[&Filter ...] [Ignore &All this Session] [Break] [Additional &Info] [Continue]
---------------------------

Ich habe gestern abend eine TWebbroser-Komponente in mein Tabsheet eingefügt und gleich getestet. Das hat erstmal prächti funktioniert - ich konnte eine Combo-Box öffnen, mit der Dateien hochgeladen werden können und einiges mehr. Das funktioniert hute morgen nicht mehr. Der auslösende Code:

Delphi-Quellcode:

procedure TOfficerAlexMain.Btn_CSSClick(Sender: TObject);
begin
  WebBrowserCSS.Navigate2('https:my.css.ch/home');
end;

Nachdem ich gestern abend diesen Code eingefügt und die gewünschte Website mehrmals anzeigen konnte, fügte ich einen weiteren TWebbrowser hinzu,der allerdings eine andere Webseite anzeigen soll. Mit dem zweiten Webbrowser will ich erreichen, dass ich zur gleichen Zeit 2 Webseiten geöffnet haben kann. Dieser zweite Webbroser liegt zur Zeit auf einem der Tabsheets und tut sonst nichts.
Was könnte die Ursache für obige Fehlermeldung sein?

Gruss
Delbor