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