BlueStorm的博客

帮助Delphi初学者学会使用Frame编程

算法参考自： 计算圆周率Pi(π)值，精确到小数点后10000位 - 圆周率10000位 - C++ 爱好者分别以Julia和Delphi语言写的算法如下面所示。在一台10年的老电脑（CPU是E31230v2)测试，计算1万位的Pi值，Julia算法耗时4.87秒，Delphi算法耗时12.3秒。作为比较，原作者的C++Builder算法耗时8.6秒。#Julia语言function CalcPi() ARRSIZE = 10100 DISPCNT = 100...

本程序(uPrimes)的算法是从Julia语言的Primes软件包算法转换过来，能实现1秒内找出0到1亿范围内的所有质数，这是编译为64bit的测试结果， 如果编译为32bit的话稍慢些。 常用的找质数的方法如uPrimesSimple单元所示，方法很简单，但0到1亿范围内找出所有的质数要超过7秒，性能上与前者相比，有7倍差距。unit uPrimes;interfaceuses SysUtils, Math;type TIntArray = arra...

unit uMain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;type TForm1 = class(TForm) RichEditResult: ...

【下面的车流量，指的是在单位时间里高速公路的单向车流量，如5.3辆/秒等】V1是进入堵塞区的车流量；V2是离开堵塞区的车流量T1是各种原因导致堵塞出现的时间点(假定车无法继续前进)；T2是堵塞原因解除交通恢复的时间点Tx是某车进入堵塞区的时间点；Ty是该车离开堵塞区的时间点；Tz是堵塞区清空的时间点下面，我们来计算一下3个东西：堵塞区在某个时间点有几辆车？该车脱离堵塞区需要多长时间？堵塞区清空需要多长的时间？（1）交通开始恢复后，在某个时间点T堵塞区内车辆数车辆数 = V1*

HCNetSDK.pas由于太大，无法在这里粘贴，请到​​​​​​下列地址下载盒子论坛 v2.1http://bbs.2ccc.com/topic.asp?topicid=606222unit uMain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ...

说明：近期发现某个电信运营商上网宽带的DNS服务的一个问题：DNS查询频率有限制。如果只是在家庭里面使用上网宽带，应该没有问题，但如果在单位里面使用，使用人数较多时，DNS查询频率会大于限制的频率，造成上网卡顿的问题。但遇到上网卡顿，但Ping又正常时，可以用此程序检查上网线路的DNS性能。需用上网线路所用的DNS服务器的ip地址替换上图中的DNS服务器ip地址。让查询次数达到1万次以上，看看有没有超时的现象。如果超时较多，就应该联系运营商解决了。uMain.pas:unit uMai...

以前播放报警声，我都是使用Windows.Beep(Freq, Duration)，但这个Beep比较死板，播放声音时程序时停止的，知道声音播放完毕；另外两个连续的Beep，实际上属于

R0R0叫基本再生数，是指一个带病毒的人能够传染多少人。新冠病毒的R0测算有高有低，平均大概是3，就是一个人能传3个人左右

function GetHardDiskID: String;const wbemFlagForwardOnly = $00000020;var iValue: LongWord; oEnum : IEnumvariant; FWbemObject : OLEVariant; FWbemObjectSet: OLEVariant; FWMIService : OLEVariant; FSWbemLocator : OLEVariant;begin; Resul.

较新版本的Delphi提供了Winapi.Security.Cryptography单元。unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Winapi.S

Unit1.pas：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;type TForm1 = class(TForm) Memo1: T...

unit uMainForm;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, uIcmp, uWinSock;type TMainForm = class(TForm...

说明： TJSONBuilder最多只允许存在一个实例，每次执行TJSONBuilder.Create时都会清除掉上一次创建的实例，程序关闭时也会自动清除最后创建的实例， 因此使用这个类不需要考虑内存释放的问题。使用示例：uses uJSONBuilder, System.JSON.Builders;procedure TForm1.ButtonShowClick(Sender: TObject);begin TJSONBuilder.Create .BeginO...

大华科技的SDK不支持Delphi，如果想用Delphi调用大华科技SDK里面的接口，需要先把其中C头文件转换成Delphi的pas文件。文件压缩包里面的两个文件(DHNetSDK.pas和DHConfigSDK.pas)是我用我自己编写的程序自动转换而成来Delphi版大华科技sdk接口文件，其中只有#if语句或宏函数等极为个别的地方使用手工做转换。 本人未对此两个文件做过完整的测试，仅供参考，如有问题欢迎留言 对应的大华科技SDK版本：1119451_General_NetSDK_C...

海康威视的SDK不支持Delphi，如果想用Delphi调用SDK里面的接口，需要先把其中C头文件转换成Delphi的pas文件HCNetSDK.h超过5万行，手工转换不但耗时，而且容易出错，而且出错了也难以发现，因此自行编写了一个转换程序来做转换，只有#if语句或宏函数等极为个别的地方使用手工做转换。我只使用了其中涉及录像机状态查询、回放等极为少数的功能，如有问题欢迎留言 对应的海康威视SDK版本：CH-HCNetSDKV6.1.4.6_build20191220_Win32 下列...