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);
}
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.
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IdFTP1->ChangeDir("images");
IdFTP1->Put("C:\\plik.txt", "plik.txt", true); // plik zostanie skopiowany do: katalog_zdalny/images/
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
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/
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
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/
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
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
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
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
}
//---------------------------------------------------------------------------
Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 4 gości