[Delphi7]
FTPサーバーのファイル名を取得する必要があったので、Indyを使ってプログラムしてみました。フォームにButton、Memo、IdFTP、IdAntiFreeze1を貼り付けます。
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
I: Integer;
S1, S2: String;
begin
IdFTP1.Host := 'ホスト';
IdFTP1.Username := 'ユーザー名';
IdFTP1.Password := 'パスワード';
IdFTP1.Connect;
SL:= TStringList.Create;
try
IdFTP1.ChangeDir('フォルダ名');
IdFTP1.List(SL);
for I := 0 to IdFTP1.DirectoryListing.Count -1 do
begin
S1 := IdFTP1.DirectoryListing.Items[I].FileName; //ファイル名
S2 := DateTimeToStr(
IdFTP1.DirectoryListing.Items[I].ModifiedDate); //日付
Memo1.Lines.Add(S1+ #9 + S2);
end;
finally
SL.Free;
IdFTP1.Quit;
end;
end;
使っているIndyのバージョンは、9.00.10となっています。