技术分享

Delphi中 TTask的用法

---

TTask 类是 System.Threading.TTask 命名空间下的一个类，用于实现异步编程。TTask 提供了一种简单而强大的方式来执行并发任务，而不需要深入处理线程的低级细节。一、简介TTask 类允许你以异步方式执行代码，并且提供了一些高级功能，如任务的等待、取消和结果返回。它基于 System. ...

---

阅读全文

2025-02-02 王守红 0 条评论 208 次浏览

技术分享

深入理解 Delphi TFDQuery 的 FetchOptions.RecsSkip 和 FetchOptions.RecsMax 属性

---

在 Delphi 开发中，处理数据库数据时，经常会遇到需要展示部分数据的情况，也就是分页操作。通常我们都是通过SQL的分页语句进行分页。但是TFDQuery组件的FetchOptions.RecsSkip和FetchOptions.RecsMax属性为我们实现了另一种分页的解决方案，且无需关心不同数据库的分页 ...

---

阅读全文

2025-02-02 王守红 0 条评论 200 次浏览

技术分享

CentOS 8安装httpd失败解决办法

---

今天安装pgadmin4的过程中发生错误，提示sudo yum install pgadmin4 上次元数据过期检查：0:02:37 前，执行于 2024年02月21日 星期三 17时55分39秒。 错误： 问题: package pgadmin4-8.3-1.el8.noarch from pgAdmin4 ...

---

阅读全文

2024-02-21 王守红 0 条评论 2863 次浏览

技术分享个人备忘

Delphi/Lazarus使用mormot2解析JSON

---

mormot2生成JSON和解析JSON的功能非常强大，也非常灵活，灵活的结果就是有时候有点乱。下面总结了最简单的一种使用方法要解析的JSON如下，基本涉及了要解析的所有类型。JsonContent:=' { "head": { "jzDate": ...

---

阅读全文

2024-02-04 王守红 0 条评论 1541 次浏览

技术分享

Delphi实现字符串Base64编码解码（解决中文乱码）

---

网上实现Base64编码和界面的文章很多，之所以单独写出来是因为这次对接一个老接口的时候，对方的xml里面有中文，我这边接收之后用网上搜到的那些常规的Base64解码中文部分都是乱码，经过多轮测试发现使用NativeXml中的DecodeBase64可以解决该问题。Unit NativeXml functio ...

---

阅读全文

2023-04-13 王守红 0 条评论 1664 次浏览

技术分享

用Python实现PDF转图片

---

首先需要安装四个库文件pip install PyPDF2 pip install pymupdf pip install pdf2image pip install wand 然后具体编码如下：# -*- coding:utf-8 -*- import fitz import os def pdf2img ...

---

阅读全文

2022-12-16 王守红 0 条评论 2117 次浏览

技术分享

使用mORMot访问Postgresql、MySQL、Oracle等数据库

---

首先说一下直接访问Postgresql数据库的方法，单元需引用SynCommons,SynDB,SynDBPostgres。连接数据库代码示例：var Conn: TSQLDBConnection; Query: TSQLDBStatement; Props: TSQLDBPostgresConne ...

---

阅读全文

2022-12-03 王守红 0 条评论 4780 次浏览

技术分享

Lazarus和Delphi使用自带的TrayIcon组件实现最小化后显示在状态栏

---

首先在Form上放置一个TTrayIcon的控件，Lazarus的话还需要应用windows单元(Linux需要引用lclintf单元)，记得给TrayIcon的Icon指定一个图标。其它废话不多说具体核心代码如下：procedure TForm1.TrayIcon1DblClick(Sender: TObje ...

---

阅读全文

2022-03-30 王守红 0 条评论 10105 次浏览

技术分享个人备忘

Lazarus及Delphi中对Frame进行初始化

---

因为Lazarus及Delphi中对Frame都没有提供构造器和解析器，如果想在Frame创建时初始化一些东西，可以override frame的以下两个方法：public { Public declarations } ParentForm :TForm; procedure Afte ...

---

阅读全文

2022-02-13 王守红 0 条评论 5828 次浏览

技术分享个人备忘

Postgresql创建外部表时增加主键

---

Postgresql创建外部表时如果外部表(FOREIGN TABLE)没有主键就无法对外部表进行修改和删除操作，只能查询。所以如果要引用的外部表有主键的话创建的时候一定要把相应的主键也创建上。 示例如下：CREATE FOREIGN TABLE public.usersinfo( userno cha ...

---

阅读全文

2021-12-31 王守红 0 条评论 3855 次浏览