Discussion :

[colorid]

Bonjour

Comment appeler un site web en code Delphi ?
Exemple : En cliquant su un bouton je veux accéder à "www.developpez.net"
Quelle est la ligne de code à écrire sachant que l'accès Internet est ouvert ?

[Rayek]

http://delphi.developpez.com/faq/?pa...terapplication

A la place de mettre un chemin + Nom de fichier, tu mets directement un lien et ca fonctionne.

[j.p.mignot]

Code :

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

1
2
 
shellexecute( 0,'open','http://www.google.com',nil,nil,SW_SHOW)

[kevinou55]

Bonjour a tous,
moi aussi je cherchais comment ouvrir une page internet depuis delphi et quand j'execute le code que vous venez de donner, rien ne se passe.
Je suis sous Delphi 5 alors peut-etre que cela vient de la mais je n'ai pas de message d'erreur donc je ne comprends pas le problème, j'ai bien ajouté ShellApi dans le Uses.

Si vous avez une solution je suis preneur

[DragonHeart]

Et tu es sur que le code s'exécute bien ?
As tu essayé de voir en Pas à pas dans la procédure/fonction qui appel ce code?
J'étais avant sous Delphi 5 je me rappelle d'avoir eu un léger soucis
il me semble que pour les chaine de caractére je mettait PChar() mais a vrai dire je ne m'en rappelle plus trop et je ne voudrais pas avoir a dire une anerie et encore me faire sauté dessus !

[kevinou55]

oui oui je l'ai mis en dehors de toute condition pour etre sur que je passais bien dessus et de toute facon j'ai executé mon prog en Pas à Pas et il est bien exécuté.
J'ai essayé le PChar() mais aucun resultat t'inquiete je ne vais pas te sauter dessus tu propose c'est bien
Mais bon tu n'as pas une autre proposition ???

[colorid]

Merci poir l'info.

Simplement il ne faut pas oublier d'ajouter Shellapi dans Uses

QUESTION :

J'ai trouvé le code suivant pour vérifier si la connexion avec internet est ouverte :

Code :

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

1
2
3
4
5
6
7
8
 
//Test de la connection internet
dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN  or INTERNET_CONNECTION_PROXY;
if(not InternetGetConnectedState(@dwFlags,0)) then
  begin
    Application.MessageBox('Vous devez être connecté à Internet pour effectuer une demande d''assistance en ligne !', 'Info');
    exit;
  end;

Quelle unité faut-il ajouter aux Uses pour que Delphi reconnaisse ce code ?

[kevinou55]

bon ba j'ai trouvé une solution qui fonctionne

Code :

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

1
2
 
ShellExecute(Handle,'open',PChar('iexplore'),PChar('http://www.developpez.com'),Nil,SW_SHOW);

Il y avait de l'idée avec les PChar()

[DragonHeart]

Ah j'me disais bien qu'il y avait une histoire de PChar quelque part ^^

[colorid]

J'ai trouvé l'unité qu'il faut mettre dans les Uses pour tester la connexion à Internet: C'est WinInet

Tout semblant réglé je coche résolu

Merci à tous

[Pedro]

Tout semblant réglé je coche résolu

Ah bon ?