2019年8月30日
Delphi - 通过WinAPI GetCursorPos实现鼠标位置的实时显示
摘要： 通过WinAPI GetCursorPos实现鼠标位置的实时显示 有时候我们需要将鼠标的位置实时抓取出来，可以通过如下方式实现。 添加一个Timer控件，执行间隔改为100ms，双击控件输入如下代码： 1 var 2 P: TPoint; 3 begin 4 GetCursorPos(P); 5 R 阅读全文
posted @ 2019-08-30 09:05 Jeremy.Wu 阅读(671) 评论(0) 推荐(0) 编辑
Delphi - 通过WinAPI WinExec直接调用系统工具
摘要： 看如下代码： 1 WinExec('mspaint.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 系统画图 2 3 WinExec('write.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 写字板 4 5 WinExe 阅读全文
posted @ 2019-08-30 08:46 Jeremy.Wu 阅读(498) 评论(0) 推荐(0) 编辑
Delphi - 使用Pos、Copy函数定位和截取字符串
摘要： 使用Pos函数来定位子字符串第一次出现的位置 函数定义： Function Pos(Substr: String, S: String): Integer; 表示取出Substr在S中第一次出现的位置，返回取到的位置 比如：Pos('a', '1234a'); //返回值为5 使用Copy函数来截取 阅读全文
posted @ 2019-08-30 08:29 Jeremy.Wu 阅读(8795) 评论(0) 推荐(0) 编辑
2019年8月29日
Delphi - StringReplace用法
摘要： StringReplace用法 在开发过程中，有时候我们需要对字符串进行替换操作，屏蔽或者和谐某些字符，可使用Delphi自带的函数StringReplace函数。 通过代码进行说明： //函数原型 function StringReplace(const S, OldPattern, NewPat 阅读全文
posted @ 2019-08-29 16:35 Jeremy.Wu 阅读(5338) 评论(0) 推荐(0) 编辑
Delphi - Indy TIdHTTP方式创建程序外壳 - 实现可执行程序的自动升级
摘要： 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 阅读(801) 评论(0) 推荐(0) 编辑
Delphi - Indy TIdThreadComponent 线程研究
摘要： Indy IdThreadComponent 线程研究 前几天在开发数据实时解析功能模块的时候，发现解析数据量巨大，特别耗时，程序一跑起来界面假死。 为了优化用户体验，采用了Indy 自带的IdThreadComponent控件，完美的解决了此问题。 下面就IdThreadComponent一些关键 阅读全文
posted @ 2019-08-29 11:11 Jeremy.Wu 阅读(1124) 评论(0) 推荐(0) 编辑
Delphi - Indy TIdFTPServer封装类
摘要： 在Delphi 7开发下有强大的Indy控件，版本为9，要实现一个FTP服务器，参考自带的例子，发现还要写很多函数，而且不支持中文显示文件列表等等。 于是，自己改进封装了下，形成一个TFTPServer类。 源码如下： 1 {************************************* 阅读全文
posted @ 2019-08-29 09:40 Jeremy.Wu 阅读(1388) 评论(0) 推荐(0) 编辑
Delphi - Indy 创建邮件自动发送服务
摘要： 服务器自动邮件线程 功能：此程序主要实现对Oracle数据库表tableName（存放需要发送邮件的相关信息）里面相关信息的邮件发送。 优点：开发人员可以直接再数据库后台对tableName表进行插入操作，前台会自动发送相关邮件，高效开发。 界面布局： 代码实现如下： 1 unit uSendMai 阅读全文
posted @ 2019-08-29 09:12 Jeremy.Wu 阅读(583) 评论(0) 推荐(0) 编辑
Delphi - Indy TIdMessage和TIdSMTP实现邮件的发送
摘要： idMessage / idSMTP 首先对idMessage类的各种属性进行赋值（邮件的基本信息，如收件人、邮件主题、邮件正文等），其次通过idSMTP连接邮箱服务器，最后通过idSMTP的Send方法将idMessage发送出去。 界面布局如下： 代码如下： 1 unit uMain; 2 3 阅读全文
posted @ 2019-08-29 08:54 Jeremy.Wu 阅读(1551) 评论(0) 推荐(0) 编辑
Delphi - Indy TIdFTP控件实现文件的上传和下载
摘要： 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 阅读(2011) 评论(0) 推荐(0) 编辑