TidFTP [TidFTP] Причина неверной закачки файла на FTP

[kidrock1]

Друзья, всем привет. Возникла следующая проблема. Использую IdFTP для закачки файла на сервер. Всё получается хорошо. Я коннектюсь к серверу и посылаю на него файл, но файл на сервере оказывается битым и отличается по размеру от оригинала. Вот код:

procedure TForm5.Button2Click(Sender: TObject);
var
  IdFTP:TIdFtp;
begin
  IdFTP:=TIdFTP.Create(nil);
  if IdFTP.Connected then
  begin
    IdFTP.Abort;
    IdFTP.Quit;
  end;
  IdFTP.Username := '************.ru';
  IdFTP.Password := 'ыыыыыыыыыыыы';
  IdFTP.Host := 'чччччччччччч';
  IdFTP.Port := 21;
  try
      IdFTP.Connect;
      IdFTP.ChangeDir('/test');
      IdFTP.Put('E:\test\in\1.jpg', '1.jpg', False);
      IdFTP.Quit;
  except
      ShowMessage('xep');
  end;
  IdFTP.free;
end;

 

[kidrock1]

Спасибо, разобрался сам)) Оказывается надо было поменять IdFTP.TransferType на ftBinary. Извините за беспокойство)))