Comment lancer msedge.exe avec une url, mais captif dans un TPanel ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

29/10/2024, 11h28
KlausGunther

Comment lancer msedge.exe avec une url, mais captif dans un TPanel ?

Je suis sous Delphi 6 PE et j'essaie de lancer EDGE (exécutable: C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe).
J'arrive à le lancer,, même avec une URL de départ,, mais je n'arrive pas à capter le handle, même via le ProcessID, pour pouvoir injecter la fenêtre Edge dans un TPanel (vis SetParent).
Cela marche bien avec Notepad ou d'autres outils, mais pas avec Edge. Pourquoi ? Est-ce quelqu'un aurait une solutiion ?
Merci !
29/10/2024, 13h02
ShaiLeTroll

Pourquoi ne pas plutôt utiliser un TWebBrowser, eventuellement trouver sur le net une version D6 d'un TEdgeBrowser : Introduction to Microsoft Edge WebView2
l'OLE est LA bonne méthode, celle prévue par MS : Tu peux utiliser Visual Studio Express pour ce tuto Get started with WebView2 in Win32 apps ... tu pourrais d'ailleurs en faire une DLL pour l'utiliser dans Delphi comme Proxy si tu ne trouves pas un TEdgeBrowser compatible D6

Tente un Import de TLB depuis D6 si ce menu est disponible en version Personnal ... cela sera plus rugueux d'utilisation que le TWebBrowser via les Interfaces directement mais Edge est bien complexe que IE, même la création du OLE ce n'est pas standard, voir CreateCoreWebView2EnvironmentWithOptions ... sans trouver un wrapper déjà écrit, cela me semble assez difficile, MS fourni un SDK que Embarcadero a traduit sous la forme du TCustomEdgeBrowser qui lui même sert en interne pour l'Engine Edge du TWebBrowser

Edge comme Chrome lance plusieurs processus, plusieurs par onglets pour traiter en fond de tache l'affichage d'une page et les téléchargements.
Tenter de chopper toutes les Fenêtres de Edge pour trouver celle qui correspond pourrait fonctionner un temps mais quand MS changera le navigateur, cela ne fonctionnera plus.

Déjà avec IE la méthode du SetParent n'était pas très stable, alors avec Edge, cela sera pire.

Tu peux aussi utiliser une intégration de Chromium, par exemple le projet CEF4Delphi et WebView4Delphi, on trouve D6 dans le .inc, possible que cela supporte encore cette version (surtout si cela supporte aussi Lazarus FPC, le code doit être le plus syntaxiquement simple que possible) sachant que le ReadMe mentionne encore D6 :

Citation:

CEF4Delphi was developed and tested on Delphi 12.2 and it has been tested in Delphi 6, Delphi XE, Delphi 10, Delphi 11 and Lazarus 3.6/FPC 3.2.2. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.
29/10/2024, 13h38
KlausGunther

Merci beaucoup, ShaiLeTroll. Tu me donnes une série de pistes qu je vais explorer une à une. Mais c'est dommage.

Avec TWebBrowser basé sur InternetExpolrer, cela ne posait aucun problème. Mais cela ne fonctionne plus avec W10 et W11. Je suis donc contraint de trouver une nouvelle solution.

Tu me dis que je pourraiis essayer tous les processus msedge.exe pour trouver celui qui représente la fenêtre principale. Je vais commencer par cela, via une énumération des processus actifs (ce que je sais faire). Puis, je vais tenter les autres pistes.

Avec TWebBrowser, as-tu mis l'émulation 11 ?
Je l'utilise encore pour des écrans de consentement OAuth via REST.Authenticator.OAuth.WebForm.Win en D10 qui n'a pas non plus de TEdgeBrowser

