- 博客(29)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 Delphi 端口判断
functionPortUsed(Port:Integer):Boolean;varsSocket:TSocket;Wsd:TWSAData;SockAddrIn:TSockAddrIn;beginifWSAStartup(2,Wsd)=0thenbeginsSocket:=Socket(AF_INET,SOCK_STREAM,0);Result:=True;tryif(sSocket<...
2022-03-05 21:59:00
356
原创 Windows 10 (Multiple Editions), Version 1607
Windows 10 (Multiple Editions), Version 1607 (Updated Jul 2016) (x64) - DVD (Chinese-Traditional) 详细信息 文件名ct_windows_10_multiple_editions_version_1607_updated_jul_2016_x64_dvd_9057209.isoSHA114AE38C6DF2993E7BE58897D73259392508F918F文件大小3.95GB发布时间2016-08
2022-02-12 15:08:45
1407
原创 unigui 项目每刷新一次就创建一次，如果出现恶意狂刷，很快就废了。如何解决？
unigui 项目每刷新一次就创建一次，如果出现恶意狂刷，很快就废了。谁知道这个如何解决？可以记录session的ip创建后无响应的session自动释放掉如果是内网的话 我记得有个属性 一个ip只允许一个session 那个勾上...
2022-02-12 13:12:18
582
转载 Delphi 制作自定义数据感知控件并装入包（dpk文件）中（与DBText类似的数据感知控件）
一、基础知识简介：1、包的命名介绍： 包的命名没有规则，但是建议遵守包的命名约定：包的命名与包的版本相关，包的名称前面几个字符通常表示作者或公司名，也可以是控件的一个描述词，后面紧跟的Std表示运行期包，Dsgn表示设计期包，然后是版本号。如：MyDataEditStd60，MyDataEditDsgn60。2、对象浏览器【Object Inspector】中一个属性感知一类控件的原理： 控件属性的感知只不过是将它的一个属性声明...
2022-01-12 10:33:47
805
原创 [HTML]js读取XML文件并解析
xml文件：test.xml<?xml version="1.0"?> <note> <to>George</to> <from>John</from> <heading>Reminder</heading> <body>Don't forget the meeting!</body> <lastname>Simth</lastna..
2022-01-07 15:23:49
592
原创 UNIGUI 如何用代码控制表格翻页
procedureTMainForm.UniButton1Click(Sender:TObject);beginwithUniDBGrid1doifWebOptions.PagedthenJSInterface.JSCall('pagingBar.movePrevious',[]);end;procedureTMainForm.UniButton2Click(Sender:TObject);beginwithUniDBGrid1do...
2021-12-09 08:32:55
274
原创 win10企业版如何改为专业版?
下载windows附件包，解压到C盘根目录https://pan.baidu.com/s/19Zyrav9sriS9nFyJsM8ydQ 提取码：gsp6管理员身份运行命令提示符，输入并回车运行以下命令：dism /NoRestart /online /add-package /packagepath:C:\Pro-LTSC\x64.cab注意：如果是32位，请改成x86.cab然后继续运行激活命令：slmgr.vbs –ipk VK7JG-NPHTM-C97
2021-10-28 10:40:26
4683
4
转载 【delphi】 JSON 操作详解（TJSONObject）
Delphi官方提供的对于JSON操作的单元是：system.JSON，delphi将JSON元素都定义为对象，注意是对象，既然是对象就需要创建，需要释放。具体如下：本文演示 Demo 下载：SZHN_JSON.rarDelphi JSON 常用对象编号 对象 说明1 TJSONValue 所有JSON类的祖先，包括以下锁有对象2 TJSONObject 一个JSON对象，对应一段JSON字符串3 TJSONPair 代表一个Key-Value...
2021-08-12 00:25:18
7418
原创 Delphi 中Format的字符串格式化使用说明(转)
Format('x=%d', [12]); //'x=12' //最普通Format('x=%3d', [12]); //'x= 12' //指定宽度Format('x=%f', [12.0]); //'x=12.00' //浮点数Format('x=%.3f', [12.0]); //'x=12.000' //指定小数Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置Format('x=%.5d', [12]); //'x=00012' //前面
2020-12-04 08:07:04
1150
原创 Delphi Debug时自动结束已开启的服务
在使用Delphi运行软件的过程中，有时候会发生软件已经在运行，但是又从编译器中再次运行，这个时候编译器就会编译失败。然后我们一般就得手动结束掉运行的软件，再在编译器中重新启动软件才行。那么有没有什么技巧可以在编译器中运行时自动结束掉已经运行的软件呢，答案是有的。首先我们打开project下的options,然后再找到下图所示的选项菜单看到箭头所指向的Commands嘛，在里面输入一下命令： taskkill /f /im $(OUTPUTFILENAME) 2>&1 .
2020-10-31 13:12:15
223
原创 UrlDownloadToFile的进度提示
Delphi编写下载程序：UrlDownloadToFile的进度提示urlmon.dll中有一个用于下载的API，MSDN中的定义如下：HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB);Delphi的UrlMon....
2020-09-14 23:19:32
596
原创 unigui Could not create node: 0, Err: 请求的操作需要提升。
-------------------------------------------------------解决办法：以管理员权限运行hyper_server.exe 即可。
2020-09-08 13:26:33
315
原创 定型车间秘籍宝典
印染厂定型车间秘籍宝典，能懂这些，走遍天下无敌手！2017-08-07 08:48定型的定义：定型是后整理的主要工序。针织物通过定型机的机械作用以及化学试剂的防缩、增软、增硬等作用，使织物达到一定的缩水、密度、手感，并能达到门幅整齐划一、线条平整、纹路清晰的外观效果。二、纱线粗细的表示方法：表示纱的粗细，有英制支数和公制支数之分。1、常用英制支数（Ne），表示每一英镑纱线里面含有多少个840码。如8S/1表示每一英镑纱线里面含有8个840码。2、公制支数（Nm）是指每克重量纱线的长.
2020-09-07 23:18:06
705
转载 关于UniGUI安装包的编译环境设置和运行部署
关于UniGUI安装包的编译环境设置和运行部署一、完成试用版的安装（详见你去下载的安装说明）二、编译2.1、编译库路径2.2、这个库路径千万别加：$(fmsoft)\uniGUI\Source\Core\PNGImage ,其下的pngimage.pas等几个单元有bug，反正也不用。否则死活通不过。2.3、重新编译分发BPL默认分发存取位置：C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl，下面的u*.bpl ,其中的
2020-07-26 19:36:56
617
原创 怎么在unigui中通过点击一个按钮打开一个新网页?
怎么在unigui中通过点击一个按钮打开一个新网页，而不是在uniurlframe中打开。----------------------------------------------------------------------------------------------------------unisession.addjs('window.open"网址")')
2020-07-26 19:32:57
980
原创 百度大脑OCR近期能力更新汇总
百度大脑OCR近期能力更新汇总1.OCR本地化：车牌离线SDK（安卓端）支持按设备授权了！并可直接线上购买2.新能力上线：汽车票、通行费发票、多卡证类型检测、仪器仪表盘读数识别上线邀测汽车票：https://ai.baidu.com/tech/ocr/bus_ticket通行费发票：https://ai.baidu.com/tech/ocr/toll_invoice多卡证类型检测：https://ai.baidu.com/tech/ocr/multi_card_classify仪器仪表盘读数
2020-07-16 00:17:40
257
原创 杭州英博电磁流量计通讯协议
通信协议1、通信接口RS485或RS232，波特率范围1200-9600。2、仪表接线端为A, B和COM。3、说明书表2中寄存器编号为寄存器地址。4、通信信息组成：地址码-功能码-数据段-CRC校验码,一条消息连续发送和接收，字符间隔不能大于一个字符，否则认为一条新消息开始或老消息结束。信息体由十六进制数组成。.5、数据定义：累积量为4字节十六进制定点数，瞬时量(包括温度压力等)为4字节浮点数。.6、通信命令： 功能码03-用来读取显示数据 发送 01 ;地...
2020-07-10 16:37:31
725
原创 杭州英博电磁流量计分体式
分体式电磁流量计 即传感器和转换器分开装于不同的地点，一般出现以下情况时选用分离型。 ⑴环境温度或流量计转换器表面受辐射温度超过60oC. ⑵管道震动较大的场合。 ⑶会对传感器的铝壳严重腐蚀的场合。 ⑷现场温度较大或有腐蚀性气体的场合。 ⑸流量计装在高空或并下调试不方便的场合。 订货时应注明传感器的转...
2020-07-10 16:35:36
305
原创 UniGUI 登录全屏 退出全屏
//全屏functionfullScreen(){varelement=document.documentElement;if(element.requestFullscreen){element.requestFullscreen();}elseif(element.msRequestFullscreen){element.msRequestFullscreen();}elseif(element....
2020-06-23 23:33:17
736
1
原创 delphi十六进制字符串hex转byte数组
procedure Hex2Png(str: string; out png: TPngObject);var stream: TMemoryStream;beginif not Assigned(png) then png := TPngObject.Create;stream := TMemoryStream.Create;stream.SetSize(Length(str) div 2);HexToBin(PChar(str), stream.Memory, stream...
2020-06-23 13:09:29
3176
原创 杭州金田电磁流量计数据解析之读出累计总量
金田电磁水表 读出累计总量主机命令格式 0 1 2 3 4 5 6 7 设备地址 功能代码 地址1 地址0 数据1 数据0 CRC CRC 1~99
2020-06-22 22:10:47
968
原创 杭州金田电磁转换器MODBUS通讯协议
杭州金田电磁转换器MODBUS通讯协议通讯协议采用标准MODBUS RTU通讯协议。仪表为从机。RTU消息帧定义数据通讯由主机发起，主机首先发送RTU消息帧，消息帧发送至少要以3.5个字符时间的停顿间隔开始。传输的第一个字节是设备地址。可以使用的传输字符是十六进制的0...9,A...F。所有的从设备不断侦测网络总线，包括停顿间隔时间内。当第一个地址字节接收到，每个设备都进行解码以判断是否发往自己的。在最后一个传输字符之后，一个至少3.5个字符时间的停顿标定了消息的结束。一个新的消息可在此停顿后开
2020-06-22 22:00:17
332
原创 Delphi Byte与数据类型之间的转换
procedure TForm1.FormCreate(Sender: TObject);typeTByteArr = array [0..1] of Byte;PByteArr = ^TByteArr;varBytes: TBytes;buf,buf2: TByteArr;cmd,n_10: string;Len: Integer;c: char;n_int:ushort;w:Word;{Ushort : word}begincmd:= 'F';...
2020-06-21 00:56:32
978
原创 ubuntu 各版本 镜像下载
官方下载地址（不推荐）https://www.ubuntu.com/download中科大源http://mirrors.ustc.edu.cn/ubuntu-releases阿里云开源镜像站http://mirrors.aliyun.com/ubuntu-releases兰州大学开源镜像站http://mirror.lzu.edu.cn/ubuntu-releases北京理工大学开源http://mirror.bit.edu.cn/ubuntu-releases浙.
2020-05-30 19:34:20
957
原创 Delphi 安装 LinuxPAServer
wgethttp://altd.embarcadero.com/releases/studio/20.0/PAServer/Release3/LinuxPAServer20.0.tar.gzsudoapt-getinstalljoewgetp7zip-fullcurlbuild-essentialzlib1g-devlibcurl4-gnutls-devsudofirewall-cmd--zone=public--add-port=64211/tcp--permanents...
2020-05-30 11:23:45
1261
HiPrint Demo
2020-09-15
多功能电表 DLT645-2007 规约解析 Delphi XE10.3
2020-05-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人