IdFTP Загрузка на ФТП

[excellion44]

Доброго времени суток всем обитателям форума. Если обсуждалось прошу не ругаться а, просто киньте в меня кодом.

Проблема собственно в том что не могу через компонент IdFTP  понять как загружать файлы на ФТП пишу на  Embarcadero RAD studio C++ Builder 2010
как в BC++Builder 6  NMFTP  компонента нету, а там была такая функция Upload , а тут нету.
Есть IdFTP1->Get (); и что там писать чтобы загружало немогу понять.

З.Ы. Заранее благодарен за ответ.

[Exhale]

procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload;
procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload;
В справке все есть. выделяем и нажимаем F1

[excellion44]

спасибо за непонятный ответ 

[excellion44]

Ктонибуть может написать как загрузить файл?

[Exhale]

Вам я уже написал

IdFTP1->Put(откуда, куда);

PS я смотрю Вы вообще искать/читать/думать не хотите

[excellion44]

IdFTP->Host = "ХОСТ ФТП";
IdFTP->Username = "ЛОГИН";
IdFTP->Password = "ПАРОЛЬ";
IdFTP->Connect();
IdFTP->Put(OpenDialog1->FileName,"/http/");  - пишет ошибку Типо доступ запрещен

[Zor]

уточняю:
IdFTP->Put("Имя файла на этой машине", "Имя файла в каталоге FTP", true/false); // true/false - добавлять ли данные или перезаписывать файл.
и перед передачей файла смените текущий каталог на сервере командой IdFTP->ChangeDir("Локальный путь на сервере");
или создайте командой IdFTP->MakeDir("Имя каталога");

[excellion44]

все спасибо, мой косяк был в том что я не указывал имя файла  какое будет на фтп

[WaRK]

Какой максимальный размер файла может залить на фтп компонент IdFTP ?

[Zor]

Файловые потоки в IdFTP оперируют Int64 для размера файлов (Indy v10)

[WaRK]

В BCB6 Indy кажется 6-ой версии. Там тот же Int64?

Дальше столкнулся с такой проблемой:
Получай ошибку при попытке команды ChangeDir: 220 This is a private system - No anonymous login.
Ну я же когда коннектился указал логин и пассворд, в чём может быть проблема?

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->Host = "ftp.*";
IdFTP1->User = "user";
IdFTP1->Password = "pass";
IdFTP1->Connect();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::IdFTP1Connected(TObject *Sender)
{
if(IdFTP1->Connected()) {
        Label1->Caption = "Connected";
        IdFTP1->ChangeDir("/MyFolder/");
        IdFTP1->Put("3075553.jpg","3075553.jpg",true);
}
}
//---------------------------------------------------------------------------
 

// Файл 3075553.jpg находится в той же папке что и проэкт.
Заранее благодарен.

[Zor]

хм, ты думаешь ктото может разобраться с ТВОИМ фтп? ну как настроил