Delphi
文章平均质量分 62
ceaningking
这个作者很懒,什么都没留下…
展开
-
Delphi RSA加解密(二)
Delphi RSA SHA1 SHA256 SHA512 SHA1WITHRSA SHA256WITHRSA SHA512WITHRSA原创 2023-02-25 17:24:37 · 1405 阅读 · 0 评论 -
Delphi Http Https 最好的解决方法(三) LoadLibrary扩展
Delphi Http Https LoadLibrary 网络请求原创 2023-02-25 15:56:24 · 1029 阅读 · 0 评论 -
Delphi RSA加解密(一)
Delphi RSA加解密 支持中文 GBK UTF8原创 2023-02-23 22:33:21 · 2258 阅读 · 6 评论 -
Delphi Http Https 最好的解决方法(二)
Delphi http https原创 2023-02-22 00:17:18 · 1587 阅读 · 0 评论 -
Delphi Http Https 最好的解决方法(一)
Delphi http https 辅助工具 解决一切ssl问题原创 2023-02-21 00:43:37 · 2679 阅读 · 2 评论 -
DELPHI 连接 SQLSERVER 端口非默认端口1433
DELPHI ADO SQLSERVER 1433 非1433原创 2023-02-17 17:28:57 · 773 阅读 · 0 评论 -
Delphi JSON总结(一)
Delphi 解析JSON的方法,就我已知的,有三种: 1. Qjson 2. SuperObject 3. System.JSON (Delphi XE 自带) 为方便看效果, 使用Delphi 2007演示Qjson和SuperObject的使用,使用Delphi XE 10.1Berlin演示System.JSON的使用。1. Delphi 2007使用Qjson(uses Qjson)和SuperObjec(uses superob...原创 2020-12-03 11:31:39 · 1121 阅读 · 0 评论 -
Delphi 2007 TIDHttp HTTPS 出现Error connecting with SSL
在Delphi 2007上的程序,曾经对接过好几个Https类型的支付平台,一直都很正常。可是最近对接的一个https类型的平台,总是出现Error connecting with SSL,使用PostMan工具请求正常,但是程序请求不正常。在网上找不到解决办法,各项配置确认配置正确。于是使用Delphi XE10.1写了一个Demo,进行请求,竟然通讯正常,于是使用XE10.1封装一个Https的dll,给程序调用.1. 工程文件library httpstool;uses Sy原创 2020-11-27 16:44:45 · 4935 阅读 · 4 评论 -
Delphi 线程
界面预览, 实现以上四个功能1. 新建单元uVar.pasunit uVar;interfaceuses Messages;const UM_ShowMsg = WM_USER + 101; //页面显示 比如线程向界面发送消息var GMainHandle: THandle; //窗体句柄 im...原创 2020-04-30 11:54:35 · 1455 阅读 · 0 评论 -
Delphi 集合的一点点笔记
1. 比如定义一个状态集合(开始,结束)TDiscernState = (fdsStart,fdsStop); 变量定义fStstus: TDiscernState; 赋值fStstus:= fdsStart; 判断状态的时候,则写成if fStatus= fdsStart thenbeginend;2. 比如定一个身份集合(学生老师家长):type TRoleMOde= 0..2; //身份角色const wm...原创 2020-09-11 09:30:27 · 143 阅读 · 0 评论 -
Delphi Cavas基础整理
参考: 万一的博客及相关示例。窗体设计: 实现效果: 实现代码:unit uFrmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TFrmMain = class(TForm) Button1: TButton; Button2:...原创 2020-09-11 09:17:59 · 168 阅读 · 0 评论 -
Delphi 2007 创建TIdHttp对象连接池
程序经常用到TIDHttp,每次封装模块的时候都要去创建1-2个TIdHttp对象,感觉很繁琐。就想把TIdHttp的东西写成一个公共代码模块,需要用的时候直接去取就可以了,不用每次都Create, FreeAndNil。现模仿数据库连接池,来写一个TIdHttpd对象连接池。1. 配置文件HTTP.ini[Options];允许最小连接数iMin=10;允许最大连接数iMax=50;是否使用httpsbUseHttps=1;纯模式 混合模式iHttpMode=1;请求类型原创 2020-08-16 11:56:42 · 653 阅读 · 0 评论 -
Delphi 位运算符 shl shr or xor and not
做串口通讯的时候,经常用到CRC16校验,不同的设备厂家校验方法略有不同。看着协议文档,是C++的校验代码,经常出现<< >> ^ &等位运算符号。在网上查询了下,Delphi与C++位运算符的对应, 学习了下.(地址是:https://blog.csdn.net/icewolf13/article/details/8330446?utm_source=blogxgwz8)位运算符对应关系如下 C++...原创 2020-06-24 17:48:24 · 1433 阅读 · 0 评论 -
Delphi interface 接口 总结
接口的功能类似抽象类, 通常定义一套通用的方法,但是在各实现类中有不同的实现方式。以下几句来源于网络整理:(1)接口中只有方法、属性,没有字段。所以接口中的属性存取都必须通过方法。(2)接口中的方法只有声明,没有实现。实现在类中完成。(3)接口中的方法没有作用域。都是公开的,但是在类中则放到不同作用域。(4)接口中的方法没有修饰字。可以认为它们都是抽象的。(5)不能创建接口实例,要使用接口,必须在类中实现,通过类调用接口的方法。(6)在类中必须声明和实现接口的所有方法。不像类继承中可以选择原创 2020-06-24 10:10:02 · 758 阅读 · 0 评论 -
Delphi 连接 Java和.Net WebService 整理
Delphi对接WebService大致分两种, 详细如下:第一种(这种比较常见): 方便看效果, 本地写了一个基于Axis2的WebService(这个就不描述了), 使用Delphi导入wsdl,Delphi代码如下(注释部分都删掉了):unit CalcuteStringService;interfaceuses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;const IS_OPTN = $0001; ...原创 2020-06-10 17:46:18 · 401 阅读 · 0 评论 -
Delphi TIdHttp TIdFtp 文件下载
看到手游有一个自动更新的功能,尝试着用Delphi也弄一个看看,百度了些文章,看了下实现方式,时间都花费在FTP全路径检索的递归方法上面,修改了好久,终于可以了。1. 在IIS上配置一个带有多层目录结构的产品目录, 做好准备工作. 如下图所示(cwx为需要下载或更新的程序目录): 2. 测试程序界面如下所示,功能一目了然 3. 工程文件DelphiAutoUpdate源码如下:program DelphiAutoUpdate;uses Forms, uFr...原创 2020-06-01 14:33:46 · 1122 阅读 · 1 评论 -
Delphi 系统服务 Http服务 YxdIOCP TService
说明: 编写一个系统http服务, 供多个终端请求, 并返回相应数据. 程序划分为服务、服务安装程序、终端。控件: 使用了YxdIOCP, 下载地址为(感谢作者的分享): https://github.com/yangyxd/YxdIOCP 以下对服务、服务安装程序、终端、测试进行单独说明:服务:File-> new-> othor-> ServiceApplication工程文件保存为ControlCenter, Unit1.pas保存为u...原创 2020-05-21 16:42:46 · 1329 阅读 · 0 评论 -
Delphi TIdHttp Post Get 笔记
//Post FHttp := TIdHttp.Create(nil); FHttp.HTTPOptions := []; FHttp.ProtocolVersion := pv1_1; FHttp.Request.ContentType := 'application/x-www-form-urlencoded'; FHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpR...原创 2020-05-18 17:44:54 · 1056 阅读 · 0 评论 -
Delphi 播放wav声音
1. uVar.pas单元如下unit uVar;interfaceuses SysUtils, Forms;type TAppPara = class public class function AppPath: string; class function AppName: string; end; TFilePath = class(T...原创 2020-05-21 10:52:17 · 1036 阅读 · 0 评论 -
Delphi XE 10.1 Berlin Indy发送QQ邮件
突发奇想, 如果服务在运行过程中, 出现某些问题, 需要提醒管理员时, 就发一封邮件出来, 在网上也找了些资料, 学习了下使用Indy发送QQ邮件.发件人我用的QQ邮箱, 关于这个, QQ邮箱需要进行一些设置, 进而获取授权码.QQ邮箱设置可参考: https://jingyan.baidu.com/article/ac6a9a5eb439f36b653eacc0.html获取授权...原创 2020-01-10 17:13:57 · 980 阅读 · 0 评论 -
Delphi XE 10.1 Berlin FireMonkey下 消息的自我传递
实现: 在窗体uFrmMain下, 包含线程ThreadA, 线程向该窗体发送消息, 窗体处理消息.由于FMX和VCL差异很大, 以前用的SendMessage不能用了, 得另想办法, 在网上找到了一个好的方法.如下操作:1. uses 添加引用 FMX.Presentation.Messages.2. 声明全局变量FMessageSender, 注意位置 如图所示:va...原创 2020-01-10 14:32:18 · 769 阅读 · 0 评论 -
Delphi XE 10.1 Berlin 使用FireDAC连接数据库(SQL Server, MySQL, SQLite)
此程序是写的一个Demo, 包含一个主窗体, 一个数据模块.1. 主窗体设计如下:提供一个初始化, 一个查询, 一个释放.初始化用于数据模块实例化, 查询就是执行SQL语句, 释放就是释放数据模块实例. 其它没啥说的.窗体上方是一个RadioGroup, 丢了四个按钮, 也就是四个数据库类型, 每个按钮控件的TAG分别设置了0123, 用于数据库连接切换方式的切换..窗体左...原创 2020-01-10 13:59:53 · 3374 阅读 · 0 评论 -
XE FMX 窗口置顶
最近用XE 10.1Berlin FMX, 写一个扫码弹出框, 非全屏界面, 窗体显示后, 点击主界面, 扫码框就置底了, 导致程序不能退出, 进入"假死"状态. 在网上百度查询了下, 找到了解决办法.类似于这种临时弹出窗口, 置顶的话, 可以设置窗体属性FormStyle, 默认Normal. 设置Popup 置底, 设置StayOnTop, 则置顶.设置StayOnTop后, 扫码框体...原创 2019-12-31 10:42:33 · 348 阅读 · 0 评论 -
Delphi 2007 XE10.1 MD5加密 中文 英文 16位 32位
Delphi 2007版本如下获取:单元引用 IdHashMessageDigest, IdHash;声明如下方法:function GetMD5_Encrypt16(param: string): string; //16位加密function GetMD5_Encrypt32(param: string): string; //32位加密实现如下方法:...原创 2018-09-04 13:05:54 · 1788 阅读 · 0 评论