dbyoung的Delphi专栏

: 使用 scoop + vs2022 打造编译开源源代码系统

Windows scoop

作为一个程序员，追求程序的运行速度是正常的行为不过。那么 GPU、CPU、内存、文件流、磁盘，速度到底相差多少？今天整理了一下。1、GPU 在进行通用运算时，和 CPU 是一个数量级的。在进行重复劳动时，效率是 CPU 的几百倍了。 GPU，相当与 Windows 中的批处理。 执行一次动作没有什么速度优势。当你执行1000次、100000次，效率就体现出来了。 用 GPU 解码一张 JPEG 图片，和 CPU 相比，根本没有优势。 但如果你是解码 1000 张...

一：跨平台，这里的跨平台，指的是：Windows、Linux、MacOS、IOS、Andriod。二：跨平台，首先大家想到的是 Java。虽然众多平台都支持 Java，但 Java 效率低下。2D、3D游戏就没得完了。 .NET 现在跨平台了，但支持的设备、操作系统都不广。也不是个好的选择（虽然有 UnrealEngine 优秀的游戏引擎）。三：Flutter，谷歌开源跨平台UI框架。主要针对 Android、IOS 移动端。想跨所有平台，依然不是个好的选择。四：DirectX 只是 W..

我的 PBox 程序中，Dll 动态库窗体无法显示 Hint 提示信息。只有在鼠标放到主窗体上，并且主窗体成为激活窗体时，才会有 Hint 显示。我当然希望，无论鼠标在哪个窗体上面，都可以显示 Hint 提示信息。这好像是很多 Dll 窗体的通病。百度、Google，查询了一番，都没有找到现成的答案。只能自己看 Delphi 源码了。源码基于 Delphi 10.4.2。一：标准窗体 EXE 程序中的 Hint 流程； 第一阶段：创建 Hint 窗体； 每一个 EXE ...

类似于 Everything 的软件。当然比 Everything 的搜索速度快。和光速搜索速度差不多。在我的电脑上，1500万文件，检索需要 2 --- 3分钟。相当快了。支持查询文件，操作文件等操作。开源地址：https://github.com/dbyoung720/PBox/tree/master/module/uFiles...

QT 5.15.2 SDK FOR WINDOWS 编译成功发布FFMPEG ：https://code.qt.io/qt/qt5.git(5.15.2)编译时间：2021-09-11 （拉取最新代码）下载地址： X86 静态库：https://github.com/dbyoung720/PBox/tree/master/bin/Win32/plugins/QT5/static X86 动态库：https://github.com/dbyoung720/PBox/tree/master/...

学习 SIMD 指令时，发现一条 crc32 指令，一看就知道，肯定是用来进行 CRC 校验的。在网上搜索了一番，BAIDU 不出什么有用的信息。很多代码，连基本的 CRC32 校验代码都是错的。GOOGLE 搜索了一些，都是 C++ 的。但 C++ 都倾向与写算法，没有什么具体的示例。也不知道对不对。看来只好自己写来验证了。我不敢说我写的肯定正确，但我会经过慎重测试，确认没有问题后，才公布。CRC32 校验算法有很多种：CRC32 IEEE 802.3、CRC32 Castagnoli、CRC3

以删除 QQ 图标为例：procedure TForm1.btn1Click(Sender: TObject);var hToolbar : THandle; I, Count : Integer; hProcess : THandle; PID : THandle; hButton : THandle; Buffer : Pointer; tbn : TTBButton; intLen : SIZE_T; strLength: In

本人是数据库生手。这两则经验，也是在实际使用中发现的。网络上，好像也没有人提过。所以记录一下。避免后人入坑。经验1：数据库连接，最好使用计算机名称，不要使用 IP 地址。 如果有网络波动，IP 就会不通。数据库连接就会失败。 如果程序时时连着数据库，程序就很容易出错。使用计算机名称则不会。 网络波动，在实际现场环境中，经常出现。我也是被折腾近两个礼拜才发现这个问题的。经验2：最好不要使用 udl 文件来进行数据库连接。 ...

学习 SIMD 指令有一段时间了。真的痛苦（或许是我对指令不熟的缘故）。第一阶段：MMX一开始为了加快 CPU 的浮点运算能力，intel 搞了个MMX，看似强大。但用着用着就发现，它主要是针对浮点运算，对于整数运算有天生的不足。虽然可以通过浮点来模拟整数运算，性能也下降了。或者说提速不明显。或者说没有想象中的那么高速。算是第二阶段：SSE1/SSE2/SSE3/SSE4估计 intel 也知道了。又挤出了 SSE1/SSE2/SSE3/SSE4，这下整数指令、浮点指令、移位指令、等等指令都