Avant de faire le Navigate, je lance ceci, je le lance même avant de créer l'instance de Tfrm_OAuthWebForm, je me suis fait une classe pour encapulser cet objet VCL, tu as un exemple REST.RESTDemo Sample qui utilise le TWebBrowser pour le consentement OAuth, travaillant beaucoup avec des services REST, le TWebBrowser est vraiment un composant clé dans la chaine d'obtention de token (quand il n'y a pas de auto-sign via HMAC)

Je te confirme qu'un moment, je dirais, il y a 6 mois, j'ai eu des difficultés aussi avec le TWebBrowser, Google Auth le refusait mais je n'ai plus le problème, j'avais même commencé à étudier le TEdgeBrowser pour voir, mais finalement, cela fonctionne de nouveau.

Je le fais aussi dans un autre projet où j'affiche du MarkDown converti en HTML (un outil genre Git mais orienté DB)

Cela fonctionne en 32 et 64 bits
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 procedure CheckWebBrowserEmulation(); const KEY = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION'; var Reg: TRegistry; EmulationLevel: Integer; begin EmulationLevel := 0; Reg := TRegistry.Create(KEY_QUERY_VALUE); try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(KEY, False) then if Reg.ValueExists(ExtractFileName(Application.ExeName)) then EmulationLevel := Reg.ReadInteger(ExtractFileName(Application.ExeName)) finally Reg.Free(); end; if EmulationLevel <> 11000 then begin if MessageDlg(Format('Allow Change WebBrowser Emulation Level from %d to 11000 ?', [EmulationLevel]), mtConfirmation, mbYesNo, 0) = mrYes then begin Reg := TRegistry.Create(KEY_SET_VALUE); try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(KEY, True) then begin Reg.WriteInteger(ExtractFileName(Application.ExeName), 11000); CheckOSError(Reg.LastError); end else CheckOSError(Reg.LastError); finally Reg.Free(); end; end; end; end;
Application.ExeName, si c'est dans une DLL, à remplacer par GetModuleName(0) ou ParamStr(0) car c'est l'EXE qui compte je pense

Au cas où, je gère maintenant un mode Browser externe au lieu de l'intégrer, pour mes besoins, cela ne pose pas problème pour le moment.

29/10/2024, 14h40
ShaiLeTroll

Mince, je me rends compte que je t'avais déjà donné ce code dans Est-ce qu'il y a un composant ou xrapper pour WebView2 pour DELPHI 6 ? ... je suppose que tu l'utilises déjà !

On avait déjà évoqué dans ce sujet CreateWebViewEnvironmentWithOptionsInternal fourni par WebView2Loader.dll (installée par MicrosoftEdgeWebView2RuntimeInstallerX86), je ne sais pas si tu avais poussé plus en 2022 ton étude de ce point d'entrée, à la vue du code Delphi du TEdgeBrowser, c'est le début à tout mais pas simple !
29/10/2024, 17h38
KlausGunther

Merci beaucoup, ShaiLeTroll !

Ta procédure CheckWebBrowserEmulation a débloqué mon problème et a permis d'utiliser TWebBrowser sous W10 et W11.

Je n'ai donc pls bsoin de recourir à Edge ou un artifice quelconque.

Parfait ! Marci !
30/10/2024, 15h46
KlausGunther

4 pièce(s) jointe(s)

Oups... je pensais le problème résolu, mais que nenni !

La page ciblée semle s'affichier correctement.
Cependant, des parties manquent, en en allant plus loin, le browser m'affiche:
Pièce jointe 661171

En cliquant sur "Learn more", j'obtiens:
[Pièce jointe 661170

L'émulation est bien établie avec la valeur 11:
Pièce jointe 661174

D'ailleurs, aucun lien vers une autre page ne fonctionne.

Le comportement est le même si je place la valeur 0 dans le paramètre émulation.

Voici le lien vers la page que je veux afficher: http://klauspanoramic.infinityfreeap...aireIndex.html

Là, je suis à nouveau coincé...
31/10/2024, 10h09
KlausGunther

1 pièce(s) jointe(s)

Comme je suis bloqué avec TWebBrowser, j'ai essayé WebView4Delphi.
Je l'ai téléchargé et décompressé, j'ai copié le dossier dans mon dossier Borland\Delphi6\, puis j'ai ajouté le chemin vers ce dossier aux chemins de bibliothèque.
Puis, suivant les instructions d'installation pour D6, j'ai ouvert WebView4Delphi.dpk.
Je lance la compilation et j'obtiens:
Pièce jointe 661196

Or, je ne trouve aucun lien de téléchargement vers ce patch qui fonctionne. Je sais que le primier patch a été installé, mais pas le second. Comment puis-je faire pour récupérer ce patch, pour installer WebView4Delphi ou pour faire marcher TWebBrowser ?
31/10/2024, 11h48
papyvore

salut ici https://github.com/salvadordf/WebView4Delphi
il a l'air assez ressent mais je suppose que tu l'a déjà vu
31/10/2024, 13h33
KlausGunther

Oui, c'est à partir de ce site que j'ai téléchargé WebView4Delphi.

Et c'est ainsi que je me heurte à ce problème de compilation car ma version de Delphi 6 PE n'a pas le second patch mentionné dans le commentaire sur la ligne en erreur.

Et j'ai beau chercher sur le net pour pouvoir télécharger ce patch. Je trouve plusieurs liens, mais soit les liens sont motrs (erreur 404), soit l'accèe est interdir - va savoir pourquoi.

Et voilà - cela me ramèce à mon problème initial. Le site dont je veux afficher les pages, s'affiche correctement dans Firefox, Opera, Edge, Internet Explorer sous W10 (et donc émulé par Edge), Brave, ... Seul WebBrowser (émulé par Edge sous W10) n'est pas capable de le faire.

Auparavent, j'arrivais à capturer un browser et à l'attacher à un TPanel via l'API SetParent, mais je n'y arrive pas avec Edge. J'arrive bien à lancer programmatiquement Edge avec l'URL en question, soit par CreateProcess, soit par ShellExecute ou ShellExecuteEX, mais je n'arrive pas à déterminer le handle de la fenêtre significative pour la capturer dans mon TPanel.
31/10/2024, 13h58
papyvore

à lire https://en.delphipraxis.net/topic/59...ebview4delphi/
il semble que quelqu'un dit que ce compo ne fonctionne qu'à partir de D7 et propose autre chose
31/10/2024, 14h05
ShaiLeTroll

Faudrait retirer la ligne et voir à quel endroit c'est nécessaire ?
Si cela se trouve c'est requis pour une fonctionnalité que tu n'utiliseras pas.
31/10/2024, 14h14
ShaiLeTroll

Citation:

Envoyé par papyvore

à lire https://en.delphipraxis.net/topic/59...ebview4delphi/
il semble que quelqu'un dit que ce compo ne fonctionne qu'à partir de D7 et propose autre chose

Euh ... klaus49 c'est pas le même que KlausGunther ?
Tu n'aurais pas oublié cette tentative ?

Citation:

Unfortunately, I'm really stuck to Delphi 6 PE. I'm implementing a (huge) support DLL for another language, and all the stuff is writte, in Delphi 6 PE.

Actually, there are over 1300 support functions available, all fully documented in french and english.

un pseudo proche et un projet qui semble le même, la fameuse DLL pour Panoramic

Sinon pour quoi ne pas faire une SECONDE DLL ?
Tes utilisateurs de Panoramic, utilise toujours la première DLL compilé en D6 mais tu y mets dedans des fonctions qui ne sont que des Proxy vers une seconde DLL compilée en Delphi Community (32bits) qui contient des fonctionnalités trop pénible en D6.
Après tout ta DLL utilise déjà plein de DLL Windows, tu dois bien pouvoir lui faire utiliser une autre DLL de ta conception, en liaison dynamique, ainsi la seconde DLL est optionnelle, juste gérer un code d'erreur si l'on appel une fonction Proxy sans son implémentation présente dans la DLL secondaire.

D'ailleurs, pour ta fonction de WebBrowser, tu peux ajouter une autre fonction de paramètrage pour forcer le mode IE ou le mode Edge, la fonction Proxy selon le paramètrage utilisera le WebBrowser D6 ou utilisera la DLL secondaire qui utilisele WebBrowser D11/D12 Engine Edge.
31/10/2024, 14h47
KlausGunther

Ben... C'est une idée.

Initialement, j'avais une série de petites DLLs, organisées par grands domaines de fonctionnalités. Mais la maintenance devenait trop compliquée, et j'ai tout réuni en une seule. D'autant que le langage Panoramic (pour lequel je code cette DLL) n'autorise qu'une seule DLL externe à chaque instant. La gymnastique pour passer d'une DLL à une autre était trop lorde, sans parler du fait que, dans ce cas, on perdait tout le contexte des données globales d'une DLL en passant à une autre.

Mais j'ai effectivement un mécanisme permettant d'ajouter des DLLs en liaison dynamique. Je vais donc prendre cette voie. Tu as raison - cela devrait marcher dans la Community Edition.

J'ai déjà un mécanisme permettant d'aler chercher une DLL annexe dynaliquement? Actuellement, ma DLL est distribuée spus forme d'un seul fichier ZIP contenant ma DLL. Je vais donc inclure la DLL auxiliaire dans les ressources lors du link, puis, avant utilisation, vérifier si la DLL annexe existe bien sur le système et avec la bonne version, pour l'extraire si nécessaire. Il faut que ce soit automatique et transparent pour l'utilisateur. Mais j'ai déjà mis en place ce type de mécanisme pour un autre aspect (une bibliothèque d'icônes spécifiques). Donc, ça ira - je sais faire.

Je m'y p^mets - y a plus qu'à...

Merci !
01/11/2024, 23h46
KlausGunther

1 pièce(s) jointe(s)

Désolé - je suis obligé de revenir à la charge.

J'ai renouvellé ma licence Delphi 11 et j'ai installé en plus Delphi 12, les deux en Community Edition.
J'ai configuré les deux ebvironnements à générer du code Windows 32 bits.

Avant même de jouer avec les DLLs, j'ai créé un simple programme VCL avec un TWebBrowser et un TEdgeBrowser.
Pour chacun de ces browsers,, j'ai ajouter deux boutons:
- Charger Goole (condiut vers google.fr
- Charger Aide ( conduit vers http://klauspanoramic.infinityfreeap...Index.html?i=1

Résultats:
TWebBrowser:
Les deux boutons chargent ma bonne page.
Mais le chargement est rapidement interrompu par une erreur car JavaScript n'est pas géré.
TEdgeBrowser:
Aucune action visible pour les deux boutons.
Aucun message d'erreur.

Je précise que depuis lontemps, j'ai installé les modules WebView2 de MicroSoft, en version 32 bits ET en version 64 bits.
La mise à jour de ces modules se fait automatiquement, assez souvent.

Je ne sais pas ce que je peux faire. Je mets en pièce jointe un fichier ZIP contenant le projet Test_Browsers complet pour Delphi 12.
Je serais heureux si vous pouviez me mettre sur la piste...
Merci d'avance

2 pièce(s) jointe(s)

Bonjour,

Tant que c'était D6, je ne voulais pas m'impliquer dans cette discussion, pas de D6 chez moi et de plus quand je reprends D3 ou D7 j'ai tendance à me demander comment je me débrouillais avec :roll:

Je me suis déjà battu avec ce TEdgeBrowser et pas toujours gagné :aie:

Est-ce que les pré-requis ont bien été fait ?
https://docwiki.embarcadero.com/RADS...nt_TWebBrowser

1- Installation du package "Edge WebView2 SDK ...." via GetIt // je présume que cela a été fait
1'- Installation des démos "EdgeBrowser Demo and Imports Update 1" via Getit pas obligatoire mais eut être utile ;)
2- Configuration de projet pour les DLL de chargement de WebView2 // ça, par contre ....
Premier problème : "common_DLL_folder_path\x86\WebView2Loader.dll" n'est pas un chemin valide donc, la premiere chose est de trouver le bon chemin
pour moi : C:\Users\serge\OneDrive\Documents\Embarcadero\Studio\23.0\CatalogRepository\EdgeView2SDK-1.0.2739.1\Bin\x86 (ou x64 selon la cible OS)
:arf: ce onedrive est encore là :arf:
ensuite
Pièce jointe 661272
(un mauvais chemin => erreur code 1 à la compilation)

Un rapide test
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 unit main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Winapi.WebView2, Winapi.ActiveX, Vcl.Edge; type TForm1 = class(TForm) EdgeBrowser1: TEdgeBrowser; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} uses system.IOUtils; procedure TForm1.FormCreate(Sender: TObject); begin EdgeBrowser1.UserDataFolder := TPath.Combine(TPath.GetDirectoryName(Application.ExeName), 'CustomCache'); EdgeBrowser1.Navigate('http://bing.com'); end; end.
et c'est ok, même si un peu lent à la détente ;)

ces trucs appliqués, ton programme fonctionne
Pièce jointe 661273
ou presque car j'ai une erreur sur ton bouton "Charger Google" (p.s. Edge préfère Bing)

Citation:

Sortie de débogage: Google.fr is not a valid url. Processus Test_Browser.exe (12816)

la correction
Code:

1 2 3 4 procedure TForm1.Button3Click(Sender: TObject); begin EdgeBrowser1.Navigate('http://Google.fr'); // ou https ? end;

02/11/2024, 09h38
KlausGunther

3 pièce(s) jointe(s)

Merci pour ces informations.

Les prérequis pour Edge étaient bien remplis, mais par acquit de conscience, j'ai désinstallé le kit de démo Edge ainsi que le SDK et ke les ai réinstallés.

Je n'ai aucune erreur lors de la compilation ou de la création de l'exécutable, congtrairement à ce qui est suggéré dans ton post:
Pièce jointe 661274

Les messages de construction sont:
Pièce jointe 661275

J'ai adapté l'URL pour Google
Le résultat est identique pour EdgeBrowser: AUCUNE réqction lors des clics sue les boutons associés.

Je n'ai pas trouvé où paramétrer ceci:

Citation:

2- Configuration de projet pour les DLL de chargement de WebView2 // ça, par contre ....
Premier problème : "common_DLL_folder_path\x86\WebView2Loader.dll" n'est pas un chemin valide donc, la premiere chose est de trouver le bon chemin
pour moi : C:\Users\serge\OneDrive\Documents\Embarcadero\Studio\23.0\CatalogRepository\EdgeView2SDK-1.0.2739.1\Bin\x86 (ou x64 selon la cible OS)

Par contre, le dossier
C:\Users\klausgunther\OneDrive\Documents\Embarcadero\Studio\23.0\CatalogRepository\EdgeView2SDK-1.0.2739.1\Bin\x86
existe bien, avec le contenu requis...

A toutes fins utilies, voici l'état actuel de mon projt Test_Browsers (en pièce jointe).
02/11/2024, 10h00
SergioMaster

Citation:

Envoyé par KlausGunther

Je n'ai pas trouvé où paramétrer ceci: Configuration de projet pour les DLL de chargement de WebView2
Par contre, le dossier C:\Users\klausgunther\OneDrive\Documents\Embarcadero\Studio\23.0\CatalogRepository\EdgeView2SDK-1.0.2739.1\Bin\x86

c'est un point essentiel, je croyais que l'image (1) aurait suffit à elle même, niveau menu Projet/options ou Ctrl+Maj+F11
l'autre solution serait tout simplement de copier la dite dll dans le répertoire de l'éxecutable

Citation:

Je n'ai aucune erreur lors de la compilation ou de la création de l'exécutable, congtrairement à ce qui est suggéré dans ton post:

suggéré oui, mais après l'étape 2, à savoir après avoir indiqué l'évènement post-construction
02/11/2024, 10h44
KlausGunther

Effectivement, copier WebView2Loader.dll dans le dossier de l'exécutable résout le problème, et tout fonctionne bien.

Mais c'est dommage d'être obligé de copier celle DLL x fois...
Et malgré ton étonnement (justifié), je n'ai pas trouvé où configurer le chemin vers cette DLL.
Sous Delphi 6 PE, je fais ça sans problème. Mais je suis novice en D11 et D12 et je n'ai pas trouvé ce paramétrage.
02/11/2024, 10h51
SergioMaster

Citation:

Envoyé par KlausGunther

Et malgré ton étonnement (justifié), je n'ai pas trouvé où configurer le chemin vers cette DLL.

tu dois quand même bien avoir dans le menu principal Projet et au sein de ce menu (tout en bas) Options ?
Je sais que les versions community ont des différences mais pas à ce point là, si ?
Par contre, peut-être que les 'Evénements de contruction' manquent à l'appel mais ça hélas, je ne peux le contrôler

Citation:

Mais c'est dommage d'être obligé de copier celle DLL x fois...

je ne sais pas si mettre cette dll dans syswow64 (ou system32 en cas de 64 bits) ferait l'affaire, certainement.
A moins qu'une propriété du composant permette un pointage à l'instar des dll de cerataines connexions au base de données.
Etant donné que je n'ai jamais inclus de web viewers dans mes applications pros je ne maitrise pas trop

Voir 40 message(s) de cette discussion en une page