floxone
Messages postés88Date d'inscriptionmardi 19 avril 2005StatutMembreDernière intervention10 août 2007
-
16 oct. 2005 à 00:36
floxone
Messages postés88Date d'inscriptionmardi 19 avril 2005StatutMembreDernière intervention10 août 2007
-
23 oct. 2005 à 15:47
Salut à tous,
Je suis débutant en dot net. Je cherche à faire un mini client ftp. Pour cela, je suis les tuto du site : ils sont géniaux... Le problème, c'est qu'après avoir implémenter une version de test, j'ai pas de connexion....
Je vous joint le code :
Public
Class Form1
Inherits System.Windows.Forms.Form
#
Region " Code généré par le Concepteur Windows Form "
Public
Sub
New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End
Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected
Overloads
Overrides
Sub Dispose(
ByVal disposing
As
Boolean)
If disposing
Then
If
Not (components
Is
Nothing)
Then
components.Dispose()
End
If
End
If
MyBase.Dispose(disposing)
End
Sub
'Requis par le Concepteur Windows Form
Private components
As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend
WithEvents command1
As System.Windows.Forms.Button
Friend
WithEvents Winsock
As AxMSWinsockLib.AxWinsock
Friend
WithEvents Wck
As AxMSWinsockLib.AxWinsock
<System.Diagnostics.DebuggerStepThrough()>
Private
Sub InitializeComponent()
Dim resources
As System.Resources.ResourceManager =
New System.Resources.ResourceManager(
GetType(Form1))
Private
Sub Form1_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load
Winsock.LocalPort = 5000
'rq : la propriété aurait pu être défini directement
Winsock.Listen()
End
Sub
Private
Sub command1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles command1.Click
Wck.Close()
Wck.Connect("127.0.0.1", 5000)
End
Sub
Private
Sub Winsock_ConnectionRequest(
ByVal requestID
As
Long)
Winsock.Accept(requestID)
End
Sub
Private
Sub Wck_Connect()
MsgBox("Trouvé")
End
Sub
End
Class
J'ai placé des points d'arrêt. Je ne rentre jamais ds le Winsock_ConnectionRequest et donc, jamais dans le Wck_Connect. Vous aurez donc compris que la MsgBox n'apparait pas.
Je suis sur un routeur, mais puisque je prend localhost, je pense pas que cela pose probleme ! J'ai deconnecter norton et pare feu windows...
Si quelqu'un voit un problème, cela me permettrait d'avancer ! Il commence à ce faire tard et je ne trouve vraiment pas...