- 博客(0)
- 资源 (61)
- 收藏
- 关注
RSS订阅delphi的键盘和鼠标钩子
键盘和鼠标钩子
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
InstallKeyboardHook(nil);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
InstallMouseHook(nil);
end;
end.
2024-03-25
Git TortoiseGit
git 三件套，git、TortoiseGit-2.15.0.0-64bit、TortoiseGit-LanguagePack-2.15.0.0-64bit-zh_CN、有安装说明
2024-02-02
数组保存为二进制文件和逆过程
procedure TForm1.BitBtn1Click(Sender: TObject);
var
arr: TMyDoubleArray;
i: Integer;
begin
// 初始化数组
SetLength(arr, 5);
for i := 0 to Length(arr) - 1 do
arr[i] := i*100 + 1.11111;
// 保存数组为二进制文件
SaveArrayToBinaryFile('array.bin', arr);
// 从二进制文件加载数组
self.Memo1.Clear;
arr := LoadArrayFromBinaryFile('array.bin');
for i := 0 to Length(arr) - 1 do
begin
self.Memo1.Lines.Add( FloatToStrF(arr[i],ffNumber,5,4 ) );
end;
self.Memo1.Lines.Add('----')
2024-01-19
mqtt for delphi7
delphi 7下可用用的mqtt
//连接MQTT服务器
procedure TfrmMain.btnConnClick(Sender: TObject);
begin
MQTTClient.Port := StrToIntDef(edtPort.Text, 1883);
MQTTClient.Host := edtHost.Text;
MQTTClient.Activate(true);
btnClearClick(Sender); //清空计数器
end;
//断开MQTT服务器
procedure TfrmMain.btnDisConnClick(Sender: TObject);
begin
MQTTClient.Activate(false);
end;
//发布消息
procedure TfrmMain.btnPublishClick(Sender: TObject);
var
i : Integer;
begin
for i:=1 to edtLoop.Value do begin
MonLed.Brush.Color :
2024-01-14
delphi mqtt客户和服务端
delphi中使用的mqtt，有demo，不知道哪位大神搞的，xe11下整理下。MQTT 协议实现的消息订阅客户端、消息发布客户端、及消息服务器， Finish Retain
*)
(* Web Sites
http://www.alphaworks.ibm.com/tech/rsmb
http://www.mqtt.org
Permission to copy and display the MQ Telemetry Transport specification (the
"Specification"), in any medium without fee or royalty is hereby granted by Eurotech
and International Business Machines Corporation (IBM) (collectively, the "Authors"),
provided that you include the following on ALL copies of the Specification, or por
2024-01-06
使用vlc styles改变opendialog
delphi11中使用style，dialog中list和edit类不失效，使用style扩展类可以解决。
procedure TForm1.BitBtn10Click(Sender: TObject);
var
Dialog: TFileOpenDialog;
begin
UseLatestCommonDialogs := false;
Dialog := TFileOpenDialog.Create(nil);
Dialog.DefaultFolder:='c:\';
try
Dialog.Options := Dialog.Options + [fdoPickFolders]; // 设置对话框选项，只显示文件夹选项
if Dialog.Execute then
begin
// 用户选择了文件夹
ShowMessage(Dialog.FileName); // 显示所选文件夹路径
end;
finally
Dialog.Free;
end;
end;
procedure TForm1.
2024-01-04
delphi中使用FastScript执行pascal脚本的demo
FastScript独一无二的特性是能支持多种语言（PascalScript, C++Script, Jscript以及BasicScript），做脚本引擎好使。
uses
FastScript, FastScriptUtils, Windows;
procedure TForm1.Button1Click(Sender: TObject);
var
ScriptEngine: TfsScript;
DLLHandle: HMODULE;
AddFunc: function(a, b: Integer): Integer; stdcall;
begin
ScriptEngine := TfsScript.Create(nil);
try
// 加载 DLL
DLLHandle := LoadLibrary('YourDLL.dll');
if DLLHandle <> 0 then
begin
try
// 获取函数地址
@AddFunc := GetProcAddress(DLLHa
2024-01-04
OmniThreadLibrary学习笔记
OmniThreadLibrary,简称OTL，为使用多线程开发应用，提供一个强大而高效的开发方法，使开发者完全基于任务(Task）开发应用。什么是任务呢，个人理解，就是要在线程执行中的逻辑代码。下面来看看，官方Wiki中的说明：
在OTL中，开发者不用创建线程(Thread)而是任务，任务即可以新建的线程中执行，也可以在一个现有的线程中运行，还可以放到线程池(ThreadPool)中去运行。
利用CreateTask函数来创建一个任务，CreateTask有一个参数，可以是一个全局的过程，一个方法，一个TOmniWorker的子类的实例或者一个匿名方法（delphi 2009以后版本）。查看CreateTask代码，可以看到作者实现了四个CreateTask函数来支持上面的四种建立任务的方法。
2023-12-09
iocomp 访问 opc
使用BCB和DELPHI可以快速开发出OPC客户端程序，用于小型的监控系统。我们需要以下控件包：
iocomp For Delphi BCB 当前的版本为 3.0.2。它有多余60个控件，包括各种样式的文字，实时曲线控件，流向棒图,风闸状态图，opc数据写入等等。它可以设置所有控件的界面主题（类似与windows xp的主题桌面），它甚至提供了clx控件安装（我还没有在Linux下用过）。最重要的是，他的所有动态控件的各种属性可以直接绑定到opc上，可以不用写一行代码完成对opc数据的读出与写入。
2023-10-24
delphi安装及常用控件安装实录
1、 delphi 安装，管理身份运行安装程序，中间勾选两个“path添加到系统环境”，我安装按10.2后，安装11.2，截止今日最高版本为11.3.
2、 CnWizards 专家包，这个包必须安装，安装后会将delphi使用搞得非常丝滑，当前最新版本为“CnWizards_1.2.6.1126 ”下载后放置到“D:\ D11.0控件”，安装完成后进行下面3和4项的调整。
......
2023-05-07
Raize-KonopkaControls-280-7.0.8 for Delphi 11
Raize更名为KonopkaControls，此版本delphi11下可用，delphi10下应该也可以用，没试。
2023-04-26
功能完备的手机店进销存管理系统
1：手机及附件入库，销售，库存
2：手机及附件代理商铺货，退领，销售，库存
3：自动查询保价手机的范围，并能进行二次选定。
4：串号全程跟踪功能
5：强大的客户服务功能
6：强大的报表统计功能
7：附件利润采用先进先售的原则
8：自定义所有手机厂商，手机型号
9: 不同客户的登陆权限管理，做到商业数据的完全保密
10：无缝处理公司原进、销、存手机
2023-01-14
对同文件下的JPE和MP4进行播放。滑动鼠标可进行同文件夹下的文件的切换，适用于广告机或资料的演示。
对同文件下的JPE和MP4进行播放。滑动鼠标可进行同文件夹下的文件的切换，适用于广告机或资料的演示。
2022-06-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人