文档章节

ftpforcedirectories indyftp

vga
 vga
发布于 2014/04/22 20:45
字数 122
阅读 63
收藏 0
 {
  调用示例:
  idftp.Connect();
  FTPForceDirectories(idftp, '/abc/123/567');
}
function FTPForceDirectories(ftp: TIDFTP; Dir: string): Boolean;
var
  dirNames, lst: TStrings;
  tmpdir, str: string;
  i, j: Integer;
  found: Boolean;
begin
  Result := False;
  lst := TStringList.Create;
  dirNames := TStringList.Create;
  dirNames.Text := StringReplace(Dir,'/', #$D#$A, [rfReplaceAll]);

  try
    try
      );
      for i := 0 to dirNames.Count - 1 do begin
        tmpdir := dirNames[i];
        if tmpdir = '' then continue;
        );
        found := False;
        for j := 0 to lst.Count - 1 do begin
          str := lst[j];
          if (str[1]='d') and Sametext(Copy(str, 56, 255), tmpdir) then begin
            found := True;
            Break;
          end;
        end;
        if not found then );
        );
      end;
      Result := true;
    except
      on E: Exception do begin

      end;
    end;
  finally
    dirNames.free;
    lst.free;
  end;
end;

 

© 著作权归作者所有

vga

vga

粉丝 23
博文 366
码字总数 26645
作品 0
佳木斯
私信 提问
加载中

评论(1)

vga
vga 博主
这是 d7 (indy 9.x)下的

若用 indy 10.x ,则 需将56 -> 61, 才能正确取得 文件名,列目录方法也要改变
解决 IndyFTp 乱码问题 10.6.0

在 ftp的FTPOnConnected 事件写入: procedure TfrmMain.FTPConnected(Sender: TObject); begin // FTP.DefStringEncoding := IndyTextEncoding(encOSDefault); // xe4 wjs FTP.DefStringEn......

vga
2014/04/14
477
0

没有更多内容

加载失败,请刷新页面

加载更多

没有更多内容

CentOS7.6中安装使用fcitx框架

内容目录 一、为什么要使用fcitx?二、安装fcitx框架三、安装搜狗输入法 一、为什么要使用fcitx? Gnome3桌面自带的输入法框架为ibus,而在使用ibus时会时不时出现卡顿无法输入的现象。 搜狗和...

技术训练营
昨天
5
0
《Designing.Data-Intensive.Applications》笔记 四

第九章 一致性与共识 分布式系统最重要的的抽象之一是共识(consensus):让所有的节点对某件事达成一致。 最终一致性(eventual consistency)只提供较弱的保证,需要探索更高的一致性保证(stro...

丰田破产标志
昨天
8
0
docker 使用mysql

1, 进入容器 比如 myslq1 里面进行操作 docker exec -it mysql1 /bin/bash 2. 退出 容器 交互: exit 3. mysql 启动在容器里面,并且 可以本地连接mysql docker run --name mysql1 --env MY...

之渊
昨天
10
0
python数据结构

1、字符串及其方法(案例来自Python-100-Days) def main(): str1 = 'hello, world!' # 通过len函数计算字符串的长度 print(len(str1)) # 13 # 获得字符串首字母大写的...

huijue
昨天
6
0
PHP+Ajax微信手机端九宫格抽奖实例

PHP+Ajax结合lottery.js制作的一款微信手机端九宫格抽奖实例,抽奖完成后有收货地址添加表单出现。支持可以设置中奖概率等。 奖品列表 <div class="lottery_list clearfix" id="lottery"> ......

ymkjs1990
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部