[ Passwd @ 20.11.2005. 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]
[ obucina @ 21.11.2005. 02:44 ] @
Jel imas firewall?
[ Passwd @ 21.11.2005. 08:19 ] @
ZA Pro, ali propustim ga kroz firewall jer se inace ne bi niti spojio..
[ Passwd @ 21.11.2005. 19:36 ] @
Aaa, nije valjda da nema nitko neku ideju?

Ajde ljudi, par reda odgovora nece nikom stetit :>>
[ freespace @ 21.11.2005. 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.
[ Passwd @ 24.11.2005. 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
[ freespace @ 01.12.2005. 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
[ Nemanja Avramović @ 01.12.2005. 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...
[ freespace @ 01.12.2005. 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.
[ Srki_82 @ 02.12.2005. 08:26 ] @
Imaz AntiFreez komponentu koja resava taj problem. Samo je postavis na formu i gotovo.
[ freespace @ 02.12.2005. 10:11 ] @
thx, rjesio problem