sousoulebarbu
Messages postés101Date d'inscriptionmercredi 27 juillet 2005StatutMembreDernière intervention11 janvier 2009
-
13 mai 2006 à 15:27
kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008
-
29 nov. 2007 à 22:36
Bonjour,
J'aurais aimé savoir s'il était possible de vérifier qu'une URL existe (que le fichier http://htedytd.tf/ytry.mp3 existe) sans télécharger le fichier. Quelqu'un aurait il une idée?
envoies une requete HTTP au serveur, peu importe comment: inet,
winsock, objet webrequest etc... Si le fichier existe, le serveur
renvoie un code dans l' en-tête HTTP, cf. RFC2616.
sousoulebarbu
Messages postés101Date d'inscriptionmercredi 27 juillet 2005StatutMembreDernière intervention11 janvier 2009 14 mai 2006 à 11:44
J'ai compris le principe, mais en pratique, qu'est-ce que je dois taper pr que ça fonctionne.(je suis un peu newbie en vb .net) Et où est-ce que je trouve "RFC2616"?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Clad49
Messages postés265Date d'inscriptiondimanche 3 août 2003StatutMembreDernière intervention29 mars 2010 14 mai 2006 à 15:11
Salut ! en vb6 j'utilise une dll pour vérifier si l'utilisateur et connecté a internet ! Elle retourne une érreur si elle ne trouve pas la page, et indique quee l'on ai pas connecté ! éssé de voir si tu peut la faire fonctionner en .net et l'adapté a ton projet :
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, _
ByVal dwFlags As Long, _
ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
If InternetCheckConnection("http://www.google.fr/", FLAG_ICC_FORCE_CONNECTION, 0&) = 1 Then
Il a réussi a trouvé la page
else
La page na pas pu étre ouverte
end if
kelm_by
Messages postés296Date d'inscriptionmardi 9 janvier 2007StatutMembreDernière intervention21 novembre 2008 29 nov. 2007 à 22:36
salut j'ai le meme probleme sauf que je veux verifier si un ram exsiste mais meme si cette function donne que il exsiste le fichier est inpossible de le lire (introuvable)
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Sub Command1_Click()
If InternetCheckConnection(Text1.Text, FLAG_ICC_FORCE_CONNECTION, 0&) = 1 Then
Label1.Caption = "Il a réussi a trouvé la page"
Else
Label1.Caption = "La page na pas pu étre ouverte"
End If
End Sub