[code delphi]
請在此區域輸入程式碼
var NewItem:TListItem;
i:integer;
LS: TStringList;
begin
Ls:=TStringList.Create;
ListView1.Clear;
IdFTP1.ChangeDir(DirName);
IdFTP1.List(Ls);
CurrentDirEdit.Text:=IdFTP1.RetrieveCurrentDir;
for i:=0 to IdFTP1.DirectoryListing.Count-1 do
begin
With IdFTP1.DirectoryListing.Items[i] do
begin
if (FileName='.') OR (FileName='..') then Continue;
NewItem:=ListView1.Items.Add;
NewItem.Caption:=FileName;
NewItem.SubItems.Add(IntToStr(Size));
if ItemType = ditDirectory then
begin
NewItem.StateIndex:=0;
NewItem.SubItems.Add('檔案目錄');
end
else
begin
NewItem.SubItems.Add('其他類型');
end;
NewItem.SubItems.Add(FormatDateTime('yyyy/mm/dd hh:mm', ModifiedDate));
NewItem.SubItems.Add(OwnerName);
end;
end;
[/code]
用Delphi內建的Indy ftp執行以下的代碼可以正卻的列出某一檔案的擁有者
=================
但自從我升級Indy Indy_9_00_14_src之後，當我執行編譯就會在這行報錯：
Undecred identified OwnerName NewItem.SubItems.Add(OwnerName);
----- 請問是怎麼回事呢??

------
xinjier禮品贈品

編輯記錄