Winsock GetData og Tjek bruger fra DB, tilbagesend resultat

Det som er det egentlige problem, er at sende data'en og få serveren til at lægge det ind i de 2 nævnte variabler...

(jeg har osse lavet Clienten så den kan Connecte til min Server.)
Hvad Server snakker vi om?

MySQL, MS SQL, HTTP, FTP, IRC... eller et server program du selv har lavet?

Serveren er bare et program som kører og lytter efter brugere der vil connecte indtil videre...
Det eneste jeg faktisk mangler nu, er hvis jeg for eks. fra klienten sender username og password med | imellem, for eks. user|pass så skal jeg bare finde ud af at få serveren til at adskille dem...

Og, ja... Serveren har jeg selv lavet.. :D

brug split()

Private Sub Form_Load()
Dim strData As String
Dim arrSplit() As String
  strData = "Hans|123456"
  arrSplit = Split(strData, "|")

  MsgBox arrSplit(0) 'User
  MsgBox arrSplit(1) 'Pass
End Sub

Det vil jeg så prøve...
Men når jeg sender data på min Client får den fejlen: Runtime Error '400006': Wrong protocol or connection state for the requested transaction or request

Hvad gør jeg galt? her er min kode:
Private Sub Command1_Click()
    Winsock.Close
    Winsock.Connect "212.242.249.5", 80
    Winsock.SendData Text1.Text & "|" & Text2.Text
End Sub

Og det er faktisk det eneste kode jeg har ved min login form...

Du kan ikke sende noget før der er forbindelse...

Private Sub Command1_Click()
  With Winsock1
      .Close
      .Connect "212.242.249.5", 80
  End With
End Sub

Private Sub Winsock1_Connect()
  With Winsock1
      .SendData CStr(Text1.Text & "|" & Text2.Text)
  End With
End Sub

Ahh.. Jeg troede at forbindelsen var klar efter Winsock.Connect... :D

Lige én ting... Du har sikkert hørt det en million gange...
hvordan får jeg mine programmer til at vise sig i min taskbar? og den menu når man trykker ALT + TAB ?

så for du din data sådan ;)

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
  With Winsock1
      .GetData strData, vbString, bytesTotal
  End With
  MsgBox strData
End Sub

øhh det gør den da fra starten af.. ( taskbar.. ALT + TAB)

Under Properties
ShowInTaskbar = True

Det er på False som standard her... :D

Naa vel ikke når du starter en nyt project

Her er min kode... Den gør ikk helt som den skal..
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    Dim arrSplit() As String
    Dim strPass As String
    Dim strUser As String
    With Winsock
    .GetData strData, vbString, bytesTotal
    End With
   
    arrSplit = Split(strData, "|")
   
    strUser = arrSplit(0)
    strPass = arrSplit(1)
    Text1.Text = Text1.Text & vbCrLf & strData
    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\profiles.mdb")
    Set rs = db.OpenRecordset("tblProfiles")
        rs.MoveFirst
        Do While rs.EOF = False
        If rs!User = strUser And rs!Password = strPass Then
            Winsock.SendData "You are now logged in!"
            Text1.Text = Text1.Text & vbCrLf & "Client Logged in"
            Exit Sub
        End If
    rs.MoveNext
    Loop
End Sub

hvad er der lige den ikke vil???

Prøvede at lægge den her linie ind lige efter Private Sub Winsock_DataArrival
    Text1.Text = Text1.Text & vbCrLf & "Client sent data"

Det skriver den ikk engang når jeg trykker på den knap hos klienten...
Her er klienten's kode:
Option Explicit

Private Sub Command1_Click()
  With Winsock
      .Close
      .Connect "212.242.249.5", 80
  End With
End Sub

Private Sub Winsock1_Connect()
  With Winsock
      .SendData CStr(Text1.Text & "|" & Text2.Text)
  End With
End Sub

Ahh... problemet var Private Sub Winsock1_Connect()
Den skal hedde Winsock uden 1'tallet :D

Kan du svare mig på hvorfor mine programmer ikke lukker helt når jeg trykker på krydset oppe i hjørnet? De ligger stadig under Processor i windows?

du køre vel et do..loop et eller andet sted..

Nope...
Men jeg kan huske at jeg har set at andre herinde har haft samme problem, jeg kan bare ikke finde dem.... :D

så har du vel flere formler som ikke bliver lukket..

Private Sub Form_Unload(Cancel As Integer)
Dim element As Object
  For Each element In Forms
    Unload element
  Next
End Sub

Kan det være fordi at den holder den Winsocket connection åben?
Hvad hedder den trigger som bliver udløst når man trykker på krydset oppe i hjørnet?

Forresten... Hvorfor sender du ikke et svar!? :D

Ahh... Det er fordi at jeg skjuler min første form når jeg åbner en anden... Jeg takker mange gange for din hjælp!

Du har fortjent point'ne

;)

Jeg tænkte på... Min Winsock forbindelse skal jo ikke kun virke i det brugeren logger på...
Kan man ikk lægge Winsock i en BAS fil, et modul eller sådan noget, så den kører permanent?

hvis det ikke skl virke i dit log ind vindue hvordan vil du så tjekke om user/pass er korrekt ;)

jojo... Der skal det også virke... Men den forbindelse der bliver oprettet der skal virke hele programmet igennem...
Hvordan gør jeg det så smartest?

ja nu ved jeg jo ikke hvad du er ved at lave.. udover noget log ind.. men det er da smartest at det hele er i en file ellers kan nogle snyde og lave en fil med samme navn og opsnuse hvad der bliver sendt tilbage for at log ind ;)

hm... Jeg regner med at kryptere password og brugernavn senere...
Det bliver forhåbentlig et ret stort program, hvor den hele tiden henter/opdaterer/opretter ting fra/på serveren i DB'en...

Dvs. at programmet skal bruge forbindelsen hele vejen igennem, så spørgsmålet er hvordan jeg sparer min server for at folk opretter en ny forbindelse hver gang at de åbner et nyt vindue.. :-)

Er det en god løsning at lave en skjult form som hele tiden er åben?

ja det kan du jo gøre som du lyster.. bare du husker at få lukket den igen.. :D

Ok... Det skal jeg nok huske... :P

Bare for at samline lidt.. når man logger på MSN åbner den 9 TCP og 1 UDP så den ene du bruger er jo ikke noget ;)

sjh, jeg har på fornemmelsen at du er ret dygtig så jeg tænkte på om du vil debugge mit projekt for 100 point?
http://frip.dk/cronck/MyProject.rar
Det som der er problemet er at Klienten crasher hvis serveren ikke er åben, og det skal den jo ikke, men bare blive ved med at prøve at oprette forbindelsen igen...
Og, hvis du åbner 3-4 klienter, imens at serveren er åben, luk den ene klient, åbn en ny klient, og serveren crasher....

Håber at du vil hjælpe

Glemte lige at sige, hvis du vil og går igang, så skriv venligst ned hvad du ændrer så jeg kan lære af det.. :D

Bare glem det.. ser ud til at det meste virker nu :D