Tester une connexion de modem

Réponse acceptée !
apres moulte rechch sur google, cette fonction est faite pour detecter le type de connexion, et non pas si on est connecté ou pas au net.
en fait pour detecter si une connexion est faite, il faut faire un ping ou choper une url etc mais c pas tres propre. de plus ce n'est pas 100% certain. un sujet sur VBFRANCE est a lire a propos de la detection de connexion (meme si comme moi tu ne connais pas VB :D)
lien : http://www.vbfrance.com/code.aspx?id=27454
ne fais pas attention a la source, elle est 100% inutilisable :) meme transcrite en delphi.
bonne lecture :D

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

-------------------------------------------
[ Lien ] : mon site refait ! Delphi power !

Réponse acceptée !
Salut,
J'arrive peut être en retard, mais, j'ai retrouvé quelque chose concernant la connexion modem à Internet qui peut t'intéresser.
J'utilisais RASAPI32.dll et son interface RAS.PAS (que tu peux trouver ici.
On y trouve les fonctions suivantes :

function RasEnumEntries; external rasapi32 name 'RasEnumEntriesA'; function RasGetEntryDialParams; external rasapi32 name 'RasGetEntryDialParamsA'; function RasDial; external rasapi32 name 'RasDialA'; function RasHangUp; external rasapi32 name 'RasHangUpA'; function RasEditPhonebookEntry; external rasapi32 name 'RasEditPhonebookEntryA'; function RasCreatePhonebookEntry; external rasapi32 name 'RasCreatePhonebookEntryA'; function RasGetConnectStatus; external rasapi32 name 'RasGetConnectStatusA'; function RasEnumConnections; external rasapi32 name 'RasEnumConnectionsA'; function RasGetErrorString; external rasapi32 name 'RasGetErrorStringA'; function RasGetProjectionInfo; external rasapi32 name 'RasGetProjectionInfoA'; function RasSetEntryDialParams; external rasapi32 name 'RasSetEntryDialParamsA';

et en particulier RasEnumConnections et RasGetConnectStatus que j'utilisait ainsi :

var ... RasStatus : RASCONNSTATUS; RasBuffer : RASCONN; RasNombre : integer; begin RASNombre:=0; RasBuffer.dwSize:=sizeof(RASCONN); Resu:=RasEnumConnections(@RasBuffer,@RasSize,@RASNombre); if (resu=0) and (RASNombre>0) then begin .... RasStatus.dwSize:=sizeof(RASCONNSTATUS); resu:= RasGetConnectStatus( RasBuffer.hrasconn, @RasStatus); if resu = 0 then begin Device:=#9+RasStatus.szDeviceType+#9+RasStatus.szDeviceName; if RasStatus.rasconnstate= RASCS_ConnectDevice then begin ...... Caption :='Connexion'; end; if RasStatus.rasconnstate= RASCS_Authenticate then begin ....... Caption :='Autentification'; end; if RasStatus.rasconnstate= RASCS_OpenPort then begin ....... Caption :='Ouvert'; end; end; .....

En gros, ça permet de surveiller un modem, et de récupérer les info de connexion comme la fenêtre stadard.

Tu as en plus les fonctions RasDial et RasHangup,pour numéroter et raccrocher (t'as pas cherché quelque chose dans le genre il y a peu ?)


Ken@vo

P.S. RAS ça veut dire Remote Acces
____________________
Code, Code, Codec !