本人首次用 INDY 来做个FTP客户端, 测试FTP服务器为 SER_U 6.0,
参考了网上在多数代码,也用了INDY自带的DEMO,在连接服务器后,想列出目录时,用LIST,就没反应,
但是用INDY IDFTPSEVER 的DEMO服务器就可以,请帮帮小弟.
下面是部分代码
//连接 没问题
if not idFTP.Connected then
begin
idFTP.Connect();
L.Caption := idFTP.RetrieveCurrentDir; //能显示当前用户目录
end;//列目录 没反应var
ls :TStringList;
begin
if not idFTP.Connected then
exit;LS := TStringList.Create;tryidFTP.ChangeDir(L.Caption); //PASS
IdFTP.TransferType := ftASCII;
DirectoryListBox.Items.Clear;L.Caption := idFTP.RetrieveCurrentDir;//PASSIdFTP.List(ls);// 这里出问题,一运行就没反应,不是服务器目录或文件过多,我在单目录单文件也不行
//list(ls,'*',TRUE/FALSE) 全试过,不行
//idftp.Status(ls,); //这个也不行//DirectoryListBox.Items.Assign(idFTP.DirectoryListing.Items);if DirectoryListBox.Items.Count > 0 thenif AnsiPos('total', DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);finallyLS.Free; end;
参考了网上在多数代码,也用了INDY自带的DEMO,在连接服务器后,想列出目录时,用LIST,就没反应,
但是用INDY IDFTPSEVER 的DEMO服务器就可以,请帮帮小弟.
下面是部分代码
//连接 没问题
if not idFTP.Connected then
begin
idFTP.Connect();
L.Caption := idFTP.RetrieveCurrentDir; //能显示当前用户目录
end;//列目录 没反应var
ls :TStringList;
begin
if not idFTP.Connected then
exit;LS := TStringList.Create;tryidFTP.ChangeDir(L.Caption); //PASS
IdFTP.TransferType := ftASCII;
DirectoryListBox.Items.Clear;L.Caption := idFTP.RetrieveCurrentDir;//PASSIdFTP.List(ls);// 这里出问题,一运行就没反应,不是服务器目录或文件过多,我在单目录单文件也不行
//list(ls,'*',TRUE/FALSE) 全试过,不行
//idftp.Status(ls,); //这个也不行//DirectoryListBox.Items.Assign(idFTP.DirectoryListing.Items);if DirectoryListBox.Items.Count > 0 thenif AnsiPos('total', DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);finallyLS.Free; end;
解决方案 »
- 信息监控系统又现误杀,“检测到不允许的词”
- 想把动态创建的excel保存到硬盘,为什么报错呢?谢谢指点!!
- 如何将剪切板中的bmp数据直接保存为bmp文件?(100f分问题)
- 关于.dfm文件中的中文字符问题
- 如何在汇编连接调用汇编编译后BIN文件,谢谢
- 查出某目录下所有包含"test"字符串的文件来,如何做算法?
- 联接oracle数据库,如何做登录窗体, 怎么判断输入的密码对不对,回者有分(内空)
- 能否声明一个数组,数据类型是自定义的类?
- delphi 6 重大bug发布!!!!!!!!
- 如何在插入和更新一条纪录之前对该表进行不允许读取的锁定,在更新或者插入结束后显式释放锁
- 各位兄弟们帮帮忙吧,接口的问题,急!
- (远程)有固定IP的服务器,装SQLSERVER实例不是默认的,如何访问?
就没有问题了。
弄的少了Indy9的TIdFTP很稳定!推荐!
配置 FTP 服务器 选 UNIX 风格。
就没有问题了。在 windows 操作系统上,
管理--》IIS-->FTP-->后面 应该有个 风格
风格
DOS
UNIX
选 UNIX 就没有问题,我以前是这样解决的。