Klient FTP - button start/stop

[shimmo]

Witam, piszę klienta FTP z pomocą poradnika dostępnego na stronie (Borland Builder C++ 6 + Indy 9), mam jednak pytanie. W jaki sposób zrobić tak był do łączenia i rozłączenia z serwerem FTP służył ten sam button? Chciałbym, żeby wyglądało to tak:
Gdy nie jestem podłączony to pisze na nim Połącz oraz ikonka połączenia, po kliknięciu na niego klient łączy się. Gdy jest podłączony, napis zmienia się na Rozłącz i ikonkę rozłączenia, gdy się na niego naciśnie klient rozłącza się.

Proszę o pomoc, gdyż szukałem ale nie umiem sobie sam z tym problemem poradzić Pozdrawiam!

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LoadFileFrom(TObject *Sender){

}
//---------------------------------------------------------------------------



void __fastcall TForm1::AnonymCheckClick(TObject *Sender)
{
        UserEdit->Text="anonymous";
        IdFTP1->Username="anonymous";
        PasswordEdit->Text="";
        IdFTP1->Password="";
}
//---------------------------------------------------------------------------




void __fastcall TForm1::ConnectBtnClick(TObject *Sender)
{
        if(IdFTP1->Connected()) {

        }else{
        IdFTP1->Host=HostEdit->Text;
        IdFTP1->Port=StrToInt(PortEdit->Text);
        IdFTP1->Username=UserEdit->Text;
        IdFTP1->Password=PasswordEdit->Text;
        try
        {
        IdFTP1->Connect();
        StatusBar1->SimpleText="Połączono!";
        ConnectBtn->Glyph=NULL;
        ImageList1->GetBitmap(1, ConnectBtn->Glyph);
        ConnectBtn->Caption="Rozłącz";
        }
        catch(...)
        {
         ShowMessage("Nie udało się zalogowac, sprawdź poprawnosc danych");
        }

   }

}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button2Click(TObject *Sender)
{

IdFTP1->List(ListBox1->Items, "*.*", false);

}
//---------------------------------------------------------------------------



void __fastcall TForm1::DownloadBtnClick(TObject *Sender)
{
IdFTP1->Get("wymiana/abc.txt", "C:\\test.txt", true,false);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::UploadBtnClick(TObject *Sender)
{
IdFTP1->Put("C:\\folder\\dddd.txt", "wymiana/buuu.txt", true);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RemoveBtnClick(TObject *Sender)
{
IdFTP1->Delete("wymiana/yy.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NameBtnClick(TObject *Sender)
{
IdFTP1->Rename("wymiana/yy.txt", "wymiana/blee.txt");
}
//---------------------------------------------------------------------------


void __fastcall TForm1::IdFTP1Status(TObject *ASender,
      const TIdStatus AStatus, const AnsiString AStatusText)
{
ListBox1->Items->Add(IntToStr(AStatus)+". " + AStatusText);
Application->ProcessMessages();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LoadBtnClick(TObject *Sender)
{
IdFTP1->List(ListBox2->Items, "*.*", false);
}
//---------------------------------------------------------------------------
 

[Cyfrowy Baron]

Do sterowania przyciskiem należy posłużyć się zdarzeniem OnStatus obiektu IdFTP1:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ConnectBtnClick(TObject *Sender)
{
 if( !IdFTP1->Connected() )
 {
  IdFTP1->AutoLogin = true;
  IdFTP1->Host = "nazwa hosta";
  IdFTP1->Username = "nazwa użytkownika";
  IdFTP1->Password = "hasło";
  IdFTP1->Connect();
 }
 else
 {
  IdFTP1->Disconnect();
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Status(TObject *ASender, const TIdStatus AStatus,
          const UnicodeString AStatusText)
{
 switch(AStatus)
 {
   case 0: /* pozostawić puste, przechodzi na case 3 - pozyskiwanie adresu - hsResolving */
   case 1: /* pozostawić puste, przechodzi na case 3 - otwieranie połączenia - hsConnecting */
   case 2: /* pozostawić puste, przechodzi na case 3 - wykonano połączenie - hsConnecdet */
   case 3: ConnectBtn->Enabled = false; ConnectBtn->Caption = "Czekaj..."; break; /* rozłączanie - hsDisconnecting */
   case 4: ConnectBtn->Enabled = true;  ConnectBtn->Caption = "Połącz"; break; /* rozłączono - hsDisconnected */
   case 6: ConnectBtn->Enabled = false; ConnectBtn->Caption = "Transfer"; break; /* rozpoczęcie transfetu - ftpTransfer */
   case 7: /* pozostawić puste, przechodzi na case 8 - połączenie gotowe do pracy oraz zakończono transfer - ftpReady */
   case 8: ConnectBtn->Enabled = true;  ConnectBtn->Caption = "Rozłącz"; break; /* przerwano transfer - ftpAborted */
 }
 Application->ProcessMessages();
}

---

Uzupełnij profil by było widać z jakiego systemu korzystasz i w jakim środowisku programujesz.

[shimmo]

Dzięki Baronie za odpowiedź, jednak gdy chcę skompilować twój kody wyskakuje mi błąd:

[C++ Error] Unit1.cpp(76): E2316 'AutoLogin' is not a member of 'TIdFTP'

EDIT:
Po zakomentowaniu tego ruszyło i działa! Dzięki ogromne
Mam jeszcze kilka pytań ale chyba lepiej założę nowy temat, żeby nie śmiecić.

[Cyfrowy Baron]

Dzięki Baronie za odpowiedź, jednak gdy chcę skompilować twój kody wyskakuje mi błąd:

[C++ Error] Unit1.cpp(76): E2316 'AutoLogin' is not a member of 'TIdFTP'

Funkcja automatycznego logowania nazywa się po prostu inaczej. W każdym bądź razie musisz wiedzieć, że automatyczne logowanie musi być włączone w przeciwnym razie połączysz się z kontem, ale niczego z niego nie pobierzesz ani nie wyślesz na nie.

[shimmo]

Hmm szukałem jakieś funkcji na kształt AutoLogin i nic tam podobnego nie widziałem, ale może coś przeoczyłem, bo dopiero co zaczynam zabawe z "takim" programowaniem.
Dodam, że mam na virtualnej maszynie postawiony serwer ftp na linuksie, i bez AutoLogin klient FTP łączy mi się, pobiera i wysyła pliki. Czy ten AutoLogin jest naprawde potrzebny? Pytam bo chyba wszystko mi działa a nie znam się

[Cyfrowy Baron]

Zrób zrzut ekranu okna Object Inspector z zakładką Properties dla IdFTP1.

properties.png

Dodam, że mam na virtualnej maszynie postawiony serwer ftp na linuksie, i bez AutoLogin klient FTP łączy mi się, pobiera i wysyła pliki.

Przypuszczam, że podobnie jak to jest w INDY 10 automatyczne logowanie jest domyślnie włączone, dlatego wszystko działa. Możliwe jest też, że w starszych wersjach INDY nie ma funkcji rozdziału na logowanie i automatyczne logowanie.

Przy wyłączonym Automatycznym logowaniu chcąc by zalogowało mnie od razu po połączeniu z hostem musiałbym wywołać funkcję logującą:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::ConnectBtnClick(TObject *Sender)
{
 if( !IdFTP1->Connected() )
 {
  IdFTP1->Host = "host";
  IdFTP1->Username = "nazwa użytkownika";
  IdFTP1->Password = "hasło";
  IdFTP1->Connect();
 }
 else
 {
  IdFTP1->Disconnect();
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1Status(TObject *ASender, const TIdStatus AStatus,
          const UnicodeString AStatusText)
{
 switch(AStatus)
 {
   case 0: /* pozostawić puste, przechodzi na case 3 - pozyskiwanie adresu - hsResolving */
   case 1: /* pozostawić puste, przechodzi na case 3 - otwieranie połączenia - hsConnecting */
   case 2: /* pozostawić puste, przechodzi na case 3 - wykonano połączenie - hsConnecdet */
   case 3: ConnectBtn->Enabled = false; ConnectBtn->Caption = "Czekaj..."; break; /* rozłączanie - hsDisconnecting */
   case 4: ConnectBtn->Enabled = true;  ConnectBtn->Caption = "Połącz"; break; /* rozłączono - hsDisconnected */
   case 6: ConnectBtn->Enabled = false; ConnectBtn->Caption = "Transfer"; break; /* rozpoczęcie transfetu - ftpTransfer */
   case 7: /* pozostawić puste, przechodzi na case 8 - połączenie gotowe do pracy oraz zakończono transfer - ftpReady */
   case 8: ConnectBtn->Enabled = true;  ConnectBtn->Caption = "Rozłącz"; break; /* przerwano transfer - ftpAborted */
 }
 Application->ProcessMessages();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdFTP1BannerBeforeLogin(TObject *ASender,
        const UnicodeString AMsg)

{
 IdFTP1->Login();
 ConnectBtn->Enabled = true;
 ConnectBtn->Caption = "Rozłącz";
}

To dotyczy jednak INDY 10, więc u Ciebie może być inaczej.

[shimmo]

Tak to wygląda u mnie.

[Cyfrowy Baron]

Miała być cała zakładka Properties (Events - zbędna), bo na rysunku pasków sobie nie przewinę. W sumie skoro kod Tobie działa to już nieistotne.

[shimmo]

Przepraszam bardzo, moje niedopatrzenie.
Hmm niby mi to działa ale na swoim serwerze ftp (mam ustawione uprawniena 777 do katalogu). Założyłem natomiast darmowy hosting, żeby sprawdzić jak działa zewnętrzne ftp i już nie jest tak różowo, nie mam chyba praw dostępu. Tzn z filezilla wszystko się ściąga i wysyła, natomiast z mojego klienta nie mogę wrzucać nic na serwer. Problem więc chyba jednak istnieje

[Cyfrowy Baron]

Po połączeniu spróbuj wywołać logowanie.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

IdFTP1->Login();

Jeżeli wyskoczy komunikat, że jesteś już zalogowany to oznacza, że automatyczne logowanie działa prawidłowo, jeżeli komunikatu nie będzie to po takim logowaniu spróbuj wysłać plik. Jeżeli wysłanie się nie powiedzie, to masz źle ustawiony katalog zdalny, czyli nie wysyłasz pliku prawidłowo.
W hostingu cal.pl z którego ja korzystam zdalny katalog jest pod adresem: domains/programowanie.cal.pl/public_html/forum/. Na 90 precent kopiujesz plik do nieprawidłowej lokalizacji.

[Darek_C++]

Ja do wysyłania na "produkcyjne" serwery FTP używam następującego kodu i działa bez zastrzeżeń:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TIdFTP *IdFTP1 = new TIdFTP(NULL);
IdFTP1->Username = LabeledEdit5->Text.Trim();
IdFTP1->Password = LabeledEdit6->Text.Trim();
IdFTP1->Host = LabeledEdit7->Text.Trim();
IdFTP1->Passive = true;
IdFTP1->Port = LabeledEdit8->Text.Trim().ToInt();
try
{
        IdFTP1->Connect(true,5000);
}
catch (Exception &exception)
{
        ShowMessage(exception.Message);
}

if(IdFTP1->Connected())
{

        IdFTP1->ChangeDir(LabeledEdit9->Text.Trim());
        IdFTP1->Put(LabeledEdit10->Text, nazwa, False);

        if(IdFTP1->Size(nazwa) == FileSizeByName(nazwa) )
        {
                StatusBar1->Panels->Items[0]->Text="Plik został wysłany na serwer: "+IntToStr(IdFTP1->Size(nazwa)) ;
                Application->MessageBox("Plik został wysłany na serwer", "Komunikat",MB_ICONINFORMATION);
        }
        IdFTP1->Disconnect();

}

delete IdFTP1;

W tym wypadku nie jest to połączenie szyfrowane wiec nr portu jest standardowy 21.

[shimmo]

Po dodaniu

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

IdFTP1->Login();

Dostaję error:

You are already logged in!

Więc widocznie wszystko jest tak jak należy.
Zmieniłem uprawnienia na moim serwerze dla katalogu na 700 i wszystko działa, założyłem dodatkowo konto na innym hostingu i już wszystko śmiga!
Dzięki wielkie!

Darek dzięki, przeanalizuję sobie Twój kod i może czegoś nowego się nauczę.

[Cyfrowy Baron]

Dostaję error:

You are already logged in!

To nie błąd lecz komunikat, że jesteś już zalogowany, więc auto-logowanie przebiega prawidłowo.

Zmieniłem uprawnienia na moim serwerze dla katalogu na 700 i wszystko działa, założyłem dodatkowo konto na innym hostingu i już wszystko śmiga!

Ustawienie atrybutów na 700 daje dostęp do katalogu tylko przez protokół FTP po zalogowaniu. Jeżeli chcesz umieścić na tym koncie stronę WWW to musisz ustawić atrybut na 755.

[shimmo]

Ustawienie atrybutów na 700 daje dostęp do katalogu tylko przez protokół FTP po zalogowaniu. Jeżeli chcesz umieścić na tym koncie stronę WWW to musisz ustawić atrybut na 755.

Tak tak, wiem o tym, jednak zmieniłem uprawnienia na 700 by mieć pewność, że to właśnie właściciel ma tylko prawa (chciałem sprawdzić, czy faktycznie loguję się nako użytkownik).

Tak z innej beczki teraz, moglibyście podrzucić mi jakiś pomysł w jaki sposób zrealizować to, by użytkownik podczas działania programu decydował jaki plik ma być wysłany(i gdzie), analogicznie to samo bym chciał zrobić dla zapisuj pliku z serwera.
Chciałbym także, zrobić wyświetlanie zawartości katalogu na serwerze, coś na kształt tak jak jest to zrobione w chociażby filezilla:

Przy czym wystarczy mi lista plików wraz z nazwą i ikonkami tylko.
Mam to teraz zrobione w ListBox, ale on nie wyświetla mi folderów, ikonek. Chciałbym także, by dało się wejść do wyświetlonych folderów.

Szukałem już, ale nie znalazłem nic zbytnio

[Cyfrowy Baron]

Tak z innej beczki teraz, moglibyście podrzucić mi jakiś pomysł w jaki sposób zrealizować to, by użytkownik podczas działania programu decydował jaki plik ma być wysłany(i gdzie), analogicznie to samo bym chciał zrobić dla zapisuj pliku z serwera.

Nie zrozumiałem.

Chciałbym także, zrobić wyświetlanie zawartości katalogu na serwerze, coś na kształt tak jak jest to zrobione w chociażby filezilla:

viewtopic.php?f=16&t=1052&p=6961&#p6957

► patrz serwis: Cyfrowy Baron dział: porady różne Wyświetlanie ikon skojarzonych z plikiem lub folderem.; porady sieć - internet Ściąganie i wysyłanie plików poprzez protokół FTP.; porady ListView.

Na rysunku znajduje się lista typu TListView.