Discussion :

[benito9253]

Bonjour tout le monde,

Comme je l'ai indiqué dans le titre je cherche a envoyer des fichiers de pc a pc sans utiliser de serveur intermédiaire. J'ai fais des recherches pour savoir comment procéder mais je n'ai rien trouver en VB.NET.

Quelqu'un pourrait il m'expliquer comment faire ou me rediriger vers un cours?

Merci d'avance

[Danyel]

Je ne suis pas vraiment sur que vous sachiez ce qu'est un ftp (file transfert protocol)
Expliquez nous reellement ce que vous desirez faire, ou donnez nous un exemple concret.
Un ftp ne peut etre installe que sur un serveur (linux/windows server/...)
Ou si vous desirez partager un espace sur votre xp, il faut utiliser un programme de type servU ou du genre.

[Pol63]

il me semble qu'on peut installer le service ftp sur xp quand meme
mais les services ftp de windows sont des passoires

[Danyel]

il me semble qu'on peut installer le service ftp sur xp quand meme

J'avais pas vu le xp pro, tu dois avoir raison.

[Ogotcha]

les services ftp de windows sont des passoires

Alors là entièrement d'accord

Sinon à un moment j'avais cherché aussi cette possibilité et je suis tombé sur cette source, elle date de 2003 (elle fonctionne après les premiers tests)
planet-source

Cela peut déjà te donner une piste à étudier...

(Mais je suis pas convaincu de la fiabilité)

[benito9253]

Bonjour a tous,

En fait je voudrais envoyer des fichiers (de plus de 10 Mo) a un autre pc via une connection internet. J'avais pensé a les envoyer par mail mais ils sont trop lourds pour passer en utilisant le serveur smtp de l'opérateur internet. De plus l'opérateur utilisé ne sera pas forcément le même sur toutes les machines sur lequel s'executera le programme.
Je voudrais donc envoyer directement mes fichiers de pc a pc. Je retire mes questions a propos du serveur ftp j'étais complétement a coté de la plaque.

Quelle(s) solution(s) je pourrait utiliser dans mon cas?

Merci d'avance

[Pol63]

socket (ou tcpclient et tcplistener)
ou encore .net remoting
ou encore WCF

[Danyel]

j'étais complétement a coté de la plaque.

lolololol pas grave

Quelle(s) solution(s) je pourrait utiliser dans mon cas?

Si tes fichiers sont trop gros pour de l'envoi par email, tu peux les splitter avant.
C'est pas tres joli, mais c'est facile et rapide à faire.

[benito9253]

Merci pour les réponses,

J'hésite encore entre splitter mes fichiers ou utiliser TcpClient... Dans le cas ou je déciderais de splitter les fichiers comment dois je procéder ?

Merci

[alex_vino]

Pour le FTP : http://www.codeproject.com/KB/IP/FtpClient.aspx
Sinon il y a des cours sur MSDN aussi de mémoire.

[Danyel]

Dans le cas ou je déciderais de splitter les fichiers comment dois je procéder ?

Il suffit juste d'utiliser ou de creer un soft qui splitte les fichiers.

[beren.kei]

euh... les copies de fichier doivent se faire par code ? sinon tu peux utiliser des logiciels tels que hamachi qui te permet de créer un réseau privé virtuel et tu copies les fichiers depuis un dossier partagé...
si tu veux plus d'infos sur hamachi et son fonctionnement je repasserai ^^

[benito9253]

J'essai finalement d'utiliser TcpClient mais je n'arrive pas a établir de connection...

J'utilise ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Try
            Dim tcpClient As New System.Net.Sockets.TcpClient()
            tcpClient.Connect("90.54.194.209", 2503) 'l'adresse ip de la cible
            Dim networkStream As NetworkStream = tcpClient.GetStream()
            If networkStream.CanWrite And networkStream.CanRead Then
                ' Do a simple write.
                Dim sendBytes As Byte() = Encoding.ASCII.GetBytes("Le texte a envoyer.")
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                ' Read the NetworkStream into a byte buffer.
                Dim bytes(tcpClient.ReceiveBufferSize) As Byte
                networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
                ' Output the data received from the host to the console.
                Dim returndata As String = Encoding.ASCII.GetString(bytes)
                MsgBox("Host returned: " & returndata & vbCrLf)
            Else
                If Not networkStream.CanRead Then
                    MsgBox("cannot not write data to this stream" & vbCrLf)
                    tcpClient.Close()
                Else
                    If Not networkStream.CanWrite Then
                        MsgBox("cannot read data from this stream" & vbCrLf)
                        tcpClient.Close()
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf)
        End Try

Et j'ai cette erreur:

Aucune connexion n'a pu être établie car l'ordinateur cible l'a expressément refusée 90.54.194.209:2503

J'ai essayé d'autoriser le port 2503 dans le pare-feu de l'ordinateur cible mais ca ne change rien...

Est ce que quelqu'un pourrait m'expliquer comment établir une connection pour envoyer et recevoir des données? Et quelles sont les autorisations nécessaires?

Merci d'avance

[benito9253]

J'ai finalement réussi a établir une connection et a envoyer le fichier...

Le problème c'est que lors de l'envoi je perds toutes les informations du fichier (nom, extension...). Comment faire pour envoyer ces infos en même temps que le fichier?

Autre problème: dans le code je doit préciser la taille du tableau de bytes pour la réception des données. Mais je ne peux pas connaitre a l'avance la taille du fichier ce qui m'oblige a préciser une taille largement supérieur à celle nécessaire. Résultat lorsque j'enregistre le fichier, au lieu qu'il ai la même taille que le fichier d'origine, il fait la taille du tableau de bytes et contient un grand vide a la fin du fichier...

Quelqu'un aurait il une solution?

Merci d'avance