Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    Sep 2006
    Messaggi
    703

    [VB6] client/server

    ciaoooooooooo...!!! ho fatto un un programmino in locale, client/server che mi permette di "parlare"..come ip ho messo 127.0.0.1 il server ke ascolta sulla porta 2000.
    Il programma funziona!!è ke riesco riesco solamente a far ricevere i messaggi al server ma non ha mandarli...in opposto il client manda ma non riceve,posto il codice..se potete aiutarmi
    ah, facendo un altro winsock per entrambi?(idea di hj),
    nel senso allora nel client il secondo winsock serve a fare il lavoro da server e quindi a ricevere e invece sul server il secondo winsock serve a fare il lavoro da client e quindi mandare i messaggi...solo che stò facendo un kasino immenso:

    server:

    Private Sub Form_Load()

    End Sub

    Private Sub invia_Click()
    Dim data As String
    data = txtOut
    wskClient.SendData data & vbCrLf
    End Sub

    Private Sub Listen_Click()
    wskServer.LocalPort = 2000
    wskServer.Listen
    End Sub

    Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
    If (wskServer.State <> sckClosed) Then wskServer.Close
    wskServer.LocalPort = 0
    wskServer.Accept requestID
    End Sub


    Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
    Dim a As String
    wskServer.GetData a
    Text1.Text = a & vbCrLf
    End Sub




    client:


    Private Sub connetti_Click()
    wskClient.Connect txthost.Text, txtporta.Text
    End Sub

    Private Sub Form_Load()

    End Sub

    Private Sub invia_Click()
    Dim data As String
    data = txtout
    wskClient.SendData data & vbCrLf
    End Sub

    Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
    Dim a As String
    wskClient.GetData a
    txtReply = a & vbCrLf

    end sub

    se potete ripostarmelo corretto..così poi vado studirami gli errori..grassie mille

  2. #2
    Utente di HTML.it
    Registrato dal
    Sep 2006
    Messaggi
    703
    nessuno sa cm metterlo a posto?

  3. #3
    Controlla i messaggi privati... te ne ho inviato uno!

  4. #4
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472
    Originariamente inviato da CGiuseppe
    Controlla i messaggi privati... te ne ho inviato uno!
    Perché scrivere qui questa segnalazione? :master:
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  5. #5
    Originariamente inviato da alka
    Perché scrivere qui questa segnalazione? :master:
    perchè riguarda questo thread !!!


  6. #6
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,472
    Originariamente inviato da CGiuseppe
    perchè riguarda questo thread !!!
    Cosa trovi di divertente?

    Sinceramente, non mi sembra particolarmente corretto intervenire pubblicamente in una discussione, che dovrebbe essere destinata a risposte sul problema, per segnalare la presenza di un messaggio che tratta proprio la discussione ma privatamente.

    Ciò che va fatto è proprio il contrario: la soluzione postata qui, e al massimo una segnalazione in privato, che sarebbe comunque superflua.

    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.