ics ftp 列目录

最新推荐文章于 2022-12-12 18:30:49 发布

weixin_34292287

最新推荐文章于 2022-12-12 18:30:49 发布

阅读量113

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/582827/blog/653952

版权

2019独角兽企业重金招聘Python工程师标准>>>


  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

转载于:https://my.oschina.net/u/582827/blog/653952