[WinSock] Pb de connexionRésolu

Question

Bonjour tout le monde !

J'ai un ch'ti pb avec le controle winsock.
En fait, j'arrive pas &#224; &#233;tablir la connexion avec l'h&#244;te (qu'est sur mon r&#233;seau local).
Je d&#233;bute en vb... moi grand pro du qbx mais pas du visual :-(
Je pensais avoir capt&#233; l'utilisation des socket, mais je crois que j'ai rat&#233; un wagon...

Je poste le code:

C$ = Command$
If Trim$(C$) = "" Then WriteToConsole "Vous devez sp&#233;cifier le nom d'h&#244;te et le port &#224; utiliser pour la connexion." + vbCrLf: End


Dim Arg(1 To 32) As String
ParseCmd C$, Arg(), " ", ArgCtr%
Cmd$ = Right$(C$, Len(C$) - Len(Arg(1) + Arg(2)) + 2)


Dim Host(1 To 2) As String
ParseCmd Arg(1), Host(), ":", T_Ctr%
T_Host$ = Host(1)
T_Port% = Val(Host(2))
WriteToConsole "Tentative de connexion &#224; l'h&#244;te: " + T_Host$ + " sur le port:" + Str$(T_Port%) + vbCrLf
WriteToConsole "Requ&#234;te: " + Cmd$ + vbCrLf
Win.Socket.Close
Win.Socket.Protocol = sckTCPProtocol
Win.Socket.Connect T_Host$, T_Port%
Win.Socket.SendData Cmd$
While Win.Socket.BytesReceived = 0
DoEvents
Wend
Win.Socket.Close
End


En fait, le prog prend le command$, extrait le nom d'h&#244;te et le port distant, puis la requ&#234;te(cmd$), qui pourrait &#234;tre n'importe quoi, mais comme le poste sigma-n1fty dispose d'un service web branch&#233; sur le port 80, alors je balance un GET HTTP/1.0... ParseCmd est un &#233;quivalent de SPLIT, mais split n'existait pas en QB, et j'ai tellement pris l'habitude... Socket_DataArrival est une routine qui lit les donn&#233;es via socket.getdata... bon, je vous fait pas un dessin, vous connaissez...

Pour COMMAND$, je met &#231;a:
command$="sigma-n1fty:80 GET HTTP/1.0"

Donc, la tentative se fait sur l'hote et le port pass&#233;s en param&#232;tres, mais la connexion n'est pas &#233;tablie, et je ne comprends pas pourquoi...

Quelqu'un voit o&#249; est le pb... moi j'ai pas trouv&#233;...

merci d'avance.

PCPT · Accepted Answer

salut,

j'ai vaguement regard&#233; ton post ( trop long pour mes pauvres yeux.....)


'Tentative de connexion du socket
Win.Socket.Connect
DoEvents

'Envoi des donn&#233;es
Win.Socket.SendData Cmd$


tu ne peux pas envoyer de message tant que l'&#233;tat de la connection n'est pas "Connected" (7)

tu configures, tu te connectes, et l&#224;, tu attends de recevoir la r&#233;ponse de connection. soit par un DoEvents, genre

'en dessous de Win.Socket.Connect

While Win.Socket.State<>7
   Doevents
Wend

soit avec un timer, qui continue ta proc&#233;dure et s'arr&#234;te quand = 7 (solution pr&#233;f&#233;rable. en cas d'echec de connection, tu peux rester une pas mal de temps dans ta boucle sinon)

PCPT

nifty · Answer

pliz un peu d'help... Ou j'casse tout!!!

voici le code d'erreur : 40006 Etat de la connexion ou du protocole &#233;rron&#233;..

Je comprends pas. Le serveur wev fonctionne parfaitement sur le poste sigma-n1fty, et la connexion via TelNet fonctionne parfaitement sur le port 80, donc c pas lui le pb... Ca vient donc forc&#233;ment du code...

Je vous poste le tout, au cas ou...

J'ai une Form nomm&#233;e "Win" avec visibility=hidden sur laquelle j'ai mis un controle Winsock nomm&#233; "Socket"... jusque l&#224;, rien de bien sorcier...

Et le code complet...

'
' D&#233;clarations pr&#233;alables pour l'utilisation du mode console
'
Public Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Const STD_OUTPUT_HANDLE = -11&
Private Type Var
 vName As String * 12
 vVal  As String * 1024
 vLen  As Integer
End Type
Private Type COORD
        x As Integer
        y As Integer
End Type
Private Type SMALL_RECT
        Left As Integer
        Top As Integer
        Right As Integer
        Bottom As Integer
End Type
Private Type CONSOLE_SCREEN_BUFFER_INFO
        dwSize As COORD
        dwCursorPosition As COORD
        wAttributes As Integer
        srWindow As SMALL_RECT
        dwMaximumWindowSize As COORD
End Type
Private Declare Function GetConsoleScreenBufferInfo Lib "kernel32" (ByVal hConsoleOutput As Long, lpConsoleScreenBufferInfo As CONSOLE_SCREEN_BUFFER_INFO) As Long
Private Declare Function SetConsoleTextAttribute Lib "kernel32" (ByVal hConsoleOutput As Long, ByVal wAttributes As Long) As Long
Private Const FOREGROUND_BLUE = &H1     '  Du bleu.
Private Const FOREGROUND_GREEN = &H2     '  Du Vert.
Private Const FOREGROUND_INTENSITY = &H8     '  Du brillant.
Private Const FOREGROUND_RED = &H4     '  Du Rouge.
Private hOutput             As Long     'Pointeur vers la console
'
'Ecrire du texte dans la console
'
Private Function WriteToConsole(sText As String) As Boolean
    Dim lWritten            As Long
    If WriteFile(hOutput, ByVal sText, Len(sText), lWritten, ByVal 0) = 0 Then
        WriteToConsole = False
    Else
        WriteToConsole = True
    End If
