4u4me4us
Messages postés780Date d'inscriptionlundi 22 janvier 2007StatutMembreDernière intervention30 octobre 2013
-
25 nov. 2007 à 17:03
wassimez
Messages postés25Date d'inscriptionmercredi 14 février 2007StatutMembreDernière intervention26 février 2008
-
14 févr. 2008 à 11:41
Bonjour a tous et a toutes,
cela fait plusieurs semmaines que je voudrais faire une appli, qui transfert des fichier d'u, Pocet PC a un serveru FTP. (le tout en vb.net)
J'ai créer le code suivant
Imports
System
Imports System.Text
Imports System.Text.Encoding
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Public
Class Form1
Dim vc_SocData
As Socket
Dim vc_socket
As Socket
Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click
Dim v_connect
As IPEndPoint
Const BLOCK_SIZE = 10240
Dim v_buffer(BLOCK_SIZE)
As
Byte
Dim v_CodeRetour
As
Integer
Dim v_chemin
As
String
Dim vc_fichier
As FileStream
Dim vc_LecFic
As BinaryReader
Dim v_bit
As Int32
Dim v_i
As
Integerv_i 0v_connect
Nothingvc_SocData New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)vc_socket
New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
v_connect =
New IPEndPoint(Dns.Resolve(
Mon serveur).AddressList(0), 21)
vc_socket.Connect(v_connect)
If vc_socket.Connected
Then
MessageBox.Show(
"connecter")
MessageBox.Show(
"Envoi USER")
Dim vc_commande
As
Byte() = ASCII.GetBytes(
"USER NomUtilisateur" & ControlChars.CrLf)
v_CodeRetour = vc_socket.Receive(v_buffer)
vc_socket.Send(vc_commande)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show(v_CodeRetour)
Avec ça, la connection ce passe mais rein de plus. Les valeurs de retour que j'ai sont sur deux chiffre au lieu de trois, donc dur d'identifier le prob. Il faudrei que cela marche sans dll supp.
Vous voyez ! Je ne me suis pas tourné les pouces. J'ai mis de la transpiration personnelle sur ma démarche.
Alors "so please Codes-Source PDA community HELP ME!!!!"