Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Wysyłanie... mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Wysyłanie... Mam problem. Chcę coś wysłać na serwer za pomocą kontrolki Inet. Oto funkcja wysyłająca: Function Send(SerwerFTP As String, Co As String, Nazwa As String) As Boolean 'On Error GoTo Byk Dim strRemote As String, strLocal As String With Form1.Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemoteHost = SerwerFTP .RemotePort = "21" .Password = " TAJNE" .UserName = "mikmas" .RequestTimeout = "60" strRemote = Nazwa strLocal = Co .Execute , "PUT """ & strLocal & """ " & strRemote Send = True End With Exit Function Byk: Send = False End Function Wszystko jest ładnie, funkcja wysyła, ale mam podejżenia, że nie funkcja nie zrywa połączenia. A serwer ma ograniczenia (10 operacji naraz). Jak zabić połączenie? _____________________________________________ 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 27-06-2004 10:42 3632553 Jelcyn Admin forum Typ: admin Postów: 895 Zarejestrowany: Apr 2002 Wszystko jest ładnie, funkcja wysyła, ale mam podejżenia, że nie funkcja nie zrywa połączenia. A serwer ma ograniczenia (10 operacji naraz). Jak zabić połączenie? Nic nie robić ;-) Po 5 minutach bezczynności serwer Ciebie rozłączy :-) _____________________________________________ Jelcyn vb4all(małpka)canpol.pl * 27-06-2004 11:03 270849979 6237704 marcin_an Forumowicz Typ: neutral Postów: 1265 Zarejestrowany: Mar 2004 Np. tak: .Execute , "CLOSE" Tyle tylko, że nie wiem, dlaczego akurat CLOSE, bo powinno być QUIT (RFC959 ^4.1.1). Jednak w MSDN podają CLOSE, więć ja też podaję CLOSE. W razie czego radzę spróbować QUIT. _____________________________________________ Popieram losmaca: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!! ___ NOWE FORUM 27-06-2004 11:32 mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Still executing last request W obu przypadkach błąd taki jak powyżej. Z CLOSE to nie próbowałem teraz, bo już kiedyś... i nic :/ _____________________________________________ 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 27-06-2004 15:20 3632553 mikmas From Łódź Stadt Typ: neutral Postów: 772 Zarejestrowany: Apr 2003 Jelcyn - ...! _____________________________________________ 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 27-06-2004 15:21 3632553 marcin_an Forumowicz Typ: neutral Postów: 1265 Zarejestrowany: Mar 2004 Spróbuj zamiast "CLOSE", dać "QUIT". Bo wydaje mi się, że "CLOSE" może dotyczyć nie połączenia control, ale data-transfer. Zatem spróbuj jeszcze tak: .Execute , "QUIT" Tym bardziej, że właśnie się doczytałem, że Inet jednak obsługuje komedę QUIT. Jeśli nie pomoże, opisz dlaczego sądzisz, że połączenie nadal trwa. _____________________________________________ Popieram losmaca: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie - rzucacie ochłapy i trzeba się domyślać o co chodzi!!! ___ NOWE FORUM 27-06-2004 18:07 bisiek Typ: neutral Postów: 487 Zarejestrowany: Jul 2003 Mam podobny problem z połączeniem http. Też nie mogę przerwać połączenia, ale raczej Execute nie nadaje się do tego Wybija błąd bo kontrolka jest połączona i nie może w tym czasie wykonać polecenia. _____________________________________________ www.mob.abc.pl - moja strona o VB 31-08-2004 13:26 3380672 Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |