Podkatalog

[Pitek]

Witam mam problem z odniesieniem się w komponencie IdFTP1 do podkatalogu na serwerze mam stworzony podkatalog : /programywc i chcę umieścić w nim plik update.txt proszę o pomoc jakiego kodu użyć aby funkcje Put i Get odnosiły się do pliku /programywc/update.txt.

[Cyfrowy Baron]

A zaglÄ…daÅ‚eÅ› tutaj: ► patrz serwis: Cyfrowy Baron dziaÅ‚: porady sieć - internet ÅšciÄ…ganie i wysyÅ‚anie plików poprzez protokół FTP.

[Pitek]

Po co bym to pisał ! Pierwsze co robie to tam zaglądam to dla mnie ważne źródło informacji jednak ja używam RAD Studio 2010 i tam to Indy coś nie działa tak jak w tym poradniku Baronie i dlatego to pytanie.
Bardzo proszÄ™ o pomoc.
Wesołych świąt !
Mam taki kod :

Kod: Zaznacz cały

void __fastcall TForm5::Button2Click(TObject *Sender)
{
if(pol==true)
{
try
{
IdFTP1->Delete("programywc/update.txt");
}
catch(...)
{

}

ofstream outfile;
outfile.open("C:\\update.txt");
outfile << "1";
outfile.close();

IdFTP1->Put("\\update.txt", "programywc/update.txt", true);
MessageBox(NULL,"Plik wysłano pomyślnie","Info",MB_OK | MB_ICONINFORMATION);
}
else
MessageBox(NULL,"Brak połączenia","Info",MB_OK | MB_ICONINFORMATION);
}

I wyskakuje błąd że nie ma takiego pliku nie można Rename/move ;/

[Cyfrowy Baron]

Pewnie coś się zmieniło w bibliotekach indy. Sprawdzę później.

[banita]

biblioteki indy nie sa juz rozwijane od lat wiec w bcb 2007 - 2009 - 2010 jest ta sama wersje. chyba ze panowie z embarcadero sami wprowadzaja jakies zmiany.

[Cyfrowy Baron]

biblioteki indy nie sa juz rozwijane od lat wiec w bcb 2007 - 2009 - 2010 jest ta sama wersje. chyba ze panowie z embarcadero sami wprowadzaja jakies zmiany.

To prawda, ale autor/autorzy tych bibliotek odsprzedali do nich prawa firmie Borland, no a potem to prawa już przechodziły na firmy CodeGear i Embarcadero.
W C++Builder 2007 jest INDY 10.1, a w C++Builder 2010 jest INDY 10.5.5.

---

Co do problemu, to do poruszania się po podkatalogach katalogu zdalnego musisz używać dodatkowo funkcji ChangeDir("nazwa_katalogu") i ChangeDirUp() do powrotu do katalogu.

   Kopiowanie pliku do katalogu zdalnego (katalog_zdalny/plik.txt):

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/
}
//---------------------------------------------------------------------------

   Kopiowanie pliku do podkatalogu katalogu zdalnego (katalog_zdalny/images/plik.txt):

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/images/
}
//---------------------------------------------------------------------------

   Kopiowanie pliku do podkatalogu podkatalogu katalogu zdalnego (katalog_zdalny/images/cursors/plik.txt):

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images");
IdFTP1->ChangeDir("cursors");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/images/cursors/
}
//---------------------------------------------------------------------------

   Funkcja ChangeDir może zagnieżdżać podkatalogi (ChangeDir(podkatalog/podkatalog). Kopiowanie pliku do podkatalogu podkatalogu katalogu zdalnego (katalog_zdalny/images/cursors/plik.txt):

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images/cursors");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/images/cursors/
}
//---------------------------------------------------------------------------

   Kopiowanie pliku do podkatalogu podkatalogu katalogu zdalnego (katalog_zdalny/images/cursors/plik.txt), a nastÄ™pnie cofniÄ™cie siÄ™ do katalogu zdalnego i skopiowanie pliku bezpoÅ›rednio do katalogu zdalnego (katalog_zdalny/plik.txt):

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images");
IdFTP1->ChangeDir("cursors");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true);

IdFTP1->ChangeDirUp(); // cofniecie się o jeden katalog w górę, czyli z cursors do images
IdFTP1->ChangeDirUp(); // cofnięcie się o jeden katalog w góę, czyli z images do katalogu zdalnego
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany bezpośrednio do katalogu zdalnego
}
//---------------------------------------------------------------------------

   Do sprawdzania w jakim katalogu aktualnie siÄ™ znajdujesz sÅ‚uży funkcja RetrieveCurrentDir():

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images/cursors");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true);

String curDir = IdFTP1->RetrieveCurrentDir();
ShowMessage(curDir); // komunikat: images/cursors
}
//---------------------------------------------------------------------------

[Pitek]

Wszystko działa sprawnie !
Bardzo dziękuję za pomoc !
Czy te informacje z postu wyżej zostaną umieszczone w poradniku na stronie ?