End Function


Sub Main()
'R&#233;cup&#233;ration des infos de la console
Dim scrbuf As CONSOLE_SCREEN_BUFFER_INFO
hOutput = GetStdHandle(STD_OUTPUT_HANDLE)
GetConsoleScreenBufferInfo hOutput, scrbuf


'R&#233;cup&#232;re les param&#232;tres de la ligne de commande
C$ = Command$
If Trim$(C$) = "" Then WriteToConsole "Vous devez sp&#233;cifier le nom d'h&#244;te et le port &#224; utiliser pour la connexion." + vbCrLf: End
Dim Arg(1 To 32) As String
ParseCmd C$, Arg(), " ", ArgCtr%
Cmd$ = Right$(C$, Len(C$) - Len(Arg(1)) - 1)
Dim Host(1 To 2) As String
ParseCmd Arg(1), Host(), ":", T_Ctr%
T_Host$ = Host(1)
T_Port% = Val(Host(2))


'Juste un petit m&#233;ssage pour v&#233;rifier le passage des param&#232;tres
WriteToConsole "Tentative de connexion &#224; l'h&#244;te: " + T_Host$ + " sur le port:" + Str$(T_Port%) + vbCrLf
WriteToConsole "Requ&#234;te: " + Cmd$ + vbCrLf


'Pr&#233;paration du socket
Win.Socket.LocalPort = 0
Win.Socket.Close
Win.Socket.Protocol = sckTCPProtocol
Win.Socket.RemoteHost = T_Host$
Win.Socket.RemotePort = T_Port%


'Tentative de connexion du socket
Win.Socket.Connect
DoEvents

'Envoi des donn&#233;es
Win.Socket.SendData Cmd$

End Sub
'
' Split a single string into an array, extracting items separated by
' specified delimiter string, and returning argument count.
'
Sub ParseCmd(TStr As String, ArgArray() As String, Delimiter$, ArgCounter%)
 Dim ThisStr As String
 ThisStr = TStr
 If Not Right$(ThisStr, 1) = Delimiter$ Then AddStr ThisStr, Delimiter$ Last% 1: ArgCounter% 0
 For T% = 1 To Len(ThisStr)
  If InStr(T%, ThisStr, Delimiter$) Then
   ArgCounter% = ArgCounter% + 1
   ArgArray(ArgCounter%) = Mid$(ThisStr, Last%, (InStr(T%, ThisStr, Delimiter$) - Last%))
   Last% = InStr(T%, ThisStr, Delimiter$) + 1
   T% = Last%
  End If
 Next T%
End Sub


Sub Sk_DataArrival()
'Cette SUB est appell&#233; par la sub priv&#233;e 'Socket_DataArrival' de la form Win
Win.Socket.GetData NewDatas$
WriteToConsole NewDatas$ + vbCrLf
Win.Socket.Close
End
End Sub

Sub AddStr(ToStr$, ThisStr$)
'Fusionne deux chaines de caract&#232;res
ToStr$ = ToStr$ + ThisStr$
End Sub

cs_MasterHack · Answer

Salut, je suis tout a fait d'accord avec pcpt

Life is short...Learn more Copy Rights <> Rights to Copy

cs_MasterHack · Answer

re, encore ce bug , :( je disais que c possible d'utiliser la methode senddata en declachement de l'evenement connect de l'objet winsock1,sinon la demarche precedante reste bien adapte a ton problem, aller bonne prog a tous ;)

Life is short...Learn more Copy Rights <> Rights to Copy

PCPT · Answer

en effet, le premier message peut &#234;tre envoy&#233; &#224; lors de l'&#233;v&#232;nement Connect, mais &#231;&#224; revient au m&#234;me, puisqu'on quitte bien la proc&#233;dure d'origine (celle qui &#233;tablie la connection)

ps : MasterHack, de m&#233;moire, tu as il y a quelques temps,  une sorte d'adaptation pour les menus.. si je ne te confond pas, je peux l'utiliser en compil&#233; (avec credits), redistribu&#233; pour un projet ici ?

PCPT

PCPT · Answer

il manque un verbe .....

cs_MasterHack · Answer

salut, pour le system menu ? c si ça, fonce y'a pas le moindre problem. :)

Life is short...Learn more Copy Rights <> Rights to Copy

PCPT · Answer

merci
PCPT

nifty · Answer

Merci bcp... La connexion semble maintenant s'&#233;tablir correctement.

J'ai maintenant un pb de .Getdata mais bon, je vais pas vous ennuyer avec &#231;a, je vais t&#226;cher de me d&#233;brouiller...

Merci encore.

PCPT · Answer

salut,

j'esp&#232;re que tu as pr&#233;f&#233;r&#233; utiliser un timer plut&#244;t que le DoEvents.
si tu veux un bout de code + pr&#233;cis pour cette m&#233;thode, y'a qu'&#224; demander.

pour GetData, regarde dans les derniers Posts, le sujet ressemble &#224; "contourner les limites 4096". tu y trouveras r&#233;ponse je pense.
PCPT

[WinSock] Pb de connexion

10 réponses

Discussions similaires