Qqun utilise socketWrench ? :(

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Qqun utilise socketWrench ? :(

Schtroumpheur

bwwwwwaaaaarkkkkkkk!!!!!!

Salut, voila je voulais savoir si qqun utilisais ce freeware, qui permet de faire des appli client serveur en vb,...

je l'ai telechargé hier, mais rien a faire, j'ai suivi le premier exemple tout simple decrit dans le .DOC fourni avec ( le tutorial en anglais koi ) mais ca passe pas : voici le code que j'ai mis :

Private Sub Form_Load()
Socket1.AddressFamily = AF_INET
Socket1.Protocol = IPPROTO_IP
Socket1.SocketType = SOCK_STREAM
Socket1.Binary = False
Socket1.Blocking = False
Socket1.BufferSize = 1024
End Sub

Private Sub Command1_Click()

On Error GoTo Failed
Socket1.HostName = Trim$(Text1.Text)
Socket1.RemotePort = IPPORT_ECHO
Socket1.Action = SOCKET_CONNECT
Exit Sub

Failed:
MsgBox "Unable to connect to remote host"
Exit Sub

End Sub

Private Sub Socket1_Connect()
Text2.Enabled = True
Text3.Enabled = True
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Socket1.SendLen = Len(Text2.Text)
Socket1.SendData = Text2.Text
KeyAscii = 0: Text2.Text = ""
End If
End Sub

Private Sub Socket1_Read(DataLength As Integer, IsUrgent As Integer)
Dim strBuffer As String
Socket1.Read strBuffer, DataLength
Text3.Text = strBuffer
End Sub

Sub Form_Unload(Cancel As Integer)
If Socket1.Connected Then Socket1.Action = SOCKET_CLOSE
End
End Sub

et le champ text3.text ne se remplis pas... bref ca marche pas, si qqun aurait un exemple sous la main, merci d'avance :'(

a+

Publicité

Harkonnen

Modérateur
Un modo pour les bannir tous

schtroumpheur a écrit a écrit :

et le champ text3.text ne se remplis pas... bref ca marche pas, si qqun aurait un exemple sous la main, merci d'avance :'(

je connais pas SocketWrench, mais je peux te conseiller une manière de débugger : place un breakpoint sur la ligne Text3.Text = strBuffer , et vois si ton programme arrive dans la fonction.
si ce n'est pas le cas, alors ça veut dire que la fonction Socket1_Read n'est jamais appelée, et donc que tu t'es planté dans l'utilisation de ton ocx

---------------
J'ai un string dans l'array (Paris Hilton)

Schtroumpheur

bwwwwwaaaaarkkkkkkk!!!!!!

Merci

Bon en effet, il passe pas par la, mais en fait j'avais mal capté le prog, si j'ai bien compris le Command1 sert a etablir la connection, la d'apres le prog, la conenction est etablie (si l'exemple est correct ) apres avoir clickez dessus, ensuite, j'entre du texte dans text2.text et je fait enter... il detecte que la touche enter a ete pressee et il est sencé envoyer le contenu du text2.text ben , il me sort cette errreur :

erreur d'execution 24057

socket is not connected

comprends pu rien, pourtant c l'exemple donné avec le OCX lui meme, y a tout un tutoriel. grrr

tkx

Harkonnen

Modérateur
Un modo pour les bannir tous

Citation :

Socket1.RemotePort = IPPORT_ECHO

Je suppose que cette constante représente le n° du port. Mais je ne vois pas sa définition dans ton source...

---------------
J'ai un string dans l'array (Paris Hilton)

Schtroumpheur

bwwwwwaaaaarkkkkkkk!!!!!!

Harkonnen a écrit a écrit :

Citation :

Socket1.RemotePort = IPPORT_ECHO

Je suppose que cette constante représente le n° du port. Mais je ne vois pas sa définition dans ton source...

Ben ils ont fourni un fichier TXT avec toute les constante a ajouter dans le projet ce ke j'ai fais biensur, ...

a+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Qqun utilise socketWrench ? :(

Sujets relatifs
[PHP/MYSQL] - alors la si qqun y comprends qque chose, CHAPO! [résolu]	[hs] qqun sait il comment rendre un type de fichier "caché"
qqun pourrait m'envoyer le user.php de php nuke 5.6 fr.	Qqun pourrait faire ça ?
[php} comment on sais que qqun se deconnect de notre site	[VBA] qqun aurait un Mac pour tester un fichier Excel dev. sous PC?
[php] recuperer le statut icq de qqun	[FileMaker] qqun connait un bon site pour débutant?
[ASP] Est-ce que qqun peut m'aider???	Debutant : SQL : EXISTS et NOT EXISTS qqun peut m'expliké ?!!
Plus de sujets relatifs à : Qqun utilise socketWrench ? :(

Page générée en 0.040 secondes