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