Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: łączenie sie z kilkoma adresami przy użyciu winsock
anonim




Typ: Nie zarejestrowany
łączenie sie z kilkoma adresami przy użyciu winsock

więc tak napisałem sobie klienta:

Private Sub cmdpolacz_Click()
sckMain.Close 'zamykamy sckMain
sckMain.RemotePort = "1884" 'ustawiamy port
sckMain.RemoteHost = Text2.text 'ustawiamy ip
sckMain.Connect 'łączymy
End Sub


Private Sub cmdwyslij_Click()
If sckMain.State <> sckConnected Then 'jesli nie połączone łączymy
MsgBox "Nie jesteś połączony "vbCritical, "Nie połączony"
Exit Sub 'zatrzymujemy procedurę
End If

sckMain.SendData Text1.Text 'wysyłamy

End Sub


Private Sub Timer1_Timer()

If sckMain.State = sckConnecting Then ' jesli sckMain trwa łączenie to...
Form1.Caption = "Łączenie"
ElseIf sckMain.State = sckConnected Then 'jesli sckMain połączony to...
Form1.Caption = "Połączony"
Else 'jesli nie to..
Form1.Caption = "Nie połączony"
End If
End Sub

i serwer:

Private Sub Form_Load()
sckMain.Close 'zamykamny sckmain
sckMain.LocalPort = "1884" ' ustawiamy port nasluchu
sckMain.Listen ' nasluchujemy
End Sub

Private Sub sckMain_ConnectionRequest(ByVal requestID As Long)
If sckMain.State <> sckClosed Then sckMain.Close
sckMain.Accept requestID
End Sub

Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim Info As String
sckMain.GetData Info
Text1.Text = Info
End Sub

Private Sub Timer1_Timer()
If sckMain.State = sckListening Then 'jesli nasluchuje to
Form1.Caption = "nasłuchiwanie"
ElseIf sckMain.State = sckConnecting Then ' jesli laczy to
Form1.Caption = "łączenie"
ElseIf sckMain.State = sckConnected Then 'jesli polaczony to
Form1.Caption = "Połączony"
Else 'jesli nie polaczony to
Form1.Caption = "Nie połączony"
sckMain.Close 'najpierw zamykamy sckmain
sckMain.LocalPort = "1884" ' ustawiamy port
sckMain.Listen ' zaczynamy nasłuchiwać
End If
End Sub


1.teraz tak, chcę połączyć sie nie tylko z jednym, ale z np, 10, czy 20 serverami naraz, jak to zrobic aby było to najekonomiczniejsze ? i najprostsze w obsłudze.....

2. chce przesłąc np. z klienta do wszystkich podłaczonych serverów zawartosc listy czy comboboxa, jak to zrobić ???

moze wydadzą  Wam sie banalne mpoje pytania, ale jestem poczatkujący i licze ze mi pomozecie a nie zlinczujecie, podobno nie gryziecie ?

23-09-2004 21:16
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Witam,
Podobno nie gryziemy? Skąd taka opinia o naszym forum? Jestem ciekaw ale wracając do tematu połączeń za pomocą winsocka odeślę cię na razie (późno jest) na strone www.winsockvb.com gdzie w dziale tutorials jest przedstawione krok po kroku tworzenie wielu aplikacji przy pomocy tej kontrolki.
W razie dalszych pytań/kłopotów/nieznalezienia tam odpowiedzi kontynuuj wątek
Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

24-09-2004 00:29
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
anonim




Typ: Nie zarejestrowany

niestety z angielksiego najlepszy nie jestem, ale na kilka połaczen chyba znalażłem artykuła ale nic z tego nie czaje

http://www.winsockvb.com/article.php?article_id=18&page=1

24-09-2004 20:37
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1