Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zapis pliku na ftp
anonim




Typ: Nie zarejestrowany
Zapis pliku na ftp

Jak najprościej połączyć się z serwerem ftp
i plik "c:/dane.txt" zapisać na serwerze?

25-10-2004 15:05
  
bisiek




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

Poszukaj no forum, było kilka razy. Chyba dał o się to zrobić kontrolką Inet.


_____________________________________________
www.mob.abc.pl - moja strona o VB

25-10-2004 21:27
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
papillon2




Typ: neutral
Postów: 3
Zarejestrowany: Nov 2004
Zapis na FTP

Zapis na FTP mozna zrealizowac kontrolk Inet1
( Microsoft Interen transfer ) Nalezy uzyc funkcjki
Inet1.Execute PUT ......
Problem zostalo opisany w ksiazce "Visual Basic 6.0 - Krok po kroku " .Jak ktos jest zainetresowany nie pisze na moj mail.

01-11-2004 01:27
Pokaż profil papillon2  Wyślij email do papillon2   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Polecam napisany nie tak dawno temu przezemnie modół do operacji na serwerach FTP za pomocą API:
http://members.lycos.co.uk/wwwitek/sourcecode/modFTP.bas


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

01-11-2004 12:37
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
papillon2




Typ: neutral
Postów: 3
Zarejestrowany: Nov 2004
......cd opis do FTP - kontrolka Microsoft Interen Transfer

Instrukcje do kontrolki:

'''''''''''''''''''''''''''''''''''''''''''''''
Dim strUrl As String          'URL to strona ftp
Dim strSource As String
Dim strDest As String


'W przypadku pobierania pliku z serwera
strUrl = "ftp://login:" 'pobranie URL od użytkownika
' adres serwera ftp - dla przykadu gavron.toya.net.pl haslo i login - dla serwera
strSource = "katalog/plik.txt"  'pobranie ścieżki do pliku źródłowego np plik.txt na serwerze
strDest = "C:\kataloglokalny\plik.txt"    'pobranie ścieżki przeznaczenia
'''''''''''''

'Użycie metody Execute i operacji GET do kopiowania pliku z serwera
Inet1.Execute strUrl, "GET " & strSource & " " & strDest

'W przypadku kopiowania na serwer
'strSource- sciezka do pliku lokalnym , analogicznie jw
'strDest-sciezka dostepu na serwerze , analogicznie jw (odwrotnie niz w poleceniu GET)
'Użycie metody Execute i operacji GET do kopiowania pliku
Inet1.Execute strUrl, "PUT " & strSource & " " & strDest


Obsuga bedow:
przykadowa instrukacja:

Private Sub Inet1_StateChanged(ByVal State As Integer)
'To zdarzenie jest uruchamiane po zakończeniu
'różnych zadań, takich jak łączenie i błędy logowania
Dim strAllText As String
Dim strLine As String    'wyświetlenie pliku tekstowego
Select Case State
Case icError  'jeśli jest błąd, opisuje go
    If Inet1.ResponseCode = 80 Then
        MsgBox "Plik istnieje! Proszę określić nowe przeznaczenie."
     
    Else      'jeśli kodem nie jest 80, pokazyuje błąd nieznany
        MsgBox Inet1.ResponseInfo, , "Niepomyślny transfer pliku."
    End If
Case icResponseCompleted
If Inet1.ResponseCode = 0  Then
  'jesli zmnienna ResponseCode=0 transmisja bez bedu
MsgBox "ResponseCode=0", , strDest
        Else  'jeśli użytkownik nie zaznaczył żadnego tekstu(domyślnie)
                MsgBox "Transfer zakończony", , strDest
    End If
End Select
End Sub

01-11-2004 21:53
Pokaż profil papillon2  Wyślij email do papillon2   
Pawelw




Typ: neutral
Postów: 23
Zarejestrowany: Jan 2004
-

Co prawda wyżej opisany sposób działa, jednak nie potrafię zrozumieć dlaczego nazwa pliku po przesłaniu go na serwer - jest zmieniana na duże litery. Np. z nazwa.txt na NAZWA.TXT. Dla mnie jest to bardzo bolesna zmiana... - czy istnieje sposób na przesłanie pliku takim jakim on jest naprawdę

Druga sprawa - jaką metodę wybrać jeżeli na konto potrzebujemy wysłaś cały katalog ;p - można sobie poradzić na kilka sposobów, wiem, ale ja lubię proste rozwiązania - te bywają najlepsze ;p


BTW: Wesołych, smacznych i spokojnych Świąt :-)

[Post edytowany dnia 24-12-2004 20:33 przez Pawelw]


_____________________________________________
Pozdrawiam
Paweł

24-12-2004 20:22
Pokaż profil Pawelw  Wyślij email do Pawelw   
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1