Файлообменник

[Space]

Подскажите стабильно работающий файлообменник(файлохранилище ) с открытым протоколом и возможностью максимально долго хранить файлы (надо программно закачивать файлы).

[MIT]

стабильно работающий файлообменник(файлохранилище )

Любой

с открытым протоколом

Протоколы - FTP и/или HTTP - открытей некуда

надо программно закачивать файлы

FTP-доступ тебе в помощь

[Хакер]

«Народ», почты?

[Debugger]

Проходил такую проблему (хранил файлы обновления для проги). Использовал narod.ru + FTP.

[Space]

зарегенился на яндексе. Кинешь код для ознакомления?

[Debugger]

Конечно. Я вот делал так:

Код: Выделить всё

    Dim hSession As Long
    Dim hINetSession  As Long
    hINetSession = InternetOpen("MyFTPClient", 1, vbNullString, vbNullString, 0)
    hSession = InternetConnect(hINetSession, "ftp.narod.ru", "21", "мой_логин", "мой_пароль", INTERNET_SERVICE_FTP, 0, 0)
    FtpPutFile hSession, "путь в компе", "путь на народе", 0, 0
    InternetCloseHandle (hSession)
    InternetCloseHandle (hINetSession)


Соответственно, нужны декларации (привожу все-превсе):

Код: Выделить всё

Public Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * 260
    cAlternate As String * 14
End Type

Public 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
Public 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
Public 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
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, ByRef lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, ByRef lpvFindData As WIN32_FIND_DATA) As Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Public Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean


И, конечно, объявление константы

Код: Выделить всё

Public Const INTERNET_SERVICE_FTP = 1

При умелом использовании эта штука становится божественной.