Discussion :

[Just-Soft]

Bonjour !

C'est ma 1ère utilisation du composant webbrowser, le code que j'ai copié d'un autre site est très simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm9.Button1Click(Sender: TObject);
 var
  Flags: OLEVariant;
begin
  Flags:=4; //NavNoReadFromCache
  try WebBrowser1.Navigate('https://app.powerbi.com/view?r=eyJrIjoiMGJiODRmNmEtNTg4NS00ZjY4LWJlNGQtMGRiMDY5ZjQ1YjE1IiwidCI6IjAxYzQ2OTQ3LTVkZmItNGM3MS1hZTIxLTQ4MzljYzU0ZDUwMSIsImMiOjh9',Flags);
  except
  end;
end;

La page se charge bien mais elle n'affiche rien et le browser devint gris.

j'ai changé d'URL et sa fonctionne bien sauf pour celui là ?

Peut-être que c'est juste un flag à configurer ?!

Toute idée est la bienvenue.

Merci d'avance.

[Cirec]

Bonjour,

j'ai testé ton code avec D7 et D10.2 et le TWebBrowser de base (donc émulation d'IE7)
et la page s'affiche correctement !!!

peut-être utilises tu une version de Delphi antérieur à D7 ?

Pour contrôler quelle version d'IE ton code émule tu peux charger cette page dans ton programme.
à partir d'IE7 le code fonctionne (chez moi)

Cordialement,
@+

[Just-Soft]

peut-être utilises tu une version de Delphi antérieur à D7 ?

Pour contrôler quelle version d'IE ton code émule tu peux charger cette page dans ton programme.
à partir d'IE7 le code fonctionne (chez moi)

@+

J'utilise Delphi 2010. Le hic c'est que la page s'affiche correctement en passant l'URL à chrome mais depuis mon application tout est gris ?!!!

[Hermite]

Bonjour,

Testé sur Delphi 2010 avec le code fourni, le chargement se termine correctement.

[Just-Soft]

Bonjour,

Testé sur Delphi 2010 avec le code fourni, le chargement se termine correctement.

Merci pour la confirmation mais j'ai toujours le même problème chez moi, pouvez-vous faire une capture d'écran s'il vous plait ?

[SergioMaster]

Bonjour,

j'ai toujours le même problème chez moi,

c'est certainement dû à ta version de MS internet explorer, j'ai vu plusieurs cas de ce genre

[Hermite]

Voici quelques copies d'écrans.
Le résultat de l'adresse que tu souhaites afficher :


Et voici ce que m'affiche la page proposée par Cirec affichée par le composant WebBrowser, tu pourras comparer avec ce que tu obtiens et peut-être trouver une piste.
A noter que cette page indique que je tourne sur un Windows 8 alors qu'en réalité je suis sur un Windows 10 64 bits.

[Just-Soft]

Bonjour,

c'est certainement dû à ta version de MS internet explorer, j'ai vu plusieurs cas de ce genre

Ok alors ma question est : quel est le lien entre TWebBrowser et MS Explorer ? et comment forcer la prise en charge de Chrome à la place de MS Explorer ?

[ShaiLeTroll]

TWebBrowser c'est juste le Wrapper Delphi avec la TLB de l'ActiveX de Internet Explorer

Ce n'est pas comme ci c'était écrit dans la documentation TWebBrowser

TWebBrowser donne accès à la fonctionnalité de navigateur Web des objets Microsoft Shell Doc et Control Library (SHDOCVW.DLL).

TWebBrowser encapsule l'interface IWebBrowser2 des objets Microsoft Shell Doc et Control Library (SHDOCVW.DLL)pour vous permettre de créer une application navigateur Web personnalisée ou d'ajouter à vos applications des fonctions Internet, de fichiers et de parcours réseau, de visualisation de document et de téléchargement de données.

Remarque : Comme TWebBrowser encapsule SHDOCVW.DLL, SHDOCVW.DLL doit être installé pour utiliser ce composant. Cette DLL est livrée avec Internet Explorer version 4 et plus.

Pour chrome, lance le via un ShellExecute

[Just-Soft]

Voici quelques copies d'écrans.
Le résultat de l'adresse que tu souhaites afficher :


Et voici ce que m'affiche la page proposée par Cirec affichée par le composant WebBrowser, tu pourras comparer avec ce que tu obtiens et peut-être trouver une piste.
A noter que cette page indique que je tourne sur un Windows 8 alors qu'en réalité je suis sur un Windows 10 64 bits.

Alors pour moi voici que j'ai

Pour le test il semble que tout est bon sauf pour java qui n'est pas installé puisque délaissé par Chrome depuis la version 42 je crois.

[Just-Soft]

TWebBrowser c'est juste le Wrapper Delphi avec la TLB de l'ActiveX de Internet Explorer

Ce n'est pas comme ci c'était écrit dans la documentation TWebBrowser



Pour chrome, lance le via un ShellExecute

Ok mais pourquoi chez certains ça marche !

Merci pour l'idée de lancer chrome à partir de ShellExecute mais l'idée ne me séduit pas, j'aimerais rester sur mon application et ouvrir ma page html via webbrowser ou un autre composant.

[Cirec]

re,

tu peux aussi essayer de changer le niveau d'émulation d'IE
Il y a une discussion sur ce sujet sur le site avec un code de gbedgreg qui fonctionne très bien

Cordialement,
@+

[Just-Soft]

re,

tu peux aussi essayer de changer le niveau d'émulation d'IE
Il y a une discussion sur ce sujet sur le site avec un code de gbedgreg qui fonctionne très bien

Cordialement,
@+

Je suis sur Delphi 2010 et je bute sur le RWord ?!

[SergioMaster]

Bonjour,

@cirec merci d'avoir retrouver la discussion que "j'avais sur le bout de la langue"

Je suis sur Delphi 2010 et je bute sur le RWord ?!

la fonction renvoie le premier mot de la chaîne de caractères passée en paramètre en prenant comme séparateur le point.

une solution (écrite à la volée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function RWord(version : string) : String;
var SL : TStringlist;
begin
SL:=TStringList.Create;
SL.Delimiter:='.';
try
SL.CommaText:=Version;
result:=SL[0];
finally
  SL.Free;
end;
end;

mais ça peut aussi être, plus simple, à coup de Pos (toujours à la volée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RWord:=Copy(version,1,pos('.',version)-1);

[Cirec]

Bonjour,

@cirec merci d'avoir retrouver la discussion que "j'avais sur le bout de la langue"

You're Welcome


ah oui j'avais oublié la fonction RWord
moi j'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function RWord(aStr: string; aPos: Integer; aSep: Char): string;
var
  I,
  Found : Integer;
begin
  Result := aStr;
  Found := 0;
  for I := 1 to Length(aStr) do
    if Result[I] = aSep then begin
      Inc(Found);
      if Found = aPos then begin
        Result[I] := #0;
        Break;
      end;
    end;
  Result := PChar(Result);
end;

Cordialement,
@+

[Just-Soft]

re,

tu peux aussi essayer de changer le niveau d'émulation d'IE
Il y a une discussion sur ce sujet sur le site avec un code de gbedgreg qui fonctionne très bien

Cordialement,
@+

même avec ça ... rien ne s'affiche !

[Cirec]

eh ben, il n'y a plus beaucoup d'options !

Déjà
- quelle version de Windows utilises-tu ? (je me souviens que XP me faisait des soucis à cause de la version d'IE)
- IE est-il à jour ?

et pour finir tu peux, dans ton code d'exemple, changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Flags:=4; //NavNoReadFromCache

en ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Flags := 5; // == navNoReadFromCache or navOpenInNewWindow

ce qui forcera ton application à ouvrir une fenêtre IE.
Teste ça et dis nous si la page s'affiche

j'ai pas mieux pour l'instant
Cordialement,
@+

[Just-Soft]

eh ben, il n'y a plus beaucoup d'options !

Déjà
- quelle version de Windows utilises-tu ? (je me souviens que XP me faisait des soucis à cause de la version d'IE)
- IE est-il à jour ?

et pour finir tu peux, dans ton code d'exemple, changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Flags:=4; //NavNoReadFromCache

en ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Flags := 5; // == navNoReadFromCache or navOpenInNewWindow

ce qui forcera ton application à ouvrir une fenêtre IE.
Teste ça et dis nous si la page s'affiche

j'ai pas mieux pour l'instant
Cordialement,
@+

Merci pour toutes ces pistes mais nulle ne marche !
même l'affichage dans une fenêtre IE donne le même résultat ...
conclusion le problème vient de IE !

Je repose la question autrement :

Existe-t-il un composant encapsulant Chrome ?

[Cirec]

re,

Existe-t-il un composant encapsulant Chrome ?

oui il existe Chromium (dcef3) que je n'ai jamais testé
et le deuxième lien qui semble être une version plus récente(dcef4) basée sur le premier(dcef3)

à voir !

Cordialement,
@+

[Just-Soft]

re,

oui il existe Chromium (dcef3) que je n'ai jamais testé
et le deuxième lien qui semble être une version plus récente(dcef4) basée sur le premier(dcef3)

à voir !

Cordialement,
@+

Merci, je vais voir avec ça.