Avatar billede fun22 Nybegynder
06. november 2002 - 09:45 Der er 14 kommentarer og
1 løsning

Downloade en fil fra en ftp server.

Hej

Jeg er ved at lave et program som kan downloade en access database fra en ftp server. Jeg bruger lige nu denne kode:

if DownloadFile(ftp://Brugernavn:password@server/db/database.mdb, C:\database.mdb) then
  ShowMessage('Filen er downloaded.');
else
  ShowMessage('Kunne ikke downloade filen.';

Der er selvfølgelig noget mere, men det er her jeg har koden til filen.

Nu vil jeg så gerne have sådan at jeg fra en form kan ændre brugernavn, password, server og stiren hvor den skal ligge filen. Hvordan gøres det?
Avatar billede borrisholt Novice
06. november 2002 - 10:04 #1
Hvilken Delphi version bruger du og har du indy instaleret ?

Jens B
Avatar billede fun22 Nybegynder
06. november 2002 - 13:53 #2
Ja jeg har indy, delphi 6
Avatar billede borrisholt Novice
06. november 2002 - 13:57 #3
Så brug idFTP til at downloade med !

Jens B
Avatar billede fun22 Nybegynder
06. november 2002 - 14:05 #4
hvor indsætter man hvad fil den skal downloade?
Avatar billede dkn Nybegynder
06. november 2002 - 14:10 #5
du kan også bruge NMFTP.


Er meget simpel at have med at gøre, der er også en ftp client deom som bruger det component.

Du sætter bare bruger, host, pass

NMFTP.Connect;
NMFTP.GetFile('db\database.mdb', 'C:\database.mdb');//mener jeg den hedder
Avatar billede fun22 Nybegynder
06. november 2002 - 14:17 #6
den kommer med en fejl ved GetFile
Avatar billede fun22 Nybegynder
06. november 2002 - 15:21 #7
NMFTP.Connect; virker fint nok det er kun den anden.
Avatar billede dkn Nybegynder
06. november 2002 - 15:55 #8
nej men det var også mig som tog fejl. Det hedder bare:
NMFTP1.Download('db\database.mdb', 'C:\database.mdb');
Avatar billede fun22 Nybegynder
06. november 2002 - 17:03 #9
Hvordan får jeg en progress bar ind i koden?
Avatar billede dkn Nybegynder
06. november 2002 - 18:07 #10
procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
labep1.caption := inttostr(NMFTP1.BytesRecvd)+'/'+inttostr(NMFTP1.BytesTotal);
end;
Avatar billede fun22 Nybegynder
06. november 2002 - 18:11 #11
jeg mener en prgress bar, som den der er når man flytter filer i windows. sådan en der går lidt op efter hvor langt man er kommet.
Avatar billede dkn Nybegynder
06. november 2002 - 18:13 #12
ja det ved jeg, men jeg håbede da på at du selv kunne klare det når du havde set snart alt kode til det.

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
Progressbar1.Max := NMFTP1.BytesTotal;
Progressbar1.posistion := NMFTP1.BytesRecvd;
end;
Avatar billede fun22 Nybegynder
06. november 2002 - 18:29 #13
Takker, det virker
Avatar billede fun22 Nybegynder
05. december 2002 - 14:00 #14
dkn> Ved du hvordan man gør hvis man vil downloade en fil fra en hjemmeside?? Eks. www.server.dk/download/fil.exe/zip??
Avatar billede fun22 Nybegynder
05. december 2002 - 14:09 #15
behøves ikke....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester