Thema: Delphi ftp-server erstellen

Einzelnen Beitrag anzeigen

Dschinghis

Registriert seit: 5. Dez 2004
6 Beiträge
 
Delphi 5 Enterprise
 
#1

ftp-server erstellen

  Alt 18. Dez 2004, 12:39
Tachchen Leute, ich hätt' mal ein kleines Problem.

Und zwar bin ich nun seit geraumer Zeit damit beschäftigt einen Prog. zu schreiben, mitdem ich Dateien auf nen Webserver hochladen kann.

Erfreulicherweise kann ich mich auf dem Webserver schon an- bzw. abmelden und den momentanen Pfad anzeigen (is ja net so schwer).

Allerdings weiß ich nicht wie ich mir die Dateien, die schon auf dem Server sind, anzeigen lassen kann.

Kann mir da vielleicht jemand helfen?

Hier ist mein momentaner Versuch dazu (funzt allerdings nicht wirklich):

Delphi-Quellcode:
 procedure TfrmMain.NMFTP1Connect(Sender: TObject);
  var
   ulc : Integer;
  begin
   Beep;
   Screen.Cursor := crDefault;

   NMFTP1.ParseList := True;
   NMFTP1.List();

   for ulc := 0 to NMFTP1.FTPDirectoryList.name.Count -1 do
    begin
     lbxDser.Items.Add(NMFTP1.FTPDirectoryList.name.Strings[ulc]);
    end;
   aktVerz := NMFTP1.CurrentDir;
   lblDser.Caption := aktVerz;
      stbConn.SimpleText := ' FTP-Verbindung zu ' + NMFTP1.Host + ' ist hergestellt!';
   lbxProt.Items.Add('Log-In > ' + NMFTP1.Host + ' : ' + DateTimeToStr(Now));
  end;
Danke schonmal!

CU
  Mit Zitat antworten Zitat