|
||
|
摘要：
---- 1、拷贝目录 ---- 为了能拷贝目录下带有子目录的情况，先定义一个辅助的拷贝函数，它是递归执行的，直到把目录下的所有文件和子目录都拷贝完。 ---- 1.1拷贝目录的递归辅助函数：DoCopyDir function DoCopyDir(sDirName:String; sToDirName:String):Boolean; var hFindFile:Cardinal; t,tfile:String; sCurDir:String[255]; FindFileData:WIN32_FIND_DATA; begin //先保存当前目录 ... 阅读全文
posted @ 2011-12-05 13:51 ╰★张志峰★╮ 阅读(1514) 评论(0) 推荐(0)
摘要：
---- 2、删除目录 ---- 删除目录与拷贝目录很类似，但为了能删除位于根目录下的一个空目录，需要在辅助函数中设置一个标志变量，即：如果删除的是空目录,则置bEmptyDir为True，这一句已经用深色框表示了。 ---- 2.1删除目录的递归辅助函数：DoRemoveDir function DoRemoveDir(sDirName:String):Boolean; var hFindFile:Cardinal; tfile:String; sCurDir:String; bEmptyDir:Boolean; FindFileData:WIN3... 阅读全文
posted @ 2011-12-05 13:50 ╰★张志峰★╮ 阅读(2170) 评论(0) 推荐(0)
摘要：
---- 3、移动目录 ---- 有了拷贝目录和删除目录的函数，移动目录就变得很简单，只需顺序调用前两个函数即可： function MoveDir(sDirName:String; sToDirName:string):Boolean; begin if CopyDir(sDirName,sToDirName) then if RemoveDir(sDirName) then result:=True else result:=false; end; ///////////////////... 阅读全文
posted @ 2011-12-05 13:49 ╰★张志峰★╮ 阅读(497) 评论(0) 推荐(0)
摘要：
Delphi 删除目录（二）procedure TForm1.BitBtn1Click(Sender: TObject); var sr:TsearchRec; begin if directoryExists( 'g:\a ') then begin if FindFirst( 'g:\a\*.* ',faAnyFile,sr)=0 then begin repeat deleteFile( 'g:\a\ '+sr.Name); until FindNext(sr) <> 0; Findcl... 阅读全文
posted @ 2011-12-05 13:48 ╰★张志峰★╮ 阅读(414) 评论(0) 推荐(0)
摘要：
http协议的格式主要有3中，get、post、head。。。head一般不用再servlet中，get和post都可以用于数据传递，都可以把数据传给服务器，不同的是，他们的数据在http包中的位置不同，一般，get方法的数据放在头部，直接在url里面给出，而post在专门的数据区，因此post能传递大量的数据，一般在表单中可以选择post或者get方法，用url直接传参默认使用get因为有这样的不同，所以servlet中专门有doGet和doPost对应于这两种传参方式，比如url = www.xxxx.com?aaa=b这样的就是get方式传参，你要想得到aaa的值，必须重写doGet方法 阅读全文
posted @ 2011-12-01 18:53 ╰★张志峰★╮ 阅读(816) 评论(0) 推荐(0)
摘要：
windows xp下配置JDK环境变量： 1.安装JDK，安装过程中可以自定义安装目录等信息，例如我们选择安装目录为D:/java/jdk1.5.0_08； 2.安装完成后，右击“我的电脑”，点击“属性”； 3.选择“高级”选项卡，点击“环境变量”； 4.在“系统变量”中，设置3项属性，JAVA_HOME,PATH,CLASSPATH(大小写无所谓),若已存在则点击“编辑”，不存在则点击“新建”； 5.JAVA_HOME指明JDK安装路径，就是刚才安装时所选择的路径D:/java/jdk1.5.0_08，此路径下包括lib，bin，jre等文件夹（此变量最好设置，因为以后运行tomcat，. 阅读全文
posted @ 2011-12-01 18:16 ╰★张志峰★╮ 阅读(8617) 评论(0) 推荐(0)
摘要：
delphi读取ini文件INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件一．INI文件的结构[小节名]ini文件 关键字1＝值1 关键子2＝值2INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。二、定义1、 在In 阅读全文
posted @ 2011-12-01 14:29 ╰★张志峰★╮ 阅读(7726) 评论(0) 推荐(0)
摘要：
（1） INI文件的结构： ;这是关于INI文件的注释部分 [节点] 关键字=值 ... INI文件允许有多个节点，每个节点又允许有多个关键字， “=”后面是该关键字的值（类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示）。注释以分号“;”开头。（2） INI文件的操作 1、 在Interface的Uses节增加IniFiles； 2、 在Var变量定义部分增加一行：inifile:Tinifile;然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。 3、 打开INI文件：inifile:=Tinifile. 阅读全文
posted @ 2011-12-01 11:21 ╰★张志峰★╮ 阅读(11787) 评论(0) 推荐(1)
摘要：
写了个从ftp上下载文件的程序； 一直无法成功执行； 每次都是下载一个文件夹后就结束； 出错提示是【list index out of index(数字)】 procedure TFormMain.DownAllFile(Localpath, serverPath: string); var i,count1:integer; ss:string; att:TIdDirItemType; FileList : TStrings; begin try begin FileList := TStringList.Create; ... 阅读全文
posted @ 2011-11-28 16:58 ╰★张志峰★╮ 阅读(3063) 评论(0) 推荐(0)
摘要：
1 连接远程服务器procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);2 改变目录procedure ChangeDir(const ADirName: string);3 下载procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload;procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: b 阅读全文
posted @ 2011-11-28 16:27 ╰★张志峰★╮ 阅读(16160) 评论(0) 推荐(0) |
||
浙公网安备 33010602011771号