2021年5月29日星期六

json crud api - delphi中间件

json crud api 产品 json crud api product.service.pas GET /products 获取产品列表GET /products/1 获取id=1的产品POST /products 新增一个产品PUT /products/1 更新一个id为1的产品PATCH

Delphi支持直接集成AAR - 红鱼儿

红鱼儿| 博客园_红鱼儿 |16:40:00

https://quality.embarcadero.com/browse/RSP-20000 Delphi 如果支持集成AAR，那对于集成第三方的SDK，将变的容易，可惜现在不支持，上面已经有人提出这样的需求，如果你也想一起去投票吧，让官方能重视并实现他。

2021年5月28日星期五

mormot json序列(还原) - delphi中间件

delphi中间件| 博客园_咏南中间件和开发框架 |13:05:00

该文被密码保护。

汉字乱码、加密后结果字符串不一致 - delphi中间件

delphi中间件| 博客园_咏南中间件和开发框架 |10:29:00

汉字乱码、加密后结果字符串不一致以上问题，常见于跨语言或跨操作系统平台。遇到这种问题，许多人不知所措。引子： procedure?TForm1.btn1Click(Sender:?TObject);var SERCRET:?string; signSrc:?string;begin SERCR

2021年5月26日星期三

Using Delphi’s Expressions Engine - 红鱼儿

红鱼儿| 博客园_红鱼儿 |07:02:00

https://blogs.embarcadero.com/using-delphis-expressions-engine/ Delphi RTL包含一个非常强大的表达式引擎，它虽然是Live Bindings体系结构的基础之一，但是可以用来处理表达式的单独引擎。这篇文章将对该主题做快速的入门。

2021年5月23日星期日

uniGUI 应用捕获按键 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |12:54:00

MainForm有个属性MonitoredKeys，用来处理捕获用户在浏览器中的按键。具体的用法：如下图：然后在Keys定义要捕获的按键，下图我定义一个按钮 27，即ESC键：之后，我们就可以MainForm的OnKeyDown事件中来根据用户的按键来写代码了： procedure TMai

CnWizards_1.2.0.1033_Unstable.exe

Cnpack| Cnpack.org |08:50:00

* [快捷键设置] 设置快捷键时进行冲突检测与提示。

2021年5月22日星期六

kbmMemTable.Undo用法 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |16:55:00

这是一个非常易用的方法，用来取消当前记录的操作。为了让Undo工作，首先要设置EnbaleVersioning=True。 q: TkbmMemTable; 假设我们有一个q内存表，然后增加一条记录，当前记录指向他，调用q.Undo，就会取消刚才增加的这条记录。

2021年5月20日星期四

CnWizards_1.2.0.1032_Unstable.exe

Cnpack| Cnpack.org |14:17:00

* [编辑器工具栏] 修正跳转至 implementation 可能出错的问题。

DPush重大利好消息！288元即可使用！ - 红鱼儿

红鱼儿| 博客园_红鱼儿 |13:46:00

DPush快速让你的App实现离线消息接收！

2021年5月19日星期三

没有从当前控件中捕获到字段而无法查询! - 红鱼儿

红鱼儿| 博客园_红鱼儿 |11:00:00

这是项目中的一个提示，今天同事又遇到这样的问题，在一个方法中，Lookup找不到字段，经查，原来下面这段代码，aDataSet就是nil的，所以aField也是nil. if TcxGridTableView(Components[i]).Columns[j].Properties is TcxPo

2021年5月17日星期一

msgpack和TParams互相转换 - delphi中间件

delphi中间件| 博客园_咏南中间件和开发框架 |20:02:00

msgpack和TParams互相转换 procedure msgpack2params(const Source: TMsgPack; Dest: TParams); var ps: TParams; p: TParam; i: Integer; begin ps := TParams.Creat

一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake，Delphi 版) - 红鱼儿

红鱼儿| 博客园_红鱼儿 |13:33:00

这是全能做的分布式自增ID算法，转贴过来，向他的分享表示感谢。原文地址：一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake，Delphi 版) 概述分布式系统中，有一些需要使用全局唯一ID的场景，这种时候为了防止ID冲突可以使用36位的UUID，但是UUID有一些...

测试delphi支持的线程锁的效率 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |13:19:00

TCriticalSection TMutex TSpinlock TMonitor 直接上图：运行结果如下：如代码如下： unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Clas

2021年5月16日星期日

Delphi App集成DPush - 红鱼儿