FTP projekt - problem

mr-fedtmule, jeg vil da gerne kigge på det... men det bliver nok først i aften eller i morgen aften...

Jeg prøver at hente dit program og så kommer jeg med et foreslag til hvordan det skal løses...

btw. Hvis man virkelig elsker at programmere så skal man da ikke ha' noget for at give en hjælpende hånd! Hvis jeg løser dit problem så kunne du jo skrive mig ind i din about som thanks to eller noget i den stil.....

Hilsen Klaus

Hovsa... jeg kunne nok godt tænke mig at se på din kode.... du kunne evt. maile den til mig....

/Klaus
klaus@liscom.dk

:-)  jeg har lige lagt programmet ud som www.fedtmule.dk/Ftp.zip istedet det er nok bedre

okay det er fint.. jeg kigger på det...

/klaus

Kender du metoden hvor en funktion kalder sig selv?
her er et eks. på hvordan du kunne lave en til dit ftp prog...
Det skal lige siges at det virker ikke sådan som det står, du skal lige programmere lidt vidrer på den. Hvis du går i stå så skriv igen så kan jeg da komme med et eks der virker...

procedure TForm1.DlDir(CurrentDir, DlDirectory : string);
var
  DirList : array of string;
  i : integer;
begin
  nmftp1.ChangeDir(DlDirectory);
  GetDirList(DirList); // *1
  for i := 0 to length(DirList)-1 do
    if (DirList[i] er et directory) and (jeg har lov til at browse) then DlDir(DlDirectory,Dirlist[i]);//*2
  for i := 0 to length(DirList)-1 do
    if (DirList[i] er en fil) and (jeg har lov til at læse den) then nmftp1.Download(DirList[i],'c:\'+[DirList[i]); //*3
  nmftp1.ChangeDir(CurrentDir);
end;

//*1 her skal du lige finde en løsning på hvordan du modtager en liste over directoriet
//*2 Det er klart at dirlist ikke kun indeholder directoryet du skal lige kode nogle funktioner til at trække filnavn og attributes ol. ud af stengen
//*3 Her gælder det samme som *2 der er dog lige en ting mere. Du skal skrive vidrer på denne procedure så du også holder det lokale bibliotek up to date.

Det er vigtigt at du hele tiden tænker på at denne procedure kalder sig selv der kan dælme' hurtigt gå kludder i det.

Du skal bare sige til så skriver jeg funktionen færdig....

Her er et funktionelt eksempel på den metode jeg beskræv før..
det hedder forresten en rekursiv løkke, og det er næsten om ikke helt den eneste måde af browse en biblioteksstruktur hvor man ikke ved hvor dyb den er.

procedure TForm1.test(path : string);
var
  sr :  TSearchRec;
  DirList : array of string;
begin
  if findfirst(path+'*',$10,sr) <> 0 then memo1.lines.add('Error')
  else
  repeat
    if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr and $10 = $10) then
    begin
      memo1.lines.add(path+sr.Name);
      test(path+sr.Name+'/');
    end;
  until FindNext(sr) <> 0;
  findclose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test('c:\');
end;

der ligger et komponent på www.pythia.dk

vist

Har du fået det til at virke?
Ellers kan du lige sende din soruce så laver jeg det.

dkn@pc.dk

lukker