1、WSL 1已经安装正常使用中 如果你没有安装使用WSL 1，就自行搜索安装WSL 1；2、虚拟平台安装 控制面板“程序和功能”，打开“启用或关闭 Windows 功能”：3、升级包 打开：https://docs.microsoft.com/en-us/windows/wsl/wsl2-kernel 下载：https://wslstorestorage.blob.core.windows.net/wslblob/wsl_update_x64.msi...

VCCMake：使用VC2017/VC2019CMake编译开源源代码开源地址 ：https://github.com/dbyoung720/VCCMake.git文件说明： Script\dlzip.cmd ：从网络上下载源代码压缩文件; Script\dlgit.cmd ：GIT 方式下载源代码; Script\dlsvn.cmd ：SVN 方式下载源...

今天用 VS2017 编译程序时，发现出错了。原来没有问题的呀。提示： warning MSB8038:已启用 Spectre 缓解，但找不到 Spectre 缓解库。验证 Visual Studio 工作负荷包括 Spectre 缓解库 fatal error LNK1104: 无法打开文件“LIBCMT.lib” fatal error LNK1104: 无法打开文件“libc...

在网上也搜索了一番，但都太麻烦，或者不太实用。只好自己摸索了。终于搞定。记录一下。宗旨： 一：尽量不修改原有 VC EXE 工程的源代码； 二：尽量具有通用性；VC 的窗体有两种：基于对话框(Dialog)的窗体、基于 MFC 的窗体。下面分情况说明。一：基于对话框(Dialog)的窗体 基于对话框(Dialog)的窗体，因为没有封装，所以.........

近日没啥事情，研究了一下 everything、光速搜索原理。花了一个礼拜时间，终于搞定。废话不多说，直接上代码：unit uMFTSearchFile;{ dbyoung@sina.com 2018-04-23}interfaceuses Windows, System.Classes, Generics.Collections;{ 获取磁盘所有文件列表 }functi...

《Delphi 版 everything、光速搜索代码》，文章中关于获取文件全路径的函数：GetFullFileName，有一个地方值得优化。就是有多个文件，它们可能属于同一个目录。譬如 System32 目录下有2000多个文件，GetFullFileName 还是进行了2000多次的查询，效率肯定是受影响的。先处理目录，获取目录全路径名称。然后文件只用查询一次，就知道它的父路径的全路径了。效率...

Delphi 如何获取当前函数的名称？原理是获取本函数的入口地址，EIP。在通过RTTI枚举类的所有成员函数名称，和成员函数入口地址。根据入口地址，找到成员函数名称。不用担心RTTI关闭。因为新版本的DELPHI是关不掉这些基础的RTTI信息。都被编译到程序中去了。所以可以使用RTTI的方式。本函数只能用于类的成员函数，不能用于非类的成员函数。unit untGetFuncName;inter...

现在很多SDK都提供了JAVA接口。但是没有Delphi接口。没有办法只好曲线救国。我们可以通过 JNI 的方式在 Delphi10.3 中调用 Java 的函数。第一步：创建 Java 虚拟机和运行环境procedure TForm1.FormCreate(Sender: TObject);var Options: array [0 .. 4] of JavaVMOption...

Delphi 如何调用 VC 的类的成员函数？比如下面 VC 的代码：class ITestObj{public: int MyAdd(int a, int b) { return a + b; } void ShowMSG() { ::Me...

uses IdIcmpClient;{ Delphi 版的 Ping }function DPingIP(const strIP: string; const intLinkTimeOut: Integer): Boolean;var icmp: TIdIcmpClient; rpss: TReplyStatus;begin icmp := TIdIcmpClient.Cr...

开发的过程中，经常要使用到 TListview，为了界面美观，需要自绘 TListview，下面就 TListview 自绘的三个方面，总结一下。 1、显示千万条数据记录； 2、表格自绘； 3、表头自绘； 1、显示千万条数据记录； A：OwnerData 设为 True, OwnerDraw 暂时设为 False...

一开始想让TListview 滚动条好看一点，进行自绘尝试。写着写着就发现，这应该是个通用的类。想想也是应该的。WINDOWS所有控件的滚动条原理都是一样的。本自绘滚动条类，是通用类，可针对所有WINDOWS控件(除了IE滚动条)。本自绘滚动条类，是替换了WINDOWS控件的原来的滚动条，用 TPanel 代替，在 TPanel 中进行自绘滚动条。代码如下：unit untFMS...

在网上找了好久，都没有找到好的办法，删除WINDOWS10中的微软拼音。自己摸索了一个小时，终于搞定了。打开注册表，找到：  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\CTF\TIP删除  {81d4e9c9-1d3b-41bc-9e6c-4b40bf79e35e} 这个键值就OK了。