Indy + IdFTPListParseVMS

[Assertor]

Hi Ines,

Du liest den Verzeichnisinhalt normal aus, z.B.

Delphi-Quellcode:

uses
  ..., IdFTPListParseVMS;

...
begin
  IdFTP1.ChangeDir('/mydir');
  IdFTP1.List; // füllt DirectoryListing
end;

Danach kannst Du auf die VMS Details z.B. so zugreifen:

Delphi-Quellcode:

   for i := 0 to IdFTP1.DirectoryListing.Count-1 do
   begin
     // hier normale Details abfragen
     ...
     if IdFTP1.DirectoryListing[i] is TIdVMSFTPListItem then
     begin
       // Details nur für VMS abfragen:
       s := TIdVMSFTPListItem(IdFTP1.DirectoryListing[i]).GroupName;
       i := TIdVMSFTPListItem(IdFTP1.DirectoryListing[i]).BlockSize;
     end;
   end;

Es wird also nur auf die Klasse des DirectoryListing-Eintrags geprüft und wenn dieser ein VMS-Eintrag ist ein harter Cast durchgeführt, um die Details zu erreichen.

Hoffe, das ist verständlich und hilft.

Gruß,
Assertor