VPN et Delphi

Version imprimable

19/12/2004, 18h44
rico-94

VPN et Delphi

Salut à tous...
Je déclare forfait !!! .... je m'explique :

Je suis en train de developper un logiciel sous delphi qui fonctionnera en reseau, jusque la tout va bien.
Sachant qu'il y a des utilisateurs qui accederons au reseau par l'exterieur, je suis passé par un vpn. Tout marche très bien vis-a-vis de mon appli(les PC sont sous win XP Pro et j'utilise le vpn de win)

Pour automatiser la connexion au démarrage de l'appli (pour les personnes à l'exterieur du reseau) j'ai tout d'abord récupérer un programme Delphi utilisant l'API windows pour rasdial : Si la connexion réussie je permet l'acces à l'appli sinon j'affiche l'erreur et demande à l'utilisateur de se reconnecter.

Le probleme est la !
Ce systeme à fonctionner que deux fois !!!! :( le reste du temps j'ai les erreurs 800 768 ou 730.
Ce qui est encore plus bizarre c'est que si je passe par windows (demarrer - connexion - VPN) CA MARCHE 8O

Pour contourner le pb j'ai changer mon appli avec une simple ligne de commande WinExec faisant appel à rasdial : :roll:

WinExec('rasdial.exe ServeurVPN Utilisateur MotDePasse,0)

RESULTAT : Ca marche .... quand j'ai de la chance. Une fois sur 4 je me connecte (sachant que si je passe par la connexion manuel windows ca fonctionne tout de suite)

Franchement je sais plus quoi faire .... AIDEZ MOI !!!!
19/12/2004, 19h36
portu

D'après ce que j'ai entendu, il est fortement déconseillé d'utiliser WinExec. Mieux vaut utiliser ShellExecute.
19/12/2004, 22h06
rico-94

J'viens d'essayé avec ShellExecute mais aucun resultat.... j'ai aucun affichage.

ShellExecute(Handle,'open',PChar('rasdial.exe ServeurVPN Utilisateur MotDePasse'),nil,nil,SW_SHOW);

tu vois une erreur ?

Mais c'est bizarre que pour les deux méthodes que j'ai expliqué avant ca ne marche que par intermitence... il doit y avoir un paramètre que j' prend pas en compte...

Je cherche partout mais aucun resultat... ta pas une autre idée ???????????? :roll:
19/12/2004, 22h21
Sub0

Salut!

Essaye avec le paramètre SW_SHOWNORMAL plutôt...
Utilise 'execute' à la place de 'open' peut-être...

Code:

ShellExecute(Handle,'execute',PChar('rasdial.exe ServeurVPN Utilisateur MotDePasse'),nil,nil,SW_SHOWNORMAL);

Si tu veux, je possède une démo pour la connexion automatique à Internet.
Pour la détection de connexion :
http://delphi.developpez.com/faq/?pa...ctionconnexion

à+
19/12/2004, 22h32
rico-94

Merci c sympa.... :wink:

Hélas ça ne marche toujours pas :(

J'ai essayer d'autres paramètres pour Shellexecute mais ça ne fonctionne toujours pas (meme en specifiant le chemin c:\windows\system32)

Jsui vraiment à court d'idée :cry:
19/12/2004, 22h58
Sub0

Regarde là si tu trouves quelque chose par hasard :

http://www.google.fr/search?q=cache:...=fr&lr=lang_fr

Code:

1
2
3
 
ShellExecute(handle,'Open',PChar('rasdial.exe'),PChar('ServeurVPN Utilisateur MotDePasse'),
nil,SW_SHOW);

Comme cela, il se lance bien

19/12/2004, 23h16
Sub0

En effet, je ne sais pas si ça fonctionne mais ça semble tout de suite être plus correcte ainsi!
Les paramètres ont leur propre champs... Bien vu Portu! :ccool:
19/12/2004, 23h22
rico-94
Le fichier rasdial.zip qui est sur le lien que tu m'a passé est celui que j'ai adapter à mon appli. (meme pb : marche, marche pas ... ça dépend si y fait beau ou pas :lol: )

Par contre j'ai trouvé un debut de solution qui me convient :P :

j'utilise shellexecute pour pour me lancer l'annuaire telephonique rasphone. Ainsi la fenetre de connexion VPN windows s'ouvre automatiquement. A ce moment l'utilisateur n'a plus qu'a appuyer sur connecter... Ca marchera bien mieux que ce que j'ai fait.... l'utilisateur pourra detecter sont erreur (s'il y en a une) et se reconnecter par l'interface de windows.
Code:

1 2 ShellExecute(Handle,'open',PChar('C:\Documents and Settings\All Users\'+ 'Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk'),'','',1);
J'étais pas parti sur cette idée mais cette solution me convient parfaitement (je vais pas faire la fine bouche comme même...)

En tout cas merci à toi Sub0 pour m'avoir fait profiter de ton expérience(ça fait tjs plaisir de trouver la solution à un pb :wink:, )

Je reste biensur ouvert pour d'autre solution ou pour m'expliquer ce mystère de l'informatique 8O
19/12/2004, 23h34
rico-94

Effectivement portu ca marche mieux comme ca !!

Mais j'ai encore et tjs le meme pb qu'avec winexec ou avec la dll rasdial...

Tanpis j'suis comme meme bien content d'avoir trouver une autre solution... je passe directement par windows

Merci les gars 8)