1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Récuperer des infos (taille, type, etc) d'un fichier sur internet

Récuperer des infos (taille, type, etc) d'un fichier sur internet

0/5 (3 avis)

Vue 10 519 fois - Téléchargée 591 fois


Télécharger le projet
Commenter

Description

Voila un tout petit exemple montrant comment recupérer des infos (taille, type, etc ) d'un fichier
accessible par http en .net.
Cela peut surement servir (vu que cela m'a servi =) )

L'exemple à besoin de 6 label, nommé Label1 à Label6, un textbox nomme textbox1 et un bouton nommé button1 (que du par defaut quoi ^^)

Source / Exemple : 


'Ajouter cette import avant le debut de la class Form
Imports System.Net

'puis copier coller le reste aores avoir crée les controls indiqués au dessus:

 Dim typefile As String
    Dim status As String
    Dim contentlength As Integer
    Dim LastModified As String
    Dim server As String
    Dim httpversion As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Get_file_info(TextBox1.Text)
        Label1.Text = "Taille : " & contentlength & " octets (" & contentlength / 1024 & " Ko)"
        Label2.Text = "Type : " & typefile
        Label3.Text = "Status : " & status
        Label4.Text = "Date de modification : " & LastModified
        Label5.Text = "Serveur : " & server
        Label6.Text = "HTTP version : " & httpversion
    End Sub

    Sub Get_file_info(ByVal fileurl As String, Optional ByVal proxy As String = Nothing, Optional ByVal proxyport As Integer = Nothing)
        If proxy <> Nothing And proxyport <> Nothing Then
            Dim hproxy As WebProxy
            hproxy = New WebProxy(proxy, proxyport)
            GlobalProxySelection.Select = hproxy
        End If
        Dim hwebrequest As System.Net.HttpWebRequest = System.Net.WebRequest.Create(fileurl)
        Try
            Dim hwebresponse As System.Net.HttpWebResponse = hwebrequest.GetResponse
            contentlength = hwebresponse.ContentLength
            typefile = hwebresponse.ContentType
            status = hwebresponse.StatusDescription
            LastModified = hwebresponse.LastModified
            server = hwebresponse.Server
            httpversion = hwebresponse.ProtocolVersion.ToString

            hwebresponse.Close()
        Catch ex As Exception
            If ex.Message = "Le serveur distant a retourné une erreur : (404) Introuvable." Then
                status = "404"
                contentlength = 0
                typefile = "Introuvable"
            Else
                status = "erreur"
                contentlength = 0
                typefile = "???"
            End If
        End Try
    End Sub

End Class

Conclusion :


...
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
fg85 Messages postés 370 Date d'inscription dimanche 28 mars 2004 Statut Membre Dernière intervention 13 avril 2007
31 déc. 2004 à 13:29
Euh rien en fait ,j'avais juste une idée mais cela ne fonctionnera pas, il faut avoir asp ??

------------------------
http://fg.logiciel.free.fr
hvb Messages postés 939 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 27 janvier 2009 3
31 déc. 2004 à 00:42
hein? on utilise un objet HttpWebRequest qui gere le protocole http... qu'est ce que tu veux faire toi?
fg85 Messages postés 370 Date d'inscription dimanche 28 mars 2004 Statut Membre Dernière intervention 13 avril 2007
21 déc. 2004 à 14:26
Comment faire pour y accéder en http ?
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (hvb)