ics ftp 列目錄

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