if ftpclnt1.Connected then
begin
stm := TMemoryStream.Create;
mylist := TStringList.Create;
try
ftpclnt1.LocalStream := stm;
if ftpclnt1.Dir then // 列目录命令
begin
setlength(buffer, stm.size);
stm.Seek(0, soFromBeginning);
stm.Read(buffer[1], stm.size);
mylist.Text := buffer;
for ItemCount := 0 to mylist.Count - 1 do
begin
ParseList(mylist[ItemCount]);
end;
end;
finally
ftpclnt1.LocalStream := nil;
stm.Free;
mylist.Free;
end;
end