sazian Posted January 29, 2006 Report Share Posted January 29, 2006 Napisałem prosty program do testowania, który port jest otwarty, i okazuje się, że ServerSocket nie otwiera portów!!!Oto programy, na których testowałem http://sazian1.goin.pl/Socket.exe tego chyba nie musze tłumaczyćhttp://sazian1.goin.pl/port.exe program do testowania portówPobrałem Socket'y z tej strony. Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 moze jeszcze kawalek kodu ... bo na gotowym sofcie ciezko cos dojsc o co moze chodzic ... Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 [code=Delphi] procedure TForm1.Button1Click(Sender: TObject); begin Se]KX]NY[NB]K[ Y]\"FWB6W'fW%66śWC7FfSŁG'VSŚVćC&6VGW&RDf ŃŃ ąŹĄMQ=4)4) ąŃMŃe:=false; ClientSocket1.Port:=strtoint(edit2.Text); Client]KYYY]K^BY[]KX]N]YNB[C&6VGW&RDf&Ó6ĆVE66śWCW'&\"6VćFW#D&ŚV7CMQ Ń]MQ4(rorCode: Integer); begin ClientSocket1.Active:=false; Ser]KX]NY[NB[BB [/code] Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 ok moze to glupie spostrzezenie ale port otwierasz a dane wyslane sa gdzie ? mozesz zamiescic jakis wiekszy fragment ? Link to comment Share on other sites More sharing options...
Iskar Posted January 29, 2006 Report Share Posted January 29, 2006 U mnie jest w porządku, port jest otwierany, więc u ciebie pewnie działa firewall i on jest przyczyną problemów. Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 No i tu jest problem port nie otwiera się Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 u mnei dziala ... znalazlo poprawnie otwarty port ... slowem cos dzinwego ... jaki numer portu otwierasz? Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 1000,1001,1002....100,101,102....a firewall mam tylko 2 Link to comment Share on other sites More sharing options...
Kezard Posted January 29, 2006 Report Share Posted January 29, 2006 Wyłacz firewall, włączne z tym windowsowym ( jesli masz sp2 ). Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 A nie da się tak żeby firewall działał i mój program, bo tak to trochę mało fajnie Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 dodaj do firewalla niektore porty z ktorych mozesz korzystac i tyle ... ianzce sie tego nie da Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 Wie ktoś jak dodać porty w avascie Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 avast firewall ?niestety nie wiem sorry ... tak na dokladke. Z tego co wiem Avast robi jedynie antyviry ... nie widzialem ze jest takze firewall od nich ... a to dobre Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 avast ma firewall przynajmniej w tej wersji, co ja posiadam, podobnie jak MKS_vir Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 to tak z ciekawosci .. to wersja Home czy Professional? Bo w wersji home nic ma nic takiego jak firewall ... Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 Mam wersie Home 4. Może to nie jest typowy firewall, ale działa, co trochę dostaje wiadomość, że ktoś próbuje się dołączyć do mojego kompa Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 e to tylko shield a nie firewall myslalem ze cos juz przegapilem. On na pewno nejest powidem blokowania portow bo mam to wlaczone i u mnie program smiga ... Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 Znalazłem przyczynę to MKS blokował :oops: Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 bo juz sie zaczynalem zastanawiac ... mam Avasta i nigdy zadnych portow nie blokowal Dobrze zes doszedl o co biega. Pozdrawiam i milej zabawy. BTW. znasz sie moze nieco wiecej na socketach niz same podstawy tzn ich tworzenie i niszczenie ?? Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 Co masz na myśli mówiąc coś więcej niż tworzenie i niszczenie??A gdyby ktoś chciał program do sprawdzania czy port jest aktywny:KOD ps: TClientSocket; ListBox1: TListBox; Label1: TLabel;//caption= Adres IP Label2: TLabel;//caption=Port poczatkowy Label3: TLabel;//caption=Port końcowy Button1: TButton;//caption=Skanuj Button2: TButton;//caption=Zatrzymaj Button3: TButton;//caption=Wyczyść Edit1: TEdit;//text=’’ Edit2: TEdit;//text=’1’ Edit3: TEdit;//text=’6000’ Edit4: TEdit;//text=’’ [code=Delphi] procedure TForm1.Button1Click(Sender: TObject); begin buK[XYY[NBY]K[XYY[NBY][XYf6SŚVFC2ćVć&ĆVCŁf6SŚVFCBćVć&ĆVCŁf6SŚ'WGFąŃ4)ŃźŃŃĄŃ4)dit1.text; ps.port:=portno; ps.active:=true; end; procYHLK]XĘ[X NBY[BG'FBVFC2FWBŚ'WGFćVć&ĆVCŁG'VSŚVFCćVć&ĆVCŁŃ4)ąŃ4)ąŃ4)led:=true; button2.enabled:=false; end; procedure TFormK]XĘ[X NBY[BY] ^IBF&ćFV2ć6ĆV#ŚVćC&6VGW&RDf&Ó46ććV7B6VćFWQ=MQ Ń]M4)ą4)4)ątbox1.items.add('Otwarty port : '+inttostr(portno)); ps.act]NY[NBĘNBY [ Y]FWBFVvF6V6P2ćFG&W73ŁVFCFWC2'CŁŃź4)ŃŃ4)4(4)4(4)QsError(Sender: TObject; Socket: TCustomWinSocket; ErrorEv[][N[YNBX[BY[ŚW'&&6FSŁÓŚVFCBFWCŁu66ćv'BrśGF7G\"Ńź4)Ńą4)џџŹ4)Ńźtrtoint(edit3.text) then goto son else ps.address:=edit1.teBBX]N]YNBBB[ [/code] Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 chodzi mi na przyklad o przeslanie obiektu przez socket... Link to comment Share on other sites More sharing options...
sazian Posted January 29, 2006 Author Report Share Posted January 29, 2006 http://www.unit1.pl/127,35,podglad.htmlPrzesyłanie plików coś mi nie działało ale tekst „śmiga jak szalony”:D Link to comment Share on other sites More sharing options...
marek_haj Posted January 29, 2006 Report Share Posted January 29, 2006 dzieki ... tekst to nie problem ... problem mam z przeslaniem obiektu mojej klasy przez socket ... po stronie odbiorczej nie jest w stanie go poprawnie odtworzyc i nie wiem gdzie skad sie bierze blad ...dzieki za link. Niestety to nie czyste API wiec troche dla mnie nie ten tego Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.