[流控] ZFlowControler 设计基本思想说明

首先,说一下支持的流控种类: 基于时间分片的流控,限制每分钟允许发生多少次调用。这种情况下的流控,对一段时间内的速度控制,一般分成两种: 均一化流控:将速度均匀分布,比如说我们限制某个访问为每分钟1200次,那么程序控制粒度就是在每50ms,允许调用一次。 爆发式流控:同样是上面的要求,爆发式的流控会拿出一部分限额,尽

[教程]本用 System.Zip 从流中获取解压数据

【前言】 写这个教程的原因,是因为要实现下面的场景: 1、通过 THttpClient 从网络上下载压缩包到内存流中。 2、将内存流中的 ZIP 格式压缩数据中的特定扩展名文件,在内存中直接解压处理,而不是解压到磁盘,再加载。 【实现流程】 1、下载压缩包到内存流中,这个本身直接通过 THttpClient.Get 或

[教程] Delphi 自带异步模型详解

Delphi 在新版中引入了一个新的异步编程模型,一个新的接口 IAsyncResult 被包含在 System.Types 里。我们先来大概说下 Delphi 自己这个异步编程模型的思路: 1、异步编程的函数名,官方是以 BeginXXX打头,比如 BeginReceive、BeginWrite 等等 ,它们负责开始

[转]ESXi找回并重新挂载丢失的数据存储

文章来源:在下天锦 是在一张1TB的硬盘上安装了ESXi系统,并且默认建立了一个VMFS6的数据存储datastore1。开学后从家带到学校换到了另一台物理机上面,发现网络出现故障,Ping不通主机,随即尝试重置管理网络,不料将整个系统重置……网络是恢复了,能够进到Web Client,但是发现系统中的数据存储全部丢失

[教程]程序保存数据的防断电处理策略

虽然现代社会,电力供应没有那么紧张,但每年因为线路或计划检修等原因,正常和非断电的情况还是有的。另外,室内电源接触不良,掉落等因素也会出现异常断电的情况。如果在此时,恰好数据写入一半,就可能造成程序数据写入异常,下次程序启动时,如果调用这种数据就可能出现某些非预期的错误。 实际上解决这类问题,有一个简单的策略: 1、将

[付费]数据集内容输出 JSON 格式数据

嗯,这是一个试验性的收费产品,它是做为 TQJsonOutputChannel 的附属品存在的,信赖于 qjson_output_channel 单元,提供数据集转换为 JSON 数据内容的格式化输出支持。收费标准定为 200 元,含源码、示例和用法一对一指导。 【使用方法】 一如既往的简单,直接引用 qjson_da

【教程】一种远程控制电脑的方法和实践

【硬件准备】 支持网络唤醒(WOL)的电脑主机一台(笔记本还是台式机随意,使用有线连接,无线网卡),开启网络唤醒功能: 硬件设置:进入BIOS,将“Power Management Setup”中的“Wake Up On LAN”或“Resume by LAN”项设置为“Enable”或“On”,类似于这样,因为主板不

[教程]在 Deepin Linux 20.02 下使用英菲克M1BS三模蓝牙鼠标

直接在设备自带的设置里,选择蓝牙连接没有反应,需要手工操作: 1、打开终端,输入 sudo bluetoothctl 进入蓝牙控制台。 2、鼠标模式切换到蓝牙 5.0 模式(单按【模式切换键】切换到蓝牙 5.0 模式,然后长按 3 秒,看指示灯快闪后松开) 3、在蓝牙控制台,输入 devices,找到鼠标对应的设备Id

[教程]如果在 Delphi /C++ Builder 中调试单元初始化时的错误

有时候,我们程序在进入 Main 函数入口前,就开始报错,比如 Acesss volation at XXX read at yyyy 一类的错误。这类错误一般是由于单元之间的引用关系和初始化顺序不一致造成的。比如单元 A 的初始化代码调用了单元 B 的函数,但单元 B 此时尚未初始化,所以其使用到的一些全局或静态变量

[教程]VCL 中 TScrollBox 的一处 Bug 简单处理

TScrollBox 如果在设计时,滚动条的位置没有初始化到最开始的位置,或者不小心动了,可能就会存在特定的元素显示不出来的情况,此时,如果不考虑修改 VCL 源码,可以调用 ScrollInView 将最边缘的元素滚动到可视区,然后再设置对应滚动条的位置为 0 来解决。当然最根本的还是官方修复。

[分享]一种将 Delphi 组件属性信息保存到JSON的方法

此代码支持 Delphi 2007+,使用 QJSON 做为序列化的支持库。你可以自己改为使用其它的 JSON库(注:此文写法未完善,仅为示意)。 使用示例: 如上面的示例,由于写成了 class helper,所以保存到 Json 里,直接调用组件实例的 SaveToJson 就可以了,而从 Json 中恢复则直接调

Linux 下使用虚拟系统管理器创建 Windows 的 KVM 虚拟机

1、使用 raw 还是 qcow2 的问题:如果不考虑快照的问题,raw 性能更好。如果你对快照啥的很关心,就需要选择 qcow2。 2、客户机驱动:优先使用 virt-io,但显卡目前如果客户机操作系统是 Windows,只能选择 qxl (驱动暂时不支持)。驱动下载地址(使用迅雷下载,国外网址,下载速度慢):官方最

[FMX]放大二维码显示

在以前的文章中,我介绍过如何在 FMX 中绘制二维码,但没有给出放大显示的代码,这里给出下,方便大家使用。 然后直接调用 ScaleQRBitmap 就可以了。注意 ASize 的计算应考虑进入 SceneScale 的值。参考代码如下: 程序运行效果:

[教程]基于 RTTI 创建特定类型的实例

在 Delphi 人群中,有些人总想通过名称,然后动态创建指定类的实例而不得其门而入,不得不将类型先注册,然后再回调解决这个问题。实际上,通过 RTTI 来创建实例是有办法的。下面是基本的步骤: 1、找到类型对应的 TRttiType 信息。这里有几个方法: GetType 方法,这个需要知道目标类型的 TClass/

使用 ProcessExplorer 查看 Delphi/C++ Builder 的线程调用栈

ProcessExplorer 可以查看运行中进程的各种信息,包括特定线程的堆栈信息。这在我们程序出现死循环或者无响应时等问题时,除了在客户机器上重装一套环境或Remote Debugger 之外(吐槽下 PAServer/RemoteDebugger 在 Windows 下真心不太好用),另外一种在客户机器上能够找到

[QHttpRequest]使用自定义 DNS 来应对 DNS 劫持

为了保证业务的稳定性,避免在由于用户的 DNS 服务器返回错误的 IP 地址,造成程序无法正常运行的情况,QHttpRequest 新增了一个 OnDnsLookup 事件,以便让用户自己处理 DNS 请求。 举个例子:我们要获取 http://blog.qdac.cc 的内容,如果我们指定了 OnDnsLookup

[教程]栈上接口对象在匿名函数中的使用时请注意内存泄露问题

首先看下面的示例代码: 一般来说,我们认为 Delphi 自己管理接口的引用计数,所以不太会注意,但是,在上面的示例中,由于要保证 ATest 在匿名函数中的可用性,Delphi 并没有在函数退出时,减少 ATest 的引用计数,而在匿名函数执行完成后,同样也并没有减少计数,这就造成了 ATest 实例的引用计数没有减

[教程]使用 Delphi 获取当前操作系统的时区

嗯,这段代码实际上已经集成到 QString 单元了,所以你可以直接调用 GetTimezone 函数来获得时区了。用 GetTimezoneText 可以获得时区的字符串表示。 代码不长,用起来也简单,它实际上返回的时区对应的分钟数,比如北京时间是480,也就是 8 小时,其它依次类推。使用 GetTimezonTe