随笔分类 - [02] Delphi7
Delphi只是一个工具，算法最重要。
摘要：前言 从事软件开发工作好多年了，学的越深入越觉得自己无知，所以还是要对知识保持敬畏之心，活到老，学到老！ 健身和代码一样都不能少，身体是革命的本钱，特别是我们这种高危工种，所以小伙伴们运动起来！有没有健身撸铁，体脂现在是多少呀？明年（2020/03/22）徐州的马拉松有没有报名呀！？ 扯的有点远了，
阅读全文
摘要：项目背景 近期，总经办邮件反馈考勤数据频繁丢失，请IT排查其根本原因，并提供整改措施。 措不及防，这个项目当初并不是IT主导的，是设备部采购，然后协同软件供应商直接安装、部署和调试的，IT只是提供几个数据库表接口给供应商。然后我们就开始在设备、总经办、供应商之间相互扯皮，之所以扯皮的原因是，经过供应
阅读全文
摘要：设置成显示年、月、日、时、分、秒 1：将DateTimePicker的Format属性中加入日期格式设成 'yyyy-MM-dd HH:mm:ss'，注意日期里月份对应的MM是大写，时间里的分钟对应的mm是小写； 2：将kind设置为dtkTime； 3：将DateMode属性为dmComboBox
阅读全文
摘要：Delphi调用OLE类实现TTS方式语音朗读 直接看代码： unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Comobj, Dialogs,
阅读全文
摘要：procedure TF_SMP_FT_NEW.RzBitBtn_StartToChangeClick(Sender: TObject); var i, j, ni, nj, iRows, iCol, iCol_flag: Integer; T_DATE, T_LC, T_CP, T_FN, T_R
阅读全文
摘要：//Not直接实现十六进制取反var I, J : word; begin I := $96E5; J := Not I; ShowMessage(Format('%x',[J])); end; 作者：Jeremy.Wu 出处：https://www.cnblogs.com/jeremywucnbl
阅读全文
摘要：10进制转16进制 使用IntToHex可以实现十进制到十六进制的转换，注意这里的参数有两个，第一个表示需要被转换的10进制数，第二个表示转换后用几位来显示16进制数。 代码如下： function OctToHex(iValue, iBit: Integer): String; begin Res
阅读全文
摘要：Delphi利用avicap32.dll编程控制摄像头实现拍照、录制视频 项目需求：平板电脑（Windows系统）一维/二维码扫描功能； 需求分析： 需要扫描一维/二维码时，分两步实现。 第一步，avicap32.dll或者dspack技术实现静默打开摄像头拍照、保存BMP图片。 第二步，ZXing
阅读全文
摘要：Delphi 调用外部程序并阻塞到外部程序中 背景说明： 前段时间开发一个数据转换的系统，业务逻辑中说明数据需要压缩成.tar.gz格式。 我在Windows系统下采用，先生成批处理文件，然后调用WinExec执行批处理文件，休眠等待一段时间，完成数据的自动压缩。 后来发现，待压缩文件的大小不确定，
阅读全文
摘要：阿里大于是阿里通信旗下产品，融合了三大运营商的通信能力，提供包括短信、语音、流量直充、私密专线、店铺手机号等个性化服务。每条四分五，价钱还算公道，经老农测试，响应速度非常快，基本上是秒到。官方文档提供了JAVA、.NET、PHP、Python、C/C++、NodeJS 等语言的 Demo，唯独没有
阅读全文
摘要：TIdFTP 两个重要函数 项目开发过程中发现，直接对于服务器上的文件/路径进行处理，是很危险的事情，因为一旦文件/路径不存在，程序就会抛异常，影响客户体验。所以在对服务器上的文件/路径进行访问之前，我们一般先判断服务器上是否存在某个路径/文件，然后再进行进一步的处理。 判断服务器上文件或者路径是否
阅读全文
摘要：Delphi实现对鼠标上下滚动基础消息的截获并处理 前几天有客户提出需求：由于个人PC界面限制，有时候电子图档显示不全，希望通过鼠标上下滚动用来控制电子图档的放大和缩小。 下面通过一个测试Demo来说明一下。 新建一个WinFrm应用程序，添加一个RzMemo、ApplicationEvents控件
阅读全文
摘要：Logs记录-函数实现MsgDsp 大多数时候，我们不太希望消息以交互的形式出现，这个时候我们可以在窗体上放置一个Memo，然后单独开一个线程进行监视，从而实现把消息实时的显示出来，便于开发者分析。 关键代码如下： 1 procedure TFrmMain.MsgDsp(v_Str: string)
阅读全文
摘要：调用SuperDll 接上一篇Delphi创建Superdll，将生成的SuperDll.dll文件复制到本工程路径下，创建如下代码进行Superdll各个接口的测试。 创建uSuperDll.pas单元，用来对接DLL，具体看如下代码； 创建Delphi WinFrm窗体，引用uSuperDll.
阅读全文
摘要：Delphi SuperDll 作为一名5年的Delpher，一直认为Delphi是桌面应用的王者，我相信其他的Delpher也这么认为。 但是，慢慢的我发现普通方式的Delphi开发会造成代码的严重臃肿，特别是MDI类大型项目、多人同时开发的情况下。 举个例子，一个Delphi常用的业务逻辑，数据
阅读全文
摘要：第三方控件TMS、SPComm的下载与安装 盒子上可搜索关键字进行下载，TMS是.dpk文件，SPComm.pas文件； 安装方法自行百度，不做赘述。 通过TMS控件进行界面布局 界面预览： Delphi通过SPComm连接串口、发送和接收指令 连接串口 拖一个TComm控件到主窗体上，选中控件，单
阅读全文
摘要：第三方RC控件的安装 浏览器搜索Delphi Rz控件下载，找到下载一个安装文件，解压后点击RC3.exe一键安装。 Delphi WinFrm工程最小化到托盘 Delphi新建WinFrm工程，在主窗体上添加TRzTrayIcon、TImageList和TPopupMenu。此时运行工程，点击最小
阅读全文
摘要：使用CreateMutex函数创建互斥对象 利用Windows系统函数CreateMutex()，找出当前系统是否已经存在指定进程的实例，如果没有则创建一个互斥体。 CreateMutex函数原型如下: function CreateMutex(lpMutexAttributes: PSecurit
阅读全文
摘要：GetFileSize获取文件大小 封装成如下函数，可以直接使用： 1 ///函数功能：获取文件大小，单位取KB，小数自动进位 2 ///参数：sFilePath文件全路径 3 ///Result: 成功是返回文件大小，失败时返回'N' 4 function GetFileSize(sFilePat
阅读全文
摘要：项目背景 应欧美客户需求，需要将文件压缩成.tar.gz格式的文件，并上传给客户端SFTP服务器。 你懂的，7-Zip软件的显著特点是文件越大压缩比越高，在Linux系统上相当于我们Windows系统上WinRAR或者好压软件一样的存在。 7-Zip软件下载与安装 网上下载相关安装包并完成安装，找到
阅读全文
