/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
FTP
Fra : PH


Dato : 18-10-01 21:57

Jeg ved ikke ret meget om hvordan man fra et Delphi-program kommer i kontakt
med en FTP-server og f.eks. henter og sletter filer.
Er der nogle af jer der ved hvor man kan læse om det!
På forhånd tak.

Peder



 
 
Anders Holm Jensen (20-10-2001)
Kommentar
Fra : Anders Holm Jensen


Dato : 20-10-01 11:51

Hej

Jeg bruger NMFTP komponenten i Delphi 4 Client/Sever.

Den er let at bruge, og der er god info om den i hjælp.

Her er et lille eksempel på hvordan jeg bruger den.:

procedure TFbackup.Button8Click(Sender: TObject);
begin
if MessageDlg('Vil du Uploade back up til web-serveren og overskrive
versionen på web-serveren ?',
mtConfirmation, [mbYes,mbNO], 0 ) = mrYes then
begin
try
Fwebadm.TDHISDB.connected := false; //Databaseforbindelsen skal være
lukket for at kunne flytte filen
except
showmessage('Fejl i at lukke forbindelsen til databasen');
end;
AssignFile(indfil, FILDIR);
try
reset(indfil);
Read(indfil, indstillinger);
FTP.Host := indstillinger.host; //'www.dinhost.dk'
FTP.Port := 21; //FTP er normalt port 21
FTP.TimeOut := 120000; //Timeout i millisekunder, her
er det to minutter
FTP.UserID := indstillinger.userid; //eks. 'bruge1web'
FTP.Password := indstillinger.passw; //eks. '25edfsg36s5'
FTP.Connect; //åbner forbindelsen
FTP.ChangeDir('docs/mindocs/data'); //skifter mappe på web-serveren
FTP.Upload( 'c:\program\data\DB.mdb' , 'DB.mdb');
FTP.Disconnect; //lukker forbindelsen
finally //resten er ikke
FTP relateret, og dog er der lige except statmenten
//Der er mange
info ting til til hver hændelse, dem kan du se i hjælp
CloseFile(indfil);
end;
try
Fwebadm.TDHISDB.connected := true;
except
showmessage('Fejl i at åbne forbindelsen til databasen');
end;
end;

Hilsen AHJ

"PH" <peder@hanghoej.dk> skrev i en meddelelse
news:3bcf427d$0$744$edfadb0f@dspool01.news.tele.dk...
> Jeg ved ikke ret meget om hvordan man fra et Delphi-program kommer i
kontakt
> med en FTP-server og f.eks. henter og sletter filer.
> Er der nogle af jer der ved hvor man kan læse om det!
> På forhånd tak.
>
> Peder
>
>



Anders Holm Jensen (20-10-2001)
Kommentar
Fra : Anders Holm Jensen


Dato : 20-10-01 11:51

Hej

Jeg bruger NMFTP komponenten i Delphi 4 Client/Sever.

Den er let at bruge, og der er god info om den i hjælp.

Her er et lille eksempel på hvordan jeg bruger den.:

procedure TFbackup.Button8Click(Sender: TObject);
begin
if MessageDlg('Vil du Uploade back up til web-serveren og overskrive
versionen på web-serveren ?',
mtConfirmation, [mbYes,mbNO], 0 ) = mrYes then
begin
try
Fwebadm.TDHISDB.connected := false; //Databaseforbindelsen skal være
lukket for at kunne flytte filen
except
showmessage('Fejl i at lukke forbindelsen til databasen');
end;
AssignFile(indfil, FILDIR);
try
reset(indfil);
Read(indfil, indstillinger);
FTP.Host := indstillinger.host; //'www.dinhost.dk'
FTP.Port := 21; //FTP er normalt port 21
FTP.TimeOut := 120000; //Timeout i millisekunder, her
er det to minutter
FTP.UserID := indstillinger.userid; //eks. 'bruge1web'
FTP.Password := indstillinger.passw; //eks. '25edfsg36s5'
FTP.Connect; //åbner forbindelsen
FTP.ChangeDir('docs/mindocs/data'); //skifter mappe på web-serveren
FTP.Upload( 'c:\program\data\DB.mdb' , 'DB.mdb');
FTP.Disconnect; //lukker forbindelsen
finally //resten er ikke
FTP relateret, og dog er der lige except statmenten
//Der er mange
info ting til til hver hændelse, dem kan du se i hjælp
CloseFile(indfil);
end;
try
Fwebadm.TDHISDB.connected := true;
except
showmessage('Fejl i at åbne forbindelsen til databasen');
end;
end;

Hilsen AHJ

"PH" <peder@hanghoej.dk> skrev i en meddelelse
news:3bcf427d$0$744$edfadb0f@dspool01.news.tele.dk...
> Jeg ved ikke ret meget om hvordan man fra et Delphi-program kommer i
kontakt
> med en FTP-server og f.eks. henter og sletter filer.
> Er der nogle af jer der ved hvor man kan læse om det!
> På forhånd tak.
>
> Peder
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste