Strona: [  << <   1   > >>  ]  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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

27-06-2004 11:03
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       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.


_____________________________________________
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

27-06-2004 11:32
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
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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       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.


_____________________________________________
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

27-06-2004 18:07
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
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
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1