Передача файла (файлов) по FTP

@snyppimylt · Регистрация: 18.12.2011

Студворк — интернет-сервис помощи студентам

Хотел передать файл по FTP с помощью Internet Transfer Control (MSINET.OCX), по началу получалось по этому примеру:

Visual Basic
1
2
3
4
5
6
With Inet1
 .URL = "ftp.name.ru"
 .UserName = "Login"
 .Password = "Pass"
 .Execute ,"PUT C:\113\text.txt /folder/text.txt" 
 End With

А потом он пересылал только образ файла, то бишь имя а сам файл пустой (0 кб). Почему???

В скоре я понял что как ни как, но если кому то посылать программу то не у всех есть MSINET.ocx . поэтому я решил использовать API :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Declare Function InternetOpen _
   Lib "wininet.dll" Alias "InternetOpenA" ( _
   ByVal sAgent As String, _
   ByVal nAccessType As Long, _
   ByVal sProxyName As String, _
   ByVal sProxyBypass As String, _
   ByVal nFlags As Long) As Long
 
Private Declare Function InternetConnect _
   Lib "wininet.dll" Alias "InternetConnectA" ( _
   ByVal hInternetSession As Long, _
   ByVal sServerName As String, _
   ByVal nServerPort As Integer, _
   ByVal sUserName As String, _
   ByVal sPassword As String, _
   ByVal nService As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Long
   
Private Const INTERNET_SERVICE_FTP = 1
Private Const INTERNET_SERVICE_GOPHER = 2
Private Const INTERNET_SERVICE_HTTP = 3
 
Private Declare Function InternetCloseHandle _
   Lib "wininet.dll" (ByVal hInet As Long) As Integer
   Private Declare Function FtpPutFile _
   Lib "wininet.dll" Alias "FtpPutFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszLocalFile As String, _
   ByVal lpszRemoteFile As String, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean
 
Private Sub Form_Load()
 
hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
 
hSession = InternetConnect(hINetSession, "ftp.name.ru", _
   "21", "login", "pass", INTERNET_SERVICE_FTP, 0, 0)
 
 
If FtpPutFile(hSession, "C:\113\text.txt", "/folder/text.txt", 1, 0) = False Then
   MsgBox "The call to FtpPutFile failed."
End If
 
 
End Sub

Этот пример API работает НО он тоже присылает пустой файл, к тому же если грузить через VB6, то компилятор вместе с ним виснит и вылетает.

Ребят, что мне делать?

Может что не так сделал?

@kreotodr · 14.01.2015, 10:20

Добрый день Dragokas вы можете пояснить куда VB6_Native1982023222006.zip сохраняет файлы?

Добавлено через 26 минут
коллеги прошу помощи:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Declare Function FtpGetFile _
   Lib "wininet.dll" Alias "FtpGetFileA" ( _
   ByVal hFtpSession As Long, _
   ByVal lpszRemoteFile As String, _
   ByVal lpszNewFile As String, _
   ByVal fFailIfExists As Boolean, _
   ByVal dwFlagsAndAttributes As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Boolean
   
Private Declare Function InternetOpen _
   Lib "wininet.dll" Alias "InternetOpenA" ( _
   ByVal sAgent As String, _
   ByVal nAccessType As Long, _
   ByVal sProxyName As String, _
   ByVal sProxyBypass As String, _
   ByVal nFlags As Long) As Long
 
Private Declare Function InternetConnect _
   Lib "wininet.dll" Alias "InternetConnectA" ( _
   ByVal hInternetSession As Long, _
   ByVal sServerName As String, _
   ByVal nServerPort As Integer, _
   ByVal sUserName As String, _
   ByVal sPassword As String, _
   ByVal nService As Long, _
   ByVal dwFlags As Long, _
   ByVal dwContext As Long) As Long
   
Private Declare Function InternetCloseHandle _
   Lib "wininet.dll" (ByVal hInet As Long) As Integer
   
     Private Const INTERNET_SERVICE_FTP = 1
 
 
 
Private Sub Form_Load()
  
  hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
  hSession = InternetConnect(hINetSession, "ftp://oleksandrnosar.asuscomm.com", "21", "anonymous", "guest", INTERNET_SERVICE_FTP, 0, 0)
 
  
  If FtpGetFile(hSession, "ftp://oleksandrnosar.asuscomm.com/sda1/CopyFolder_For_HB5/ActualVer/verPrg.txt", "d:\verPrg.txt", False, 0, 1, 0) = False Then
   MsgBox "Call to FtpGetFile Failed!"
   End
  End If
  
  Call InternetCloseHandle(hSession)
  Call InternetCloseHandle(hINetSession)
  
End Sub

Все сделал по "иструкции". Файл не принимает.
Вчем может быть проблема?

@kreotodr · 23.02.2015, 11:46

Сообщение от Dragokas

Единственное, что не реализована отправка файла (нужно проверить - имеет ли этот контрол такой функционал).
Вложения
VB6_Native1982023222006.zip (14.8 Кб, 50 просмотров)

Добрый день!
Один из немногих работающих примеров.
Не подскажете как прикрутить сохранение на диск. Я вижу что он тянет файл, только не совсем понимаю куда...

@The trick · 23.02.2015, 16:53

Почти тоже самое что тебе давал, только если ты немного включил голову, то смог бы переделать и на закачивание.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Option Explicit
 
Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInternet As Long) As Boolean
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenW" (ByVal lpszAgent As Long, ByVal dwAccessType As Long, ByVal lpszProxy As Long, ByVal lpszProxyBypass As Long, ByVal dwFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectW" (ByVal hInternetSession As Long, ByVal sServerName As Long, ByVal nServerPort As Integer, ByVal sUserName As Long, ByVal sPassword As Long, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileW" (ByVal hFtpSession As Long, ByVal sBuff As Long, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long
Private Declare Function FtpGetFileSize Lib "wininet" (ByVal hFile As Long, ByRef lpdwFileSizeHigh As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, lpBuffer As Any, ByVal dwNumberOfBytesToRead As Long, ByRef lpdwNumberOfBytesRead As Long) As Long
 
Private Const INTERNET_OPEN_TYPE_PRECONFIG  As Long = 0
Private Const INTERNET_DEFAULT_FTP_PORT     As Long = 21
Private Const INTERNET_SERVICE_FTP          As Long = 1
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000
Private Const INTERNET_FLAG_PASSIVE         As Long = &H8000000
Private Const GENERIC_READ                  As Long = &H80000000
Private Const FTP_TRANSFER_TYPE_BINARY      As Long = &H2
Private Const USERNAME                      As String = ""      ' Имя пользователя
Private Const PASSWORD                      As String = ""     ' Пароль
Private Const GRANULARITY                   As Long = &H10000
 
Private Sub cmdDownload_Click()
    Dim fileTitle   As String
    Dim offset      As Long
    Dim fileName    As String
    
    fileName = txtSourceFile.Text
    
    If Len(fileName) Then
        DownloadFile fileName, txtDstPath.Text & "\" & fileName, txtServerName
    End If
    
End Sub
 
' // Загрузить файл
Private Function DownloadFile(srcFile As String, dstPath As String, serverName As String) As Long
    Dim hInet   As Long
    Dim hFtp    As Long
    Dim hFile   As Long
    
    ' Инициализируем WinInet
    hInet = InternetOpen(StrPtr(App.ProductName), INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
    
    If hInet Then
        ' Открываем FTP сессию
        hFtp = InternetConnect(hInet, StrPtr(serverName), INTERNET_DEFAULT_FTP_PORT, _
                          StrPtr(USERNAME), StrPtr(PASSWORD), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
                                 
        If hFtp Then
            ' Создаем файл
            hFile = FtpOpenFile(hFtp, StrPtr(srcFile), GENERIC_READ, FTP_TRANSFER_TYPE_BINARY Or INTERNET_FLAG_RELOAD, 0)
    
            If hFile Then
                Dim fNum    As Integer
                Dim size    As Long
                Dim length  As Long
                Dim buf()   As Byte
                Dim numByt  As Long
                Dim totRed  As Long
                Dim retval  As Long
                ' Получаем размер файла, я не учитываю размер > 2GB
                length = FtpGetFileSize(hFile, retval)
                fNum = FreeFile
                size = length
                ReDim buf(GRANULARITY - 1)
                
                Open dstPath For Binary As fNum
                
                Do
                
                    If size > GRANULARITY Then
                        numByt = GRANULARITY
                    Else
                        numByt = size
                        ReDim buf(numByt - 1)
                    End If
                    
                    ' Читаем файл
                    retval = InternetReadFile(hFile, buf(0), numByt, totRed)
                    ' Проверяем статус
                    If retval = 0 Or numByt <> totRed Then
                        MsgBox "Error reading from file"
                        Exit Do
                    End If
                    
                    Put fNum, , buf()
                    
                    size = size - GRANULARITY
                    picProgress.Line (0, 0)-((length - size) / length, 1), vbRed, BF
                    DoEvents
                    
                Loop While size > 0
                
                Close fNum
                
                InternetCloseHandle hFile
                ' Успех
                DownloadFile = 1
                
            Else
                MsgBox "Error creating file"
            End If
            
            InternetCloseHandle hFtp
        Else
            MsgBox "Error connection"
        End If
        
        InternetCloseHandle hInet
    Else
        MsgBox "Initialize error"
    End If
 
End Function

@kreotodr · 23.02.2015, 17:10

Сообщение от The trick

Почти тоже самое что тебе давал, только если ты немного включил голову, то смог бы переделать и на закачивание.

Как вседа спасибо! Буду пробовать...
Удачи

@kreotodr · 23.02.2015, 17:24

Сообщение от The trick

Downloader.rar (7.1 Кб, 0 просмотров)

А можно пример заполнения полей?
А то у меня при любом раскладе ....

@The trick · 23.02.2015, 17:27

Mega.jpg - тут имя файла в корневой папке FTP
ftp.thetrick.esy.es - тут сервер
D:\Temp\ - тут папка
Также нужно задать имя пользователя и пароль.

@kreotodr · 23.02.2015, 18:08

Сообщение от The trick

Также нужно задать имя пользователя и пароль.

так а если вход на сервер гостевой, т.е без запроса имени пользователя и пароля. Поля оставлять путыми?

Сообщение от The trick

Mega.jpg - тут имя файла в корневой папке FTP
ftp.thetrick.esy.es - тут сервер
D:\Temp\ - тут папка
Также нужно задать имя пользователя и пароль.

Спасибо, пошло...
в моем случае не нужно было писать ftp://, просто - 95.67.86.12

Добавлено через 16 минут
Напомните где лежит ТОЖЕ для Upload?

@The trick · 23.02.2015, 18:12

Сообщение от kreotodr

Напомните где лежит ТОЖЕ для Upload?

Вообще-то это твоя тема была.
Отправка/получение файлов на FTP с прогресс баром

Новые блоги и статьи Все статьи Все блоги /
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	23.02.2015, 17:27
	Mega.jpg - тут имя файла в корневой папке FTP ftp.thetrick.esy.es - тут сервер D:\Temp\ - тут папка Также нужно задать имя пользователя и пароль. 1

Передача файла (файлов) по FTP

Решение