Rozroznianie plikow od folderow -IdFTP

[Bishamoth]

Witam
Znalazlem to:

Funkcja List służy do wyliczania plików w katalogu. Pobiera trzy argumenty, pierwszy argument to wskaźnik na obiekt typu TStrings, czyli na listę, drugi argument określa maskę wyszukiwania plików, czyli możemy tutaj określić czy chcemy wyszukiwać wszystkie pliki, tylko pliki, konkretny plik itd.
Jeżeli podamy jako wartość pustą ("") to wyliczone zostaną wszystkie pliki i katalogi w przeszukiwanym katalogu.
Jeżeli podamy jako wartość gwiazdkę ("*") to wyliczone zostaną wszystkie pliki i katalogi w przeszukiwanym katalogu oraz pliki we wszystkich katalogach
Jeżeli podamy jako wartość dwie gwiazdki rozdzielone kropką ("*.*") to wyliczone zostaną tylko wszystkie pliki przeszukiwanym katalogu.
Jeżeli podamy jako wartość dwie gwiazdki kropkę i rozszerzenie pliku ("*.html") to wyliczone zostaną tylko pliki z zadanym rozszerzeniem przeszukiwanym katalogu.
Jeżeli podamy jako wartość nazwę pliku z rozszerzeniem ("index.html") to wyliczony zostanie tylko plik o takiej nazwie w przeszukiwanym katalogu.

Trzeci argument określa typ wyliczania zawartości folderu false - bez szczegółow, true - ze szczegółami

Nie uzywam zadnej maski, lecz chce aby po dwukrotnym kliknieciu np w plik zaczelo sie sciaganie, a po klinieciu na folder, zostal on otworzony. Jak to zrobic?

[Cyfrowy Baron]

A to zależy dużo od tego, jak wyświetlasz listę plików i folderów.

[Bishamoth]

Wyswietlam je za pomoca:

Kod: Zaznacz cały

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

Chcialbym aby bylo to rozpoznawane po podwojnym kliknieciu na co kolwiek co sie znajduje w Items komponentu ListBox.

[Cyfrowy Baron]

No i tutaj jesteś w kropce, bo i skąd taka lista jak TStrings (ListBox->Items) zawierająca po prostu listę zmiennych typu String, "miałaby wiedzieć" że aten element to plik, a tamten to folder.
Po kliknięciu w listę program musi sprawdzić czy dany element to plik czy folder, można by się sugerować tym, że plik ma rozszerzenie a folder ni, ale przecież zarówno foldery mogą zawierać kropki co by sugerowało, że to plik, jak i pliki nie muszą zawierać rozszerzenia i mogłyby być wzięte za foldery.

Należałby tutaj stworzyć dodatkową listę przechowującą to samo co listBox plus informację czy wyliczony element to plik czy folder, fukcja List obiektu IdFTP1 zwraca takie informacje, więc w jednej liście np. typu TStringList przechowujesz nazwy plików i folderów oraz info czy jest to plik czy folder, a w drugiej liście np. ListBox wyświetlasz tylko nazwy plików i folderów. Po wybraniu elementu na ListBox odszukujesz takiej nazwy w drugiej liście rezydującej w pamięci i sprawdzasz czy masz do czynienia z plikiem czy z folderem, w zależności od wyniku podejmujesz odpowiednia akcję. Proste...!

[Bishamoth]

Poczytalem o obsludze wyjatkow, i probowalem to na wlasny sposob zrobic:

Kod: Zaznacz cały

void __fastcall TForm1::ListBox1DblClick(TObject *Sender)
{
try
   {
   Dir = ListBox1->Items->Strings[ListBox1->ItemIndex];
   IdFTP1->ChangeDir(Dir);
   IdFTP1->List(ListBox1->Items, "", false);
   }
   catch(Exception &exception)
        {
        AnsiString LocalFile;
        Dir = ListBox1->Items->Strings[ListBox1->ItemIndex];

        SaveDialog1->Execute();
        LocalFile=SaveDialog1->FileName;
        IdFTP1->Get(Dir,LocalFile);
        }
}

Ale chyba nie pyklo, gdyz najpierw przelatuje przez kod pokolei, czyli najpierw chce otworzyc folder, a dopiero po tym, jak wywali blad, i kliknie sie OK, zaczyna pobieranie.
Obslugi warunkow sie jeszcze nie uczylem. Moze ktos wie jak to by mialo wygladac?

[Witold]

czyli najpierw chce otworzyc folder, a dopiero po tym, jak wywali blad, i kliknie sie OK, zaczyna pobieranie.

Nie tak chciałeś ? Czy gdy uruchomisz program poza IDE też wywala błąd ? W opcjach IDE możesz ustawić czy debugger ma się zatrzymywać gdy wystąpi wyjątek (zatrzymuje się nawet wtedy gdy łapiesz ten wyjątek). W Bcb6 ta opcja jest w menu Tools\Debugger Options\Language Exceptions.

[Bishamoth]

Nie tak chciałeś ?

No wlasnie niezbyt, gdyz w praktyce nic to nie zmienilo. Tak samo bylo przed dodaniem wyjatku.

Czy gdy uruchomisz program poza IDE też wywala błąd ?

Wlasnie, ze nie wywala bledu, i wszystko dziala tak jak nalezy.

W opcjach IDE możesz ustawić czy debugger ma się zatrzymywać gdy wystąpi wyjątek (zatrzymuje się nawet wtedy gdy łapiesz ten wyjątek). W Bcb6 ta opcja jest w menu Tools\Debugger Options\Language Exceptions.

Wlasnie spojrzalem, co tam sie znajduje, i nasuwa mi sie pytanie: co tam wpisac...

[Witold]

Wlasnie spojrzalem, co tam sie znajduje, i nasuwa mi sie pytanie: co tam wpisac...

Albo Przycisk [Add…] potem treść yyyy z komunikatu wyjątku: "Project xxxx raised exception class yyyyy with message 'zzzzzz'."

Możesz też odznaczyć [x] Stop on Delphi Exceptions. Powinno zadziałać , indy jest napisana w Delphi. Tylko potem już debugger nie zatrzyma się na żadnym wyjątku z delphi.