mORMot2 获取数据集1
mORMot2 获取数据集 其实在前面想学习mORMot1部分已经收集了很多关于CRUD的示例了，但感觉总是不通透，不能很好使用，一则mORMot函数命令规则比较不同寻常，另外确实示例太少，其实代码注释倒是讲了很多。 procedure FillPrepare(Table: TOrmTable; a ...
mORMot2 生成和解析 JSON
mormot2 生成和解析json 本文非完全原创，本文部分内容来自博客园，作者：{咏南中间件} 前综合示例，整个示例是建立在mORMot特有的实现模式的基础上，非常用的序列化反序列化，但又有别于字符串拼接，据说效率极高。 unit Unit1; interface uses Windows, Me ...
Delphi 实现刘谦春晚魔术
看了博友的C# 实现刘谦春晚魔术很好，改成了delphi版的。 1 program Project1; 2 3 {$APPTYPE CONSOLE} 4 {$R *.res} 5 6 uses 7 System.SysUtils, 8 System.Classes; 9 10 var 11 list ...
delphi redisclient测试
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V ...
delphi JSON序列化（四）
涉及的重要类 REST.Json，REST.JsonReflect，REST.Json.Interceptors, REST.Json.Types单元中。 一、TJson类 最简单的一个类，提供了JSON -> OBJECT和OBJECT -> JSON几个方法，方法有TJsonOptions参数， ...
解决升级到 Delphi 12 后遇到 SQLite 不兼容的问题
今天升级到 Delphi 12 后，编译运行原来的项目，出现“[FireDAC][Phys][SQLite][sqlite3]-303.Capability is not supported”的错误。 经过查找文档，发现是FireDAC SQLite 版本更新导致的。 RAD Studio 12.0 ...
mormot2 笔记(二) Http服务的简单搭建
mormot2框架中有个THttpServer类，它有一个Router属性，定义如下： property Router: TUriRouter read fRoute; Router是添加路由的入口点，它有和http协议对应的get, post, put, delete等方法，这些方法可以添加路由， ...
使用Delphi编写DLL劫持内存补丁
在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？ 当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分 ...
dephi RTI （Runtime Type Information）获取运行时的控件信息
var Edit: TComponent;begin Edit := FindComponent("Edit1"); If Edit is TEdit then TEdit(Edit).Text := '你好 Delphi7';end; RTTI(RunTime Type Information): ...
Winsock2的WSABUF对齐问题记录
本人是Delphi老程序员，开发Windows下异步底层通信组件已经好多年，最高性能的完成端口组件也已经实现好多年了，可以说对Winsock已经是相当熟悉，完成端口的运行机制也比较熟悉，所开发的组件应用于公司的系统，成功应答数千大数据量并发连接的考验，应该说技术上算是比较成熟稳定了。 我开发电脑上， ...
AI智能问答助手 AI智能批量文章生成器 网站优化SEO批量内容生成工具 原创文章生成软件
《AI智能问答助手》 软件基于当下热门的OpenAI的ChatGPT技术,导入问题列表就可以批量生成对应的内容，内容质量高、原创度高。适合对内容生成需求量大的场景，如网站优化、广告文案等等。。。使用操作简单、小白也能容易上手。更多功能\/： ab18cn OpenAI GPT是OpenAI公司开发的 ...
uniGUI学习之UniHTMLFrame1例子1进度条显示2模糊圆点粒子背景动画特效3动态进度条(58)
01]静态进度条 02]模糊圆点粒子背景动画特效 03]动态进度条 01]静态进度条效果图： // 这里设置默认初始步骤StepContentFn('.starBox', "已申请:杨博:2020/2/3:已申请审批意见, 已立项:杨博:2020/5/5:已立项审批意见, 实施中:张三:2020/5 ...
Delphi控件安装之BAT（批处理）方式-FastReport
更多关于Delphi控件安装说明，请看这里。 针对FastReport安装的特别说明 其关联了TeeChart组件，所以须先安装TeeChart，并在FastReprt正确设置（tee.inc） 汉化乱码问题，是官方Res\frcc.exe文件导致（在转换Res目录下xml语言包文件为Delphi的 ...
Delphi中将ShowMessage,MessageDlg, MessageBox,InputBox,InputQuery及任意模态窗口相对主窗口(父窗口、母窗口）居中
Delphi中调用系统的一些Modal模态对话框(如ShowMessage,MessageDlg, Application.MessageBox,InputBox,InputQuery等），一般是屏幕居中，也有其他窗体的TForm.Position未定义主窗口居中poMainFormCenter，若 ...
FireMonkey3D之中国象棋程序设计（六）完善算法
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 这一章主要完善算法。本章目标： 实现开局库； 实现PVS(主要变例搜索)； 把根节点的搜索单独处理，增加搜索的随机性； 克服由长将引起的置换表的不稳定性。 6.1 实现开局库 开局库几乎是每个象棋程 ...
FireMonkey3D之中国象棋程序设计（五）置换表
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 这一章主要介绍置换表。本章目标： 实现置换表； 采用置换表走法、杀手走法等多种启发方式。 5.1 置换表 没有置换表，就称不上是完整的计算机博弈程序。在搜索过程中，某个搜索结果可能会出现这么多次，这 ...
FireMonkey3D之中国象棋程序设计（四）水平效应、检查重复局面
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 上一章我们的程序终于会走棋了，不过很多时候它很低能。由于水平线效应，任何变化都只搜索固定的深度。还有，有时它会长将。我们能做哪些改进呢？ 本章的目标： 用Zobrist校验码技术实现重复局面判定； ...
FireMonkey3D之中国象棋程序（三）初步搜索算法
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 这一章计划初步实现搜索算法，前两章基本上按照我自己对中国象棋的理解来设计程序，从这章开始参照象棋巫师算法。 本章目标： 用子力位置价值表实现局面评价函数； 用超出边界(Fail-Soft)的Alph ...
FireMonkey3D之中国象棋程序（二）制定规则
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 本章目标： 实现中国象棋规则 上一章我们设计了图形界面，可以开始轮流走棋了。但是，由于没有按中国象棋的规则进行限制，所有的棋子都可以在棋盘上随意走动，这章我们开始制定行棋规则。 2.1 记录局面 在 ...
FireMonkey3D之中国象棋程序（一）界面设计
声明：本程序设计参考象棋巫师源码（开发工具dephi 11，建议用delphi 10.3以上版本）。 本章目标： 制作一个可操作的图形界面 第一步我们设计图形界面，显示初始化棋局。效果如下图： 我们先做个3D象棋子控件（请看我的博客关于FireMonkey3D的文章：万能控件Mesh详解），源码如下 ...