Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > работа с FTP

Автор: Gorinich 26.10.2005, 06:17

Нужно организовать автоматическую заливку файлов на сервер( по нажатию кнопки Publish), login и password имеются. Подскажите как.

Автор: Петрович 26.10.2005, 09:54

Используй либо WinInet API, либо компоненты Indy.

Автор: RA 26.10.2005, 11:26

Либо ICS (и смотри в примерах как они работают с FTP)

Автор: bartram 29.10.2005, 21:43

Код


program Ftp;

uses
  Windows, WinInet;

var
 hInternet: pointer;
 hConnect: pointer;

begin
  hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnect := InternetConnect(hInternet, 'ftp.narod.ru', 21, 'Bartram', '*****', 
INTERNET_SERVICE_FTP, 0, 0);
  if hConnect <> nil then
   begin
     FtpPutFile(hConnect, 'c:\readme.txt', 'NewText.txt', FTP_TRANSFER_TYPE_BINARY, 0);
     InternetCloseHandle(hConnect);
   end;
  InternetCloseHandle(hInternet);
end.

Вот, юзай на здоровье smile

Автор: Gorinich 4.11.2005, 19:19

Большое спасибо, bartram smile

Автор: allx 6.11.2005, 12:04

Gorinich
если охота быстро и программа не связана с сетью, то гораздо проще батник сделать. или в программе сделать Winexec с соотв. параметром

в батнике (консоли, winexec):
ftp -s:sendfile.txt ftp.yoursite.com

в sendfile.txt должен быть набор комманд FTP:
open <servername> - соединиться с сервером <servername>
user <username> - зайти как <username>
bin - установить передачу бинарных файлов
get <filename> - получить файл <filename> с сервера
put <filename> - послать файл <filename> на сервер
mget <pattern> - получить файлы шаблона <pattern> с сервера
mput <pattern> - послать файлы шаблона <pattern> на сервер
cd <directory> - перейти в другой каталог
close - отключиться от сервера
hash - установить отметку переданных блоков
prompt - вкл/выкл диалоговый режим
help - список комманд

ну вобщем нужные комманды всегда можно подсмсотреть в логе вашего FTP-менеджера