NMFTP

NMFTP komponentet har en OnSuccess event. Der kan du skrive følgende:

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
  if Trans_Type = cmdDownload then
    NMFTP1.Disconnect;
end;

Hvis du så skal hente flere filer, så må du jo lave en variabel der indeholder antallet af filer du skal hente og så checke antallet hver gang du får en OnSuccess event !

Snowball

eller bare:

procedure TForm1.Button1Click(Sender: TObject);
begin
NMFTP1.UserID := \'nisse\';
NMFTP1.Password := \'nisse\';
NMFTP1.Host := \'ziron\';
NMFTP1.Connect;
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej1.avi\');
NMFTP1.Disconnect;
end;

/ZIRON

snowball, hvordan gøres det lige? :)

darkside >> kan du ikke bruge det jeg smed det virker fint her :-)

/ZIRON

Jeg har 17 filer der skal hentes..

så sætter du bare 17 filer ind...

/ZIRON

Ziron>>Den skal stadigt læse i den textfil på http serveren

dette virker også:

procedure TForm1.Button1Click(Sender: TObject);
begin
NMFTP1.UserID := \'nisse\';
NMFTP1.Password := \'nisse\';
NMFTP1.Host := \'ziron\';
NMFTP1.Connect;
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej1.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej2.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej3.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej4.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej5.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej6.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej7.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej8.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej9.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej10.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej11.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej12.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej13.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej14.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej15.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej16.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej17.avi\');
NMFTP1.Disconnect;
end;

/ZIRON

ja det smider du bare ind i....

send til ziron@wanadoo.dk så sætter jeg det lige ind...

/ZIRON

Ziron>>Jeg tror nu mere på at snowball har fat i det rigtige.

darkside >> jaja men det andet virker jo....

/ZIRON

Måske, men det er alt for meget kode..og jeg er ikke vild med den måde det er lavet på..

bare lige så du ved det er helt samme kode som før...

send det lige så skal du se...

/ZIRON

Hm, ja men det er for meget kode, det er bestemt ikke den optimale måde at lave det på..

prøv nu lige...

Nope, det kan ikke gøre det.!
Jeg skal bruge OnSuccess Event\'en
fordi jeg skal ha kørt noget kode når den er færdig med at hente

procedure TForm1.Button1Click(Sender: TObject);
begin
NMFTP1.UserID := \'nisse\';
NMFTP1.Password := \'nisse\';
NMFTP1.Host := \'ziron\';
NMFTP1.Connect;
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej1.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej2.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej3.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej4.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej5.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej6.avi\');
NMFTP1.OnSuccess(cmdDownload);
end;

procedure TForm1.NMFTP1ListItem(Listing: String);
begin
Memo1.Lines.Add(Listing);
end;

procedure TForm1.NMFTP1Success(Trans_Type: TCmdType);
begin
if Trans_Type = cmdDownload then
    NMFTP1.Disconnect;

end;

/ZIRON

Hm niks!
De linjer her skal helst ikke være med...
<--
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej1.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej2.avi\');
NMFTP1.Download(\'Alien Song.mpg\', \'c:\\hej3.avi\');
-->

så fjern dem dog, det bare nogle linjer hvor jeg henter nogle filer...

/ZIRON

Så nemt er det ikke lige, jo jeg kan jo bare fjerne dem, men så henter den ikke de filer den skal..!
Jeg har bare brug for at finde ud af hvornår den er færdig med at hente alle filerne så jeg kan kalde OnSuccess event\'en..

Prøver lige og brygge noget sammen ud fra det andet spørgsmål ! :)

Snowball

okay med det ftp komponet så sætter du den til at downloade en fil og så tager den først den næste linje og derfor kan du bare sætte en diconnect på efter alle dine downloads...

/ZIRON

Noget i stil med dette ! Lav en variabel (Integer) og kald den count. Sæt værdien til 0 når du starter med at hente.

  if (Trans_Type = cmdDownload) AND (count >= Stringlist1.Count -1) then
    NMFTP1.Disconnect
  else
    Inc(count);

Ellers kan du lige prøve og sende din kode til mig på snowball@it.dk. Så skal jeg prøve og tilføje det :)

Snowball

?
Kan du ikke prøve at lave et eks her?

Tjooo...Hvordan ser din din .txt fil ud ? er det bare \\folder\\filnavn.bla !?

Snowball

Nej det er bare filnavn.exe
Men textfilen ligger jo på en http server som du kan se længere oppe

Sådan. Hent nedenstående projekt !

http://home1.inet.tele.dk/j-cgeert/ftp.zip

Så må du selv lige smide koden over i dit eget program :)

Snowball

Snowball>Som sagt den textfil der skal læses ligger på en http server, den bliver ikke hentet ned, kun læst..

Hvis jeg sender dig filen gider du så smide den ind?

Fil sendt..

Sendt tilbage med ændringer !

Snowball

Hm synes ikke den kalder disconnect?

Jo, helt nede i bunden !

  if (Trans_Type = cmdUpLoad) AND (count > Stringlist.Count - 1) then
    NMFTP1.Disconnect
  else
    Inc(count);

Snowball

hm ja, men jeg smed en shellexecute i disconnect men der sker ikke noget

\"smed en shellexecute i disconnect\" !? Det forstår jeg ikke lige hvad du mener med !?

Snowball

den kør aldrig disconnect

darkside prøv nu lige at sende til mig, det du havde før snowball fik det...

ziron@wanadoo.dk

/ZIRON

hhmm...det virker fint hos mig...Har lavet lidt om i min Button1 så den passer til mine forhold:

  NMHTTP1.Get(\'http://172.16.23.147/filer.txt\');
  StringList := TStringList.Create;
  StringList.Text := NMHTTP1.Body;
  NMFTP1.Passive := true;
  NMFTP1.UserID :=\'username\';
  NMFTP1.Password := \'password\';
  NMFTP1.Host := \'172.16.23.147\';
  NMFTP1.Vendor := NMOS_AUTO;
  NMFTP1.ParseList := true;
  NMFTP1.Connect;

Og her disconnecter den fint når den har hentet alle de filer der står i 172.16.23.147/filer.txt !

Snowball

Hm sært, den gør ikke her..

Har FTP\'en en offenlig IP !? Hvis den har, så prøv lige og mail IP, username og password til mig så jeg kan teste det med de rigtige filer og servere !

Snowball

<--
  if (Trans_Type = cmdUpLoad) AND (count > Stringlist.Count - 1) then
    NMFTP1.Disconnect
  else
    Inc(count);
-->
Skal det ikke være cmdDownload?

Nej, det skal være cmdUpload. Don\'t ask me why ;)

G6 FTP Server bytter også \"om på dem\" :)

Snwoball

darkside: Har sendt programmet til dig igen ! Det skulle virke nu ;)

Til jerandre kan jeg så sige at problemet lå i at han checkede for om man havde nogle af filerne i forvejen og det tog jeg ikke lige højde for da jeg bare kiggede på om den havde hentet det totale antal filer der stod i StringList\'en !

Snowball

darkside: Kan du ikke lukke spørgsmålet hvis du ikke har mere og spørge om !? ;)

Snowball