[es] - IdFTP i listanje direktorija

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

^{20.11.2005. u 17:59}

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

_{[Ovu poruku je menjao Passwd dana 20.11.2005. u 19:00 GMT+1]}

^{20.11.2005. u 17:59}

obucina

Član broj: 38191
Poruke: 715
213.244.208.*

Profil

Re: IdFTP i listanje direktorija

^{21.11.2005. u 02:44}

Jel imas firewall?

^{21.11.2005. u 02:44}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: IdFTP i listanje direktorija

^{21.11.2005. u 08:19}

ZA Pro, ali propustim ga kroz firewall jer se inace ne bi niti spojio..

^{21.11.2005. u 08:19}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: IdFTP i listanje direktorija

^{21.11.2005. u 19:36}

Aaa, nije valjda da nema nitko neku ideju?

Ajde ljudi, par reda odgovora nece nikom stetit :>>

^{21.11.2005. u 19:36}

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net

Profil

Re: IdFTP i listanje direktorija

^{21.11.2005. u 19:45}

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.
http://filsko.100webspace.net

^{21.11.2005. u 19:45}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: IdFTP i listanje direktorija

^{24.11.2005. u 21:39}

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

^{24.11.2005. u 21:39}

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net

Profil

Re: IdFTP i listanje direktorija

^{01.12.2005. u 09:59}

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

http://filsko.100webspace.net

^{01.12.2005. u 09:59}

Nemanja Avramović
PHP developer, Webinsane
Beograd, Srbija

Član broj: 32202
Poruke: 4170
*.internet.krstarica.net.

ICQ: 266136396
Sajt: avr.am

Profil

Re: IdFTP i listanje direktorija

^{01.12.2005. u 10:58}

bila je tema, moja tema... ali sam tada ostao bez Indy-ja i tek sam ga juce popravio pa ako neko moze da pogleda temuuuu...

Moj sajt. Engleski?.Moj blog. Moj avatar.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

^{01.12.2005. u 10:58}

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net

Profil

Re: IdFTP i listanje direktorija

^{01.12.2005. u 18:59}

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.

http://filsko.100webspace.net

^{01.12.2005. u 18:59}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: IdFTP i listanje direktorija

^{02.12.2005. u 08:26}

Imaz AntiFreez komponentu koja resava taj problem. Samo je postavis na formu i gotovo.

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{02.12.2005. u 08:26}

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net

Profil

Re: IdFTP i listanje direktorija

^{02.12.2005. u 10:11}

thx, rjesio problem

http://filsko.100webspace.net

^{02.12.2005. u 10:11}