Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

IdFTP i listanje direktorija

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 10 odgovora
  • 5.339 pregleda

Najnovija ↓

IdFTP i listanje direktorija 20.11.2005. u 18:59 · pre 255 meseci
izmenjeno 1 put, poslednji put Passwd 20.11.2005. u 19:00
Izmene poruke
  1. Passwd20.11.2005. u 19:00zapis iz teksta poruke
#1
Normalno se spoji..i sad treba izlistat fajlove koji se nalaze u trenutnom direktoriju ali se program tada ukoci i prestane radit...u cem je problem?
Code:

procedure TForm1.Button2Click(Sender: TObject);
Var
  List: TStringList;
  iIndex, I: Integer;
  StrFilename: String;
begin
  List := TStringList.Create;
  Try
    FTP.List( List );
    For iIndex := 0 to List.Count - 1do
begin
        StrFilename := List[ iIndex ];
        For I := Length( StrFilename ) downto 1 do
If StrFilename[ I ] = ' 'then
Break;
        Delete( StrFilename, 1, I );
        ListBox1.Items.Add( StrFilename );
      End;
  Finally
    List.Free;
  End;
end;


ps: probao sam dosta nacina, ali se niti jedan nije pokazao uspjesnim :)
Re: IdFTP i listanje direktorija 21.11.2005. u 20:36 · pre 255 meseci #4
Aaa, nije valjda da nema nitko neku ideju?

Ajde ljudi, par reda odgovora nece nikom stetit :>>
Re: IdFTP i listanje direktorija 21.11.2005. u 20:45 · pre 255 meseci #5
ja sam pravio neki FTP client i koristio sam ovo za prikaz direktorija i filea:

//izbacuje listu cim se spojis znaci ovo stoji na nekom buttonu

l: TIdFtpListItems;
i: integer;
sl: TStringList;
s: string;

sl := TStringList.Create;
idFTP1.List(sl, '*', true);
l := idFTP1.DirectoryListing;
for i := l.Count - 1 downto 0 do
if (l.ItemType = ditDirectory) or (l.ItemType = ditFile)
then sl := l.FileName
else sl.Delete(i);
ListBox1.Items.Assign(sl);

sl.Free;

a ovo sam metio na listbox.dblclick da mi prikazuje fileove i foldere ako kliknem na neki direktorij s liste:


var i: integer;
begin
i:=listbox1.ItemIndex;
s:=listbox1.Items.Strings;

idftp1.ChangeDir(s);

sl := TStringList.Create;
idFTP1.List(sl, '*', true);
l := idFTP1.DirectoryListing;
for i := l.Count - 1 downto 0 do
if (l.ItemType = ditDirectory) or (l.ItemType = ditFile)
then sl := l.FileName
else sl.Delete(i);
ListBox1.Items.Assign(sl);
sl.Free;
end;


Meni je savrseno radilo, za server sam koristio Serv-U, program koji koristim za wireless, ako nesto neradi javi pa cu ti poslat cjeli moj projekt na mail.
Pozdrav.
Potpis
http://filsko.100webspace.net
Re: IdFTP i listanje direktorija 24.11.2005. u 22:39 · pre 254 meseca #6
Presao sam na Indy 9 jer me 10 malo previse zezao...i sad radi ok sve.
Uglavnom, ako ti nije problem okaci negdje klijent (www.turboupload.com) il gdje vec hoces pa mi posalji link cisto da vidim sta si sve radio..

thx
Re: IdFTP i listanje direktorija 01.12.2005. u 10:59 · pre 254 meseca #7
evo ga link:
http://d.turboupload.com/d/183555/projekt.zip.html

sorry nisam mogao prije(skola i to).
Ja nisam uspio napraviti nesto tipa "Multi Download" ili skidanje cjelog direktorija pa ako uspijes javi, cak mislim da je bila tema na forumu za skidanje cjelog direktorija to jest sajta
Potpis
http://filsko.100webspace.net
Re: IdFTP i listanje direktorija 01.12.2005. u 19:59 · pre 254 meseca #9
pogledao sam temu i OK. I sad nisam nista mrdao na svom clientu nego sam se pokusao spojiti na neke stranice sa tvoje teme kao što su westwood, microsoft GNU,... Sve se spoji odlicno ali ima jedan problem kada pokusam nesto skinuti program mi mrzne i blokira se i moram ga restartirat(samo kad skidam sa net-a). Inace mi se dogadja da nemogu nista raditi u client (Nemogu ga ni pomaknuti) dok se fajl ne skine. Jel mozda zna netko kako da to izbjegnem da mi client ne gusi system.
Potpis
http://filsko.100webspace.net
Re: IdFTP i listanje direktorija 02.12.2005. u 09:26 · pre 254 meseca #10
Imaz AntiFreez komponentu koja resava taj problem. Samo je postavis na formu i gotovo.
Potpis
Play Store
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme