随笔分类 -  Delphi

上一页 1 2 3
5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas 改进版
摘要：用到临界区 保护写日志的函数； 递归函数 删除目录下的所有文件； 循环创建或判断FTP的目录； 可改进的地方：循环压缩深层次目录的所以文件； 实现断点续传，或断点下载； 阅读全文
posted @ 2015-04-10 16:27 海蓝7 阅读(624) 评论(0) 推荐(0) 编辑
Delphi7 客户端调用WebService（天气预报）
摘要：客户程序：第一步：新建一个Application。第二步：File----->New----->Other------>WebServices----->WSDLImporter 然后在LocationofWSDLFileorURL中填入：http://10.22.30.61:36601/Mon... 阅读全文
posted @ 2015-04-10 16:02 海蓝7 阅读(1913) 评论(0) 推荐(0) 编辑
操作TAB文件和TStringGrid赋值；
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IniFiles, Grids, ExtCtrls, But... 阅读全文
posted @ 2015-04-10 13:59 海蓝7 阅读(267) 评论(0) 推荐(0) 编辑
转：delphi 删除指定文件夹下所有文件
摘要：function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean;var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPat... 阅读全文
posted @ 2015-04-03 11:14 海蓝7 阅读(2094) 评论(0) 推荐(0) 编辑
5、利用控件TVCLZip和TIdFTP压缩文件并上传到FTP的线程单元pas
摘要：{******************************************************************************* Copyright (C), 2014-2020, aicaipiao File name: UFtpContentThd.pas Author: lipingchen Version: Date: 2014092... 阅读全文
posted @ 2015-03-30 15:19 海蓝7 阅读(346) 评论(0) 推荐(0) 编辑
4、delphi record数组复制
摘要：SetLength(OldDeptInfo,0); //释放旧数组 OldDeptInfo:=nil; 这样也可以； //SetLength(OldDeptInfo,Length(NewDeptInfo)); //不需要设定长度； OldDeptInfo:= NewDeptI... 阅读全文
posted @ 2015-03-27 16:47 海蓝7 阅读(751) 评论(0) 推荐(0) 编辑

上一页 1 2 3