
10.10.2009, 23:56
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме: 3288241
Репутация:
3349
|
|
примерная последовательность действий
Код:
hNet := InternetOpen('FTPCLIENT', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hFTP := InternetConnect (hNet, pchar(ftp), INTERNET_DEFAULT_FTP_PORT, pchar(login), pchar(pass), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
FtpPutFile(hFTP, 'c:\file.txt', 'file.txt', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet );
|
|
|