ftp-programm programmieren

[markus lemcke]

wer weiß wie man ein ftp-programm programmiert.
ich möchte, dass mein selbstprogrammierter dateimanager auch als ftp-programm fungieren kann so wie der windows-commander!!

mfg

markus

[Patrick Sack]

<br>Hi,...
<br>
<br>in der Komponentenkarteikarte "FastNet" gibt es eine Komponenete mit dem Namen "NMFTP". Die Hilfe ist eigenlich ganz gut (habe es auf anhieb verstanden).
<br>
<br>//************************************************** **************
<br>//BEGIN FTP
<br>procedure FTP_Connect(FTP_Host_name, FTP_Host_port, FTP_UserID, <br>FTP_Password : String);
<br>begin
<br> Form1.NMFTP1.Host := FTP_Host_name;
<br> Form1.NMFTP1.Port := StrToInt(FTP_Host_port);
<br> Form1.NMFTP1.TimeOut := 20000;
<br> Form1.NMFTP1.UserID := FTP_UserID;
<br> Form1.NMFTP1.Password := FTP_Password;
<br> Form1.NMFTP1.Connect;
<br>end;
<br>
<br>procedure FTP_Disconnect;
<br>begin
<br> Form1.NMFTP1.Disconnect
<br>end;
<br>
<br>procedure FTP_Upload(FileName : String);
<br>begin
<br> Try
<br> Form1.NMFTP1.Upload(FileName, FileName);
<br> Form1.Memo1.Text := Form1.Memo1.Text + 'Upload: ' + FileName <br>+ ' OK ' + DateTimeToStr(Now) + Chr(13) + Chr(10);
<br> except
<br> showmessage('Es ist ein Fehler aufgetreten bei dem Versuch <br>eine Datei auf den FTP Server zu kopieren');
<br> end;
<br>end;
<br>//END FTP
<br>//************************************************** **************
<br>
<br>MfG
<br>P

[markus lemcke]

danke patrick!!
mit welcher komponente kann ich die dateien auf dem server anzeigen??

mfg

marku

[Patrick Sack]

<br>Stichwort ist hier <b>FTPDirectoryList</b> (Eigenschaft von NMFTP)
(siehe Beispiele in der Borland - Hilfe)
<br>
<br>MfG
<br>P

[markus lemcke]

danke!!

mfg

marku