

if(! "txt") // tu funkcja zwracajÄ…ca rozszerzenie
IdFTP1->TransferType = ftBinary;

void __fastcall TForm1::Button2Click(TObject *Sender) // ściąganie z serwera
{
AnsiString path = Edit1->Text; // nazwa pliku + rozszerzenie
if(SaveDialog1->Execute())
{
AnsiString path2 = SaveDialog1->FileName; // path2-miejsce zapisu pliku
AnsiString extension = ExtractFileExt(path);
if(!(extension == ".txt"))
IdFTP1->TransferType = ftBinary;
else
IdFTP1->TransferType = ftASCII;
IdFTP1->Get(path, path2, true, false); // pobieranie
}
}
void __fastcall TForm1::Button3Click(TObject *Sender) // wysył pliku na serwer
{
if(OpenDialog1->Execute()) // wywołanie okna dialogowego do otwarcia pliku ktory bedziemy wysylac na serwer
{
AnsiString fname = OpenDialog1->FileName; //fname scieżka pliku na dysku do wysyłu
AnsiString sname = ExtractFileName(fname); // sname - nazwa pliku na serwerze
AnsiString extension = ExtractFileExt(fname); // extension - rozszerzenie pliku
if(!(extension == ".txt"))
IdFTP1->TransferType = ftBinary;
else
IdFTP1->TransferType = ftASCII;
IdFTP1->Put(fname,sname,true); // wysył pliku na serwer
}
}





|
Prior to executing the LIST command, the TransferType for the control channel is set to ftASCII. While this is not a requirement of the FTP protocol, it is a common practice in most FTP clients. The previous value of the TransferType property is restored before exiting from the List method. |

Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 6 gości