delphi中如何用idFTP下载整个目录 求代码！！！跪求！！！

procedure TForm1btn3Click(Sender: TObject);

var

i,j:Integer;

ls:TStringList;

fname:string;

begin

adoTBFtpClose;

adoTBFtpOpen;

while not adoTBFtpEof do

begin

IdFtp1Host:= adoTBFtpfieldbyname('Ip')AsString;

IdFtp1Username := adoTBFtpfieldbyname('User')AsString;

IdFtp1Password := adoTBFtpfieldbyname('PassWord')AsString;

if not IdFtp1Connected then

begin

try

IdFtp1Connect;

except

on e:exception do

begin

ShowMessage(eMessage);

Exit;

end;

end;

end;

ls:=TStringListCreate;

IdFTP1ChangeDir('/tellin/temp'); //到指定目录下 windows /;Unix /

//IdFTP1TransferType := ftASCII;

IdFTP1List(LS);//得到目录结构

for i:=0 to IdFtp1DirectoryListingCount-1 do //遍历所有目录

begin

//memo1LinesAdd(IdFtp1DirectoryListingItems[i]FileName);//如果文件名和目录一样,就执行如下 *** 作

for j:=1 to 12 do

begin

fname:='scf-0-'+intToStr(j)+'runold';

if IdFtp1DirectoryListingItems[i]FileName=fname then

begin

//传输文件get函数第一个参数是服务器上的要下载的文件名,第二个参数是本地的路径和要保存的文件名

IdFtp1Get(fname,adoTBFtpfieldbyname('SavePath')AsString+fname,True);

end;

end;

end;

adoTBFtpNext;

end;

lsFree;

end;

◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar( newfile txt ) pchar( //putername/direction/targer txt ) false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件 DragOver事件 EndDrag事件实现 例如在PANEL上的LABEL var xpanel ypanel xlabel ylabel:integer;PANEL的MouseMove事件 xpanel:=x;ypanel:=y;PANEL的DragOver事件 xpanel:=x;ypanel:=y;LABEL的MouseMove事件 xlabel:=x;ylabel:=y;LABEL的EndDrag事件 label left:=xpanel xlabel;label top:=ypanel ylabel;◇[DELPHI]取得WINDOWS目录uses shellapi;var windir:array[ ] of char;geindowsdirectory(windir sizeof(windir));或者从注册表中读取 位置 HKEY_LOCAL_MACHINE\Sofare\Microsoft\Windows\CurrentVersionSystemRoot键 取得如 C:\WINDOWS◇[DELPHI]在form或其他容器上画线var x y:array [ ] of integer;lor:=clred;canvas pen style:=psDash;form canvas moveto(trunc(x[i]) trunc(y[i]));form canvas lineto(trunc(x[j]) trunc(y[j]));◇[DELPHI]字符串列表使用var tips:tstringlist;tips:=tstringlist create;tips loadfromfile( filename txt );edit text:=tips[ ];tips add( last line addition string );tips insert( insert string at NO line );tips savetofile( newfile txt );tips free;◇[DELPHI]简单的剪贴板 *** 作richedit selectall;pytoclipboard;richedit cuttoclipboard;edit pastefromclipboard;◇[DELPHI]关于文件 目录 *** 作Chdir( c:\abcdir );转到目录Mkdir( dirname );建立目录Rmdir( dirname );删除目录GetCurrentDir;//取当前目录名 无 \ Getdir( s);//取工作目录名s:= c:\abcdir ;Deletfile( abc txt );//删除文件Renamefile( old txt new txt );//文件更名ExtractFilename(filelistbox filename);//取文件名ExtractFileExt(filelistbox filename);//取文件后缀◇[DELPHI]处理文件属性attr:=filegetattr(filelistbox filename);if (attr and faReadonly)=faReadonly then //只读if (attr and faSysfile)=faSysfile then //系统if (attr and faArchive)=faArchive then //存档if (attr and faHidden)=faHidden then //隐藏◇[DELPHI]执行程序外文件WINEXEC//调用可执行文件winexec( /c copy c:\ SW_Normal);winexec( start abc txt );ShellExecute或ShellExecuteEx//启动文件关联程序function executefile(const filename params defaultDir:string;showCmd:integer):THandle;ExecuteFile( C:\abc\a txt x abc c:\abc\ );ExecuteFile( );ExecuteFile( mailto: );◇[DELPHI]取得系统运行的进程名var hCurrentWindow:HWnd;szText:array[ ] of char;beginhCurrentWindow:=Geindow(handle GW_HWndFrist);while hCurrentWindow <> dobeginif Geindowtext(hcurrneindow @sztext )> then ems add(strpas(@sztext));hCurrentWindow:=Geindow(hCurrenindow GW_HWndNext);end;end;◇[DELPHI]关于汇编的嵌入A End;可以任意修改EAX ECX EDX 不能修改ESI EDI ESP EBP EBX ◇[DELPHI]关于类型转换函数FloatToStr//浮点转字符串FloatToStrF//带格式的浮点转字符串IntToHex//整数转 进制TimeToStrDateToStrDateTimeToStrFmtStr//按指定格式输出字符串formatDateTime( YYYY MM DD hh mm ss DATE);◇[DELPHI]字符串的过程和函数Insert(obj target pos);//字符串target插入在pos的位置 如插入结果大于target最大长度 多出字符将被截掉 如Pos在 以外 会产生运行错 例如 st:= Brian 则Insert（ OK st ）会使st变为 BrOKian Delete(st pos Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串 例如 st:= Brian 则Delete(st )将变为Brn Str(value st);//将数值value（整型或实型）转换成字符串放在st中 例如 a= E 时 则str(a: st)将使st的值为 Val(st var code);//把字符串表达式st转换为对应整型或实型数值 存放在var中 St必须是一个表示数值的字符串 并符合数值常数的规则 在转换过程中 如果没有检测出错误 变量code置为 否则置为第一个出错字符的位置 例如 st:= E x是一个实型变量 则val(st x code)将使X值为 code值为 Copy(st pos num);//返回st串中一个位置pos（整型）处开始的 含有num（整型）个字符的子串 如果pos大于st字符串的长度 那就会返回一个空串 如果pos在 以外 会引起运行错误 例如 st:= Brian 则Copy(st )返回 ri Concat(st st st …… stn);//把所有自变量表示出的字符串按所给出的顺序连接起来 并返回连接后的值 如果结果的长度 将产生运行错误 例如 st := Brian st := st := Wilfred 则Concat(st st st )返回 Brian Wilfred Length(st);//返回字符串表达式st的长度 例如 st:= Brian 则Length(st)返回值为 Pos(obj target);//返回字符串obj在目标字符串target的第一次出现的位置 如果target没有匹配的串 Pos函数的返回值为 例如 target:= Brian Wilfred 则Pos( Wil target)的返回值是 Pos( hurbet target)的返回值是 ◇[DELPHI]关于处理注册表uses Registry;var reg:Tregistry;reg:=Tregistry create;reg rootkey:= HKey_Current_User ;reg openkey( Control Panel\Desktop false);reg WriteString( Title Wallpaper );reg writeString( Wallpaper filelistbox filename);reg closereg;reg free;◇[DELPHI]关于键盘常量名VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWNF F $ ( ) $ B( )A Z $ ( ) $ A( ) $ ( ) $ ( )◇[DELPHI]初步判断程序母语DELPHI软件的DOS提示 This Program Must Be Run Under Win VC++软件的DOS提示 This Program Cannot Be Run In DOS Mode ◇[DELPHI] *** 作Cookieokies( name ) domain:= ;with okies add dobeginname:= username ;value:= username ;end◇[DELPHI]增加到文档菜单连接uses shellapi shlOBJ;shAddToRecentDocs(shArd_path pchar(filepath));//增加连接shAddToRecentDocs(shArd_path nil);//清空◇[杂类]备份智能ABC输入法词库windows\system\user remwindows\system\tmmr rem◇[DELPHI]判断鼠标按键if GetAsyncKeyState(VK_LButton)<> then //左键if GetAsyncKeyState(VK_MButton)<> then //中键if GetAsyncKeyState(VK_RButton)<> then //右键◇[DELPHI]设置窗体的最大显示onformCreate事件self width:=screen width;self height:=screen height;◇[DELPHI]按键接受消息OnCreate事件中处理 Application OnMessage:=MyOnMessage;procedure Tform MyOnMessage(var MSG:TMSG;var Handle:Boolean);beginif ssage= then //ANY键if ssage= then //F if ssage= then //F end;◇[杂类]隐藏共享文件夹共享效果 可访问 但不可见（在资源管理 网络邻居中）取共享名为 direction$访问 //puter/dirction/◇[Java Script]Java Script网页常用效果网页 秒定时关闭关闭窗口关闭定时转URL设为首页设为首页收藏本站收藏本站加入频道加入频道◇[DELPHI]随机产生文本色randomize;//随机种子lor:=rgb(random( ) random( ) random( ));◇[DELPHI]DELPHI UPDATE升级补丁序列号 X fx ◇[DELPHI]文件名的非法字符过滤for i:= to length(s) doif s[i] in [ \ / : < > | ] then◇[DELPHI]转换函数的定义及说明datetimetofiledate (datetime:Tdate lishixinzhi/Article/program/Delphi/201311/8427

windowspas等 在安装目录的Source\Rtl\Win下，如我的电脑安装的delphi7在E:\Program Files\Borland\Delphi7下，则windowspas等 位于：

E:\Program Files\Borland\Delphi7\Source\Rtl\Win

以上就是关于delphi中如何用idFTP下载整个目录 求代码！！！跪求！！！全部的内容，包括:delphi中如何用idFTP下载整个目录 求代码！！！跪求！！！、新手学堂：Delphi基础开发技巧浅析、delphi的问题：windows.pas单元在哪里可以找到等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！