Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Coś z portem
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Coś z portem

Pewne programy(moje) komunikowały się poprzez port 6655. Po jakimś czasie klient przestał nasłuchiwać. Jednak czasem (ale żadko) zgodał się na nasłuchiwanie portu. Przed chwilą zmieniłem port z 6655 na 1111 i wszystko działa . Dlaczego na porcie 6655 nie chciało?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

21-08-2004 23:42
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Może port 6655 był już przez coś zajęty?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

22-08-2004 10:11
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

No właśnie nie było przez co! A na tym 1111 też przestał działać . Nie wiesz dlaczego?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

22-08-2004 21:18
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Jak bym mógł wydłubać treść błedu chociaż...


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

22-08-2004 21:27
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

A dlaczego nie możesz jej wydłubać? I na czym polega to zaprzestanie działania? (i co to za prog wogóle?).


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

22-08-2004 21:48
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Chyba wiem w czym może być problem:

Czy po restarcie komputera spowrotem działają te porty? Jak tak to problem jest najprawdopodobniej nie zaprzestanie nasłuchiwania (na danym porcie) i wyłączenie programu. Taki port jest potem zablokowany i nie można z niego kożystać.


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

23-08-2004 00:12
Pokaż profil m-a-x  Wyślij email do m-a-x   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Wiem, Max, ale po restarcie też nie działały
Marcin! Oto kawałek kodu:

Public Function Listen(Port As Long) As Boolean
    Dim sck As sockaddr
    Dim rc As Long
   
    'Get a new socket
    mListenSocket = Socket(AF_INET, SOCK_STREAM, 6)
   
    If mListenSocket > 0 Then
        'Prepare the socket
        With sck
            .sin_family = AF_INET
            .sin_port = htons(Port)
            .sin_addr = 0
            .sin_zero = String$(8, 0)
        End With
       
        'Bind it to the adapter
        rc = bind(mListenSocket, sck, Len(sck))
        If rc = 0 Then
            'Start listening
            rc = SocketListen(mListenSocket, 5)
            If rc <> SOCKET_ERROR Then
                'Fire an event when a connection is made
                rc = WSAAsyncSelect(mListenSocket, _
                        txtConnect.hwnd, _
                        ByVal WM_LBUTTONUP, _
                        FD_ACCEPT)
           
                Listen = True
            Else
                'Could not listen
                Listen = False
            End If
        Else
            'Failed to bind
            Listen = False
        End If
    Else
        'Failed to create socket
        Listen = False
    End If
End Function

No i zmienna rc zwraca wartość -1. Nie zawsze też server chce się łączyć. Funkcja jest podobna i też rc zwraca -1. Przedtem to przynajmniej server się łączył, a teraz od święta...


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

23-08-2004 11:14
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Żeby zdobyć numer błędu, użyj WSAGetLastError.

To wszystko, co mi narazie przychodzi do głowy.

Sprawdź też, czy wina na pewno leży w programie - to może być przecież jakiś błąd w sieci.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

23-08-2004 14:07
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Wina w sieci? Nie sądzę, bo się łączę z samym sobą


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

23-08-2004 18:52
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Czyli rzeczywiście to nie jej wina.
W takim razie nie mam pomysłów - tym bardziej, że to zostaje nawet po restarcie systemu.

A co ci zwraca WSAGetLastError?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

23-08-2004 19:46
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

WSAGetLastError? Cytat: "0" , a łączyć się nie łączy


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

23-08-2004 22:27
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Bind zwraca ci -1
WSAGetLastError zwraca ci 0
<intensywnie myśli>
Mój mózg zwrócił "to bez sensu"

Masz na pewno wszystko dobrze wcześniej? O inicjalizacji WSA nie zapomniałeś?

[Tak na marginesie: firewall ci nie blokuje? ]

[Post edytowany dnia 23-08-2004 23:35 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

23-08-2004 23:33
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003

co do numeru błędu to Err.Number czy jakoś tak więcej nie moge niestety pomóć bo nie jestem w temacie


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

26-08-2004 22:20
Pokaż profil xEagle2  Wyślij email do xEagle2       
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

WSAGetLastError - inicjalizacja? Możesz dokładniej wytłumaczyć?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

26-08-2004 23:43
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

MIKMAS:
Głupie pytanie było - rpzecież gdybyś nie zainicjował, to miałbyś wcześniej te błędy i wogóle by nie działało...

Nie mam pomysłu, co mozę być źle

[Post edytowany dnia 26-08-2004 23:47 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

26-08-2004 23:46
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 14 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1