Qqun utilise socketWrench ? :(
Qqun utilise socketWrench ? :( - VB/VBA/VBS - Programmation
Marsh Posté le 20-11-2002 à 21:26:57
| 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)
Marsh Posté le 20-11-2002 à 21:49:46
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
Marsh Posté le 20-11-2002 à 22:19:29
| Citation : |
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)
Marsh Posté le 20-11-2002 à 23:13:41
Harkonnen a écrit a écrit :
|
Ben ils ont fourni un fichier TXT avec toute les constante a ajouter dans le projet ce ke j'ai fais biensur, ...
a+
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é ?!!
Marsh Posté le 20-11-2002 à 21:10:39
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+