Accueil > Forum > > > > FTP avec PDA
 FTP avec PDA
dimanche 25 novembre 2007 à 17:03:34 |
FTP avec PDA
4u4me4us
|
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
PublicClass Form1
Dim vc_SocData As Socket
Dim vc_socket As Socket
PrivateSub 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) AsByte
Dim v_CodeRetour AsInteger
Dim v_chemin AsString
Dim vc_fichier As FileStream
Dim vc_LecFic As BinaryReader
Dim v_bit As Int32
Dim v_i AsInteger
v_i = 0v_connect = Nothing
vc_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 AsByte() = 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)
MessageBox.Show("Envoi PASS")
vc_commande = ASCII.GetBytes("MotPas" & ControlChars.CrLf)
vc_socket.Send(vc_commande)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show(v_CodeRetour)MessageBox.Show("Selectionner un repertoire)
vc_commande = ASCII.GetBytes("CWD /chemin rep" + ControlChars.CrLf)
vc_socket.Send(vc_commande)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show(v_CodeRetour)v_chemin = IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\Test.txt"
vc_fichier = New FileStream(v_chemin, FileMode.Open, FileAccess.Read)
vc_LecFic = New BinaryReader(vc_fichier)
vc_LecFic.Read()
v_buffer = vc_LecFic.ReadBytes(CType(vc_fichier.Length, Integer))
vc_fichier.Close()MessageBox.Show( "Taill buff : " & v_buffer.Length)MessageBox.Show( "Envoi binary")
vc_commande = ASCII.GetBytes("BINARY" + ControlChars.CrLf)
vc_socket.Send(vc_commande)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show("Retour " & v_CodeRetour)MessageBox.Show( "Envoi par STOR " + v_chemin)
vc_commande = ASCII.GetBytes("STOR" & v_chemin & ControlChars.CrLf) '" /web/download/PO_LMC/" +
vc_socket.Send(vc_commande)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show("Retour1 " & v_CodeRetour)
MessageBox.Show("Envoi buff")
vc_socket.Send(v_buffer, SocketFlags.MaxIOVectorLength)
v_bit = vc_fichier.Read(v_buffer, 0, v_buffer.Length)
v_CodeRetour = vc_socket.Receive(v_buffer)
MessageBox.Show("Rep envoi1 " & v_CodeRetour)EndIfEndSub
EndClass
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!!!!" |
|
jeudi 14 février 2008 à 11:41:04 |
Re : FTP avec PDA
|
Cette discussion est classée dans : buffer, show, vc, socket, coderetour
 Répondre à ce message
 Sujets en rapport avec ce message
ping sur pocket pc: socket icmp ou tcp??? [ par troukatruc ]
Bonjour, je suis actuellement en stage et je developpe une programme pour pocket pc en c# avec .net.J' ai besoin de pinger un server.J'ai donc essaye
comment créer une DLL en VC+++ 2005 [ par lhoua94 ]
Bonjour,Je souhaite créer une DLL en VC++ 2005 pour un pocket pc 2005 ou un smartphone que l'on puisse appeler depuis un autre projet sous WINDEV .
Socket pour PDA/PC en C# [ par Diafwl1 ]
Bonjour, j'aimerai faire communiquer un PDA avec un PC par des sockets en C#. J'aimerai tester cette liaison en faisant un boutton sur le PDA, qui une
Socket [ par AngelDiablo ]
Bonjour je suis novice en Csharp et j'aimerais savoir comment redigé un socket en Csharp car je dois faire un envoi de fichier d'un pocket Pc vers un
 Livres en rapport
|
Derniers Blogs
 [ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT()[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT() par tja
Beaucoup de développeurs pensent que lorsqu'on créé et enregistre un IHttpModule, il n'en existe qu'une seule instance et la méthode Init() sera appelée qu'une fois.
C'est faux
Cela peut vraiment créer des bugs subtils dont en ne se rend pas compte ...
Cliquez pour lire la suite de l'article par tja [MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER par phil
Un post rapide pour vous informer de la disponibilité de la vidéo de ma présentation sur SharePoint 2010 & Team Foundation Server. http://www.microsoft.com/france/vision/mstechdays10/Webcast.aspx?EID=20215d48-02e3-4d43-8c36-e53505c3b316 Dans la ...
Cliquez pour lire la suite de l'article par phil [MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION[MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION par Miiitch
Lors de cette session que j'ai animé avec Rui , j'ai eu l'occasion de présenter, en plus des nouveautés de SQL Server 2008, comment utiliser l'édition "database" de Visual Studio 2008. Le principe? Avoir les mêmes outils lors que l'on travaille avec une b...
Cliquez pour lire la suite de l'article par Miiitch [WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF[WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF par JeremyJeanson
La localisation . vous connaissez ce system miraculeux qui permet à votre application de s'afficher dans la langue de l'utilisateur (à condition de l'avoir intégrée dans votre programme). Comment mettre en place la localisation dans WF4? Cette question m'...
Cliquez pour lire la suite de l'article par JeremyJeanson [TECHDAYS 2010] WEBCASTS ET SLIDES[TECHDAYS 2010] WEBCASTS ET SLIDES par Audrey
Les webcasts des sessions des Techdays 2010 sont maintenant disponibles en ligne ! Me concernant, voici les slides et le webcast de la session Blend 3 / Skechtflow : Dessinez c'est gagné ! (animée avec Michel Perfetti ) Les slides et le webcast : Blend 3/...
Cliquez pour lire la suite de l'article par Audrey
Logiciels
 Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor Xlite (v 3.0 build 41150)XLITE (V 3.0 BUILD 41150)c'est un logiciel qui permet de téléphoner par Internet à l'aide d'un compte SIP pratique pour le... Cliquez pour télécharger Xlite Academy System (10.9.3.0)ACADEMY SYSTEM (10.9.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|