Discussion :

[Jijudu]

Salut,

Je cherche un composant dans ma bibliothéque actuelle pour pouvoir naviger sur internet (pour aller sur internet)

J'ai trouver le composant Webdisptcher mais j'ai pas tout comprit avec l'aide.
Si quelqu'un avait un exemple ... Je l'en remercierai :p

+

[Jijudu]

Sinon y a aussi TwebBrowser qui m'a l'air pas mal mais l'aide ne fournit pas d'exemple :'(

[Jijudu]

Salut !!
Ca y est j'ai trouvé sur le faq du site qq renseignements sur le Twebrowser

lien

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMyForm.MyButtonClick(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  sHTML: String;
begin
  sHTML := { votre code HTML };
  MyWebBrowser.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, 
Headers);
end;

pour un TWebBrowser avec Name =MyWebBrowser
Donc je foudrai afficher une map de google map. De plus google map fournit le code HTML.
Voici le code html :

Code :

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

<iframe width="425" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.fr/maps/ms?hl=fr&amp;ie=UTF8&amp;msa=0&amp;msid=100321570313222696514.00045b58e9294b35e0dae&amp;s=AARTsJpayaLrx7rYwEZIOijgA67Eb36R8g&amp;ll=34.048961,-99.403954&amp;spn=0.003111,0.00456&amp;z=17&amp;output=embed"></iframe><br /><small><a href="http://maps.google.fr/maps/ms?hl=fr&amp;ie=UTF8&amp;msa=0&amp;msid=100321570313222696514.00045b58e9294b35e0dae&amp;ll=34.048961,-99.403954&amp;spn=0.003111,0.00456&amp;z=17&amp;source=embed" style="color:#0000FF;text-align:left">Agrandir le plan</a></small>

donc au final ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  sHTML: String;
begin
  sHTML := '<iframe width="425" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.fr/maps?f=q&amp;hl=fr&amp;geocode=&amp;q=bordeaux&amp;sll=34.029331,-99.35297&amp;sspn=0.082656,0.181961&amp;ie=UTF8&amp;z=11&amp;g=bordeaux&amp;msa=0&amp;msid=100321570313222696514.00045b58e9294b35e0dae&amp;ll=44.89285,-0.54245&amp;output=embed&amp;s=AARTsJrczseprKuDfKRckyJRLvdgF6THkg"></iframe><br /><small><a href="http://maps.google.fr/maps?f=q&amp;hl=fr&amp;geocode=&amp;q=bordeaux&amp;sll=34.029331,-99.35297&amp;sspn=0.082656,0.181961&amp;ie=UTF8&amp;z=11&amp;g=bordeaux&amp;msa=0&amp;msid=100321570313222696514.00045b58e9294b35e0dae&amp;ll=44.89285,-0.54245&amp;source=embed" style="color:#0000FF;text-align:left">Agrandir le plan</a></small>';
  WebBrowser1.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData,
Headers);
end;

Ca compile mais la page ne s'affiche pas
Merci des futurs aides!