IndyFTPで、種類と所有者を取得するには？ (ID:44554)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になっています。

DelphiXE2,Windows7です。

IndyFTPを使って、FTPサーバからファイルの一覧を取得しようとしています。

種類と所有者を取得する方法を知りたいです。

種類とは、ファイルかディレクトリかの区別をしたいです。
※（0:ディレクトリ、1:ファイル）というように判断したいです。

途中まで作ったので、この後どうしたらよいか、よろしくお願いします。

--------------------------------------------------------------

Form1に
Button1
Memo1
IdFTP1
を配置する。

usesに
IdAllFTPListParsers
を追加する。

procedure TForm1.Button1Click(Sender: TObject);
var

I: Integer;
  S1: String;	//ファイル名
  S2: String;	//更新日時
  S3: String;	//ファイルサイズ
  S4: String;	//種類（0:ディレクトリ、1:ファイル）
  S5: String;	//パーミッション
  S6: String;	//所有者

begin

IdFTP1.Host := '***';	//サーバアドレス
IdFTP1.Username := '***';	//ID
IdFTP1.Password := '***';	//パスワード
IdFTP1.Connect;

memo1.Text:='';

try
    IdFTP1.ChangeDir('/');
    IdFTP1.List;

for I := 0 to IdFTP1.DirectoryListing.Count -1 do
    begin
      S1 := IdFTP1.DirectoryListing.Items[I].FileName;	//ファイル名
      S2 := DateTimeToStr(IdFTP1.DirectoryListing.Items[I].ModifiedDate);	//更新日時
      S3 := inttostr(IdFTP1.DirectoryListing.Items[I].Size);	//ファイルサイズ

S5 := IdFTP1.DirectoryListing.Items[I].PermissionDisplay;	//パーミッション

Memo1.Lines.Add(S1 + #9 + S2+ #9 + S3+ #9+ S4 + #9 + S5 + #9 + S6);

end;

finally

end;

IdFTP1.Quit;

end;

←解決時は質問者本人がここをチェックしてください。

戻る