Odlucio sam da downloadujem ceo sajt :) (FTP)

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Psock, NMFtp;

//define ftp item type
type
TFTPItem = record
   Name,User,Group,Permissions,Date:string;
   Size,Number:integer;
   IsFile:boolean;
end;


type
  TForm1 = class(TForm)
    NMFTP1: TNMFTP;
    procedure NMFTP1ListItem(Listing: String);
    procedure FormCreate(Sender: TObject);
    procedure NMFTP1Connect(Sender: TObject);
  private
    function ParseFTPItem(pFTPItem: string): TFTPItem;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.ParseFTPItem(pFTPItem:string):TFTPItem;
var tmp,zFTPItem,date:string;
    i,o:integer;
begin
zFTPItem:=pFTPItem;
//parse given string
zFTPItem:=Trim(zFTPItem); //remove blanks
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
  Result.Permissions:=trim(tmp); //whole tmp is permissions, but first char tells us whether this is file or not
if tmp[1]='d' then Result.IsFile:=False  //find out whether item is file or not
  else Result.IsFile:=True;
//let's extract stupid number :)
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
  Result.number:=StrToInt(tmp[1]); //we got number!!!
//now user is our target
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
  Result.User:=trim(tmp); //this should be user
//group is next
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
  Result.Group:=trim(tmp); //this should be group
//let's now get file size
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
  Result.Size:=strtoint(trim(tmp)); //this should be size
//date...
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
date:=Trim(tmp);
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
date:=date+'-'+Trim(tmp);
i:=POS(' ',zFTPItem); //find space (end of word)
tmp:=copy(zFTPItem,0,i); //copy till space (1st word)
zFTPItem:=StringReplace(zFTPItem,tmp,'',[]); //remove word from FTPItem
zFTPItem:=Trim(zFTPItem); //remove blanks
date:=date+'-'+Trim(tmp);
  Result.Date:=trim(date); //this should be date
//finally, get item's name
  Result.Name:=trim(zFTPItem); //this should be name
end;

procedure TForm1.NMFTP1ListItem(Listing: String);
var item:tftpitem;
begin
item:=ParseFTPItem(Listing);
ShowMessage('Name: '+item.Name);
ShowMessage('Size: '+IntToStr(item.Size));
ShowMessage('Is File? '+BoolToStr(item.IsFile,true));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
NMFTP1.Host:='localhost';
NMFTP1.UserID:='avram';
NMFTP1.Password:='moj_pass';
NMFTP1.Connect;
end;

procedure TForm1.NMFTP1Connect(Sender: TObject);
begin
NMFTP1.ChangeDir('www');
NMFTP1.List;
end;

end.

Code:

function list(folder: string);
begin
get(files)
for i:=0 to files.count-1 do
 if jesteFolder(files[i]) then
  begin
    list(folder+files[i]);
   chdir('..');
  end
 else
  write(files[i])
end;

Code:

type
  FTPItemData = class
    Naziv: String;
    Velicina: Cardinal;
    Datum: TDateTime;
    Fajl: Boolean; // Ako je True to je fajl, u suprotnom je
                   // folder
    SubItems: TStringList; // Ovde drzimo podatke o fajlovima
                           // ako je trenutni Item folder
    // Sve sto ti je jos potrebno
  end;

function GetFTPItemInfo(FTPItem: String): FTPItemData;
begin
  Result := FTPItemData.Create;
  // Ovde pokupis naziva, velicinu i sve sto ti treba
  // kao sto si i do sad radio u svojoj proceduri i
  // dodas na kraju
  Result.SubItems := nil;
end;

function GetFTPData(Folder: String): TStringList;
var
  S: TStringList;
  ItemData: FTPItemData;
  I: Integer;
begin
  S := TStringList.Create;
  // Ne znam tacno kako uzimas podatke sa FTP-a
  // pa cu pisati nesto uopsteno samo da vidis kako bi
  // to trebalo da radi
  GetFirstFTPItem(Folder, ItemData);
  // Recimo da funkcija GetFirstFTPItem uzima putanju do foldera
  // koji zelis da pogledas i vraca ti prvi Item. Nesto kao
  // FindFirst kad trazis fajlove na svom racunaru.
  Repeat
    S.AddObject(ItemData.Naziv, ItemData);
  Until not GetNextFTPItem(Folder, ItemData);
  // Recimo da funkcija GetNextFTPItem uzima putanju do foldera
  // koji zelis da pogledas i vraca ti sledeci Item. Nesto kao
  // FindNext kad trazis fajlove na svom racunaru.

  // Ovo ce napuniti string list podacima iz jednog foldera
  // sad jos samo da pokupimo podatke iz podfoldera

  for I := 0 to S.Count - 1 do
  begin
    ItemData := FTPItemData(S.Objects[I]);
    if not ItemData.Fajl then
    begin
      ItemData.SubItems :=
        GetFTPData(Folder + '/' + ItemData.Naziv);
    end;
  end;
end;