| Вопрос: FTP | Добавлено: 18.03.06 23:02 |
Автор вопроса:  Dima | ICQ: 217-012-927 |
| Как загрузить программно файл на сайт. есть код но он чё-то не катит. ПОДСКАЖИТЕ, либо напишите код |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 19.03.06 18:42 |
|
ищи пример
winftp |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 20.03.06 00:45 |
| rfc.net | ||
|
Номер ответа: 3 Автор ответа: Fever Вопросов: 60 Ответов: 808 |
Профиль | | #3 | Добавлено: 20.03.06 10:19 |
| Мне, как ни чер... чего не понимающем в инете это ниче не говорит. Как я понял, автору тоже. Ну, некоторые доменюки вроде Народа поддерживают собственный загрузчик файлов, посмотри там скриптики, токо они phpшные | ||
|
Номер ответа: 4 Автор ответа: MihalыchICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #4 | Добавлено: 20.03.06 18:12 |
|
Не факт, но попробуй так
Option Explicit
Private Const INTERNET_SERVICE_FTP = 1 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 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 Dim hINetSession As Long Dim hSession As Long Private Sub Command1_Click() hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0) If hINetSession <> 0 Then Me.Caption = hINetSession hSession = InternetConnect(hINetSession, "net.kanal7.ru", "21", "anonymous", "guest", INTERNET_SERVICE_HTTP, 0, 0) 'вместо "net.kanal7.ru" укажи адрес своего FTP, без ftp:// 'вместо "anonymous" и "guest", возможно придется указать логин и пароль If hSession <> 0 Then Me.Caption = Me.Caption & " " & hSession If FtpPutFile(hSession, "C:\Conn.log", "\SharedDocs\1.txt", 1, 0) = False Then MsgBox "The call to FtpPutFile failed." End If Else MsgBox "Error" End If Else MsgBox "Error" End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) InternetCloseHandle hSession InternetCloseHandle hINetSession End Sub |
||
Страница: 1 |