begin
hInternet:=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, 0);
hConnect:=InternetConnect(hInternet, '<server>', <port>, '<user>', '<pass>', INTERNET_SERVICE_FTP, 0, 0);
if hConnect <> nil then
begin
FtpPutFile(hConnect, '<local file>', '<new remote file>', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hConnect);
end;
InternetCloseHandle(hInternet);
end.
FTP Upload
Доброго времени суток, господа кодеры! Подскажите как реализовать закачку архива (рар) на фтп, юзаю стандартные функции Вин32АПИ, как то: InternetOpen, InternetConnect, PutFileToFtp (или че-то в этом роде) - не работает именно на стадии загрузки файла, думал сначала фтп не валидный, но скачивается от-туда все прекрасно... но нужна именно закачка....
Хотелось бы увидеть сам неработающий код. Но,вроде бы, это должно выглядеть так:
Код: