摘要: StringReplace用法 在开发过程中,有时候我们需要对字符串进行替换操作,屏蔽或者和谐某些字符,可使用Delphi自带的函数StringReplace函数。 通过代码进行说明: //函数原型 function StringReplace(const S, OldPattern, NewPat 阅读全文
posted @ 2019-08-29 16:35 Jeremy.Wu 阅读(5595) 评论(0) 推荐(0) 编辑
摘要: Delphi 实现可执行程序的自动升级 准备工作: 1:Delphi调用TIdHTTP方式开发程序,生成程序打包外壳 说明:程序工程命名为ERP_Update 界面布局如下: 代码实现如下: 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messag 阅读全文
posted @ 2019-08-29 13:00 Jeremy.Wu 阅读(818) 评论(0) 推荐(0) 编辑
摘要: Indy IdThreadComponent 线程研究 前几天在开发数据实时解析功能模块的时候,发现解析数据量巨大,特别耗时,程序一跑起来界面假死。 为了优化用户体验,采用了Indy 自带的IdThreadComponent控件,完美的解决了此问题。 下面就IdThreadComponent一些关键 阅读全文
posted @ 2019-08-29 11:11 Jeremy.Wu 阅读(1172) 评论(0) 推荐(0) 编辑
摘要: 在Delphi 7开发下有强大的Indy控件,版本为9,要实现一个FTP服务器,参考自带的例子,发现还要写很多函数,而且不支持中文显示文件列表等等。 于是,自己改进封装了下,形成一个TFTPServer类。 源码如下: 1 {************************************* 阅读全文
posted @ 2019-08-29 09:40 Jeremy.Wu 阅读(1412) 评论(0) 推荐(0) 编辑
摘要: 服务器自动邮件线程 功能:此程序主要实现对Oracle数据库表tableName(存放需要发送邮件的相关信息)里面相关信息的邮件发送。 优点:开发人员可以直接再数据库后台对tableName表进行插入操作,前台会自动发送相关邮件,高效开发。 界面布局: 代码实现如下: 1 unit uSendMai 阅读全文
posted @ 2019-08-29 09:12 Jeremy.Wu 阅读(595) 评论(0) 推荐(0) 编辑
摘要: idMessage / idSMTP 首先对idMessage类的各种属性进行赋值(邮件的基本信息,如收件人、邮件主题、邮件正文等),其次通过idSMTP连接邮箱服务器,最后通过idSMTP的Send方法将idMessage发送出去。 界面布局如下: 代码如下: 1 unit uMain; 2 3 阅读全文
posted @ 2019-08-29 08:54 Jeremy.Wu 阅读(1622) 评论(0) 推荐(0) 编辑
摘要: FTP信息保存和获取 我们在做FTP相关开发时,为方便后续FTP切换,一般先把FTP账户信息保存到数据库表中,在使用时再通过Query获取出来。 一般通过如下方式获取到FTP相关信息,代码如下: 1 //获取FTP信息 2 with qTmp do 3 begin 4 Close; 5 SQL.Cl 阅读全文
posted @ 2019-08-29 08:33 Jeremy.Wu 阅读(2097) 评论(0) 推荐(0) 编辑
摘要: 本地路径的创建 在做下载操作时,我们一般先把文件下载到本地指定的路径下,然后再做其他使用。 为了防止程序出现异常,我们通常需要先判断本地是否存在指定的路径。 以C盘Tmp文件夹为例,我们可以这样做,代码如下: 1 if not DirectoryExists('C:\Tmp') then 2 if 阅读全文
posted @ 2019-08-29 08:13 Jeremy.Wu 阅读(681) 评论(0) 推荐(0) 编辑