VBNet - Форум - Отправка файла по FTP

Вопрос: Отправка файла по FTP Добавлено: 17.09.08 13:03

Автор вопроса: Doctorcoot

Приветствую Вас господа программисты.
Изучаю в поте лица VB6. Пытаюсь отправить на сервер через FTP файл, только он приходит туда пустой "0 байт"
Делаю я это следующим образом:
Inet1.Execute, "PUT C:\image.gif image.gif"
Предварительно все данные сервера и пароль ввожу Microsoft Internet Controls.
Так что я делаю не правильно?
Почему файл пустой?
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| Цитата \| #1	Добавлено: 17.09.08 14:05
	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 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 Const INTERNET_SERVICE_FTP = 1 Dim hINetSession As Long Dim hSession As Long Private Sub Form_Load() hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0) hSession = InternetConnect(hINetSession, "адрес", "21", "логин", "пароль", INTERNET_SERVICE_FTP, 0, 0) End Sub Private Sub Command1_Click() If FtpPutFile(hSession, "c:\test.txt", "testfile.txt", 1, 0) = False Then MsgBox ("Ашыпка!") End If End Sub Вот тебе рабочий код) Забей на MS Inet Transfer Control Ответить

Номер ответа: 2 Автор ответа: Doctorcoot Вопросов: 7 Ответов: 12	Профиль \| Цитата \| #2	Добавлено: 17.09.08 14:28
	Увы, "Ашыпка!" и комп на две минуты виснит. А чем плох MS Inet Transfer Control? Ответить

Номер ответа: 3 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| Цитата \| #3	Добавлено: 17.09.08 14:46
	Doctorcoot пишет: Увы, "Ашыпка!" и комп на две минуты виснит. Ну ненаю) У меня прекрасно работает) Только что перепроверил Doctorcoot пишет: А чем плох MS Inet Transfer Control? Тем что я не знаю почему у тя файл пустой сливается Ответить

Номер ответа: 4 Автор ответа: Doctorcoot Вопросов: 7 Ответов: 12	Профиль \| Цитата \| #4	Добавлено: 17.09.08 22:28
	Да, к стати... А в StateChanged ни чего прописывать не надо? А то может я что то не доделал. Ответить

Страница: 1 |