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

名前

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

本文

ＦＴＰのことをいろいろ調べたんですが、これで完璧という所有者の取得の方法がわかりませんでした。

山本隆さまに対応していただいて、種類は取得できるようになったので、解決にチェックします。

ありがとうございました。

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

Form1に
Button1
Memo1
IdFTP1
を配置する。

usesに
IdAllFTPListParsers
を追加する。

procedure TForm1.Button1Click(Sender: TObject);
var

I: Integer;
  S1: String; //ファイル名
  S2: String; //更新日時
  S3: String; //ファイルサイズ
  S4: String; //種類
  S5: 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); //ファイルサイズ

case IdFTP1.DirectoryListing.Items[I].ItemType of
          ditDirectory: S4:='Directory';
          ditFile: S4:= 'File';
          ditSymbolicLink: S4:= 'SymbolicLink';
          ditSymbolicLinkDir: S4:= 'SymbolicLinkDir';
          ditBlockDev: S4:= 'BlockDev';
          ditCharDev: S4:= 'CharDev';
          ditFIFO: S4:= 'FIFO';
          ditSocket: S4:= 'Socket';
      end; //種類

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

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

end;

finally

end;

IdFTP1.Quit;

end;

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

戻る