ftp

[Proga]

Подскажите плз, как можно отправить файл на ftp server

[LAngel]

Кладешь на форму кнопку и IdFTP со вкладки Indy Clients
В обработнике onClick кнопки пишешь:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := 'ftp.server.com'; // адрес или IP сервера
  IdFTP1.Username := 'anonymous';  // Login
  IdFTP1.Password := 'you@email.ru'; // Password
  IdFTP1.Connect(True);
  IdFTP1.ChangeDir('/incoming/user'); // Куда складываем файл
  with TOpenDialog.Create(self) do
  try
    Title := 'Выберите файл для отправки';
    Filter := 'Все файлы (*.*)|*.*';
    if Execute then
      IdFTP1.Put(FileName);
  finally
    Free;
  end;
  IdFTP1.Quit;
end;