Einzelnen Beitrag anzeigen

Benutzerbild von Andidreas
Andidreas

Registriert seit: 27. Okt 2005
1.110 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

Re: TIdFTP Get - Probleme mit variablen Dateinamen

  Alt 19. Sep 2006, 15:22
ok ich hab mir inzwischen so weitergeholfen:

Delphi-Quellcode:
procedure TMain_Form.btn_shwfilesClick(Sender: TObject);

var
blEntrys : Boolean;
i : Integer;
s : String;
slFiles : TStringList;



begin

  blEntrys := True;

  If edt_directory.Text = 'Then
  Begin
    MessageDlg('Some Entrys are Missing!', mtWarning, [mbOk], 0);
    blEntrys := False;
  End;

  If blEntrys = True Then
  Begin
    FTP.ChangeDir(edt_directory.Text);
  End;

  slFiles := TStringList.Create;
  FTP.List(slFiles, '*', True);

  For i := 0 To slFiles.Count - 1 Do
  Begin
    lstbox_files.Items.Add(slFiles.Strings[i]);
  End;

end;
jetzt hab ich nur noch das problem, das ich zusätzlich zu dem dateinamen viel unnützen schrott mit angezeigt bekommen...
z.B.
"drw-rw-rw- 1 user group 62119 Sep 11 23:00 Dateiname.txt"
Ein Programmierer Programmiert durchschnittlich 15 Code Zeilen pro Tag
Wir sind hier doch nicht bei SAP!!!

Aber wir habens bald
  Mit Zitat antworten Zitat