- 博客(14)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 有人DTU使用MQTT协议控制Modbus协议的下位机-含数据库
如此设置，则下位机的数据将定时上传到我们的1.pas接口，此处可以做数据入库操作，供其他业务逻辑处理。正确设置波特率，进入配置状态，获取当前参数，修改参数，设置并保存所有参数。下载emqx-5.3.2-windows-amd64.zip。3，使用Webhook将消息提交到我们的web服务设置如下。mqtt客户端订阅设备状态，并发送控制命令。最后一个支持win的版本，解压后命令行安装。1.设置客户端认证，使用内置数据库。本文为备忘录，不做太多解释。服务器：win2018。二，服务端mqtt设置。
2025-04-04 17:17:28
181
原创 YOLOv3在win7环境下的训练
自己使用的，记录一下，怕忘记了。还记得上大学的时候就自己研究过使用BP神经网络完成手写识别，没想到这几年人工智能发展突飞猛进，并开源了很项目，封装好了让诸多码农享福，当初可是一行行写数学公式再转成代码的。。。0.修改yolo-obj.cfg,拷贝一份按网络教程修改几个参数。1.配置CFG文件train.txtdata/img/1.JPGdata/img/10.JPGdata/...
2018-12-05 13:26:32
884
原创 MQTT3.1.1delphi实现(xe7)跨平台
需要做一个APP控制设备的程序，思来想去放弃自己实现服务端，准备直接采用现成的MQTT服务端程序，自己只需要关心逻辑，传输的交个MQTT .网上能找到的delphi的版本是老外的基于一个三方网络库的，win32下面可以编译运行，需要修改部分AnsiString和WideString。测试的时候会掉线，此条可能是因为当时没细读协议，规定时间未发送心跳包，被服务端断开。改成Android死活没能编译通
2016-08-17 09:58:44
8996
2
原创 delphi的文件夹监控控件，直接封装成可视化的控件，拖一下即可代码。核心为：ReadDirectoryChangesW
网上的代码修改成控件形式了。代码如下：unit FolderMon;interfaceuses SysUtils , Classes , Windows ;type TFolderAction = ( faNew , faRemoved , faModified , faRenamedOld ,
2016-05-07 15:11:13
3386
原创 delphi实现js的获取时间，兼容各系统。
function GetJSTime:string;var i:Int64;begin //StrToDateTime('1970/01/01 08:00:00') i:=MilliSecondsBetween(EncodeDateTime(1970, 1, 1, 8, 0, 0, 0), Now()); Result:=IntToStr(i);end;
2016-03-20 18:39:39
624
原创 delphi的TThread.CreateAnonymousThread导致界面卡死
delphi的TThread.CreateAnonymousThread调用tabcontrol页的未显示的tabsheet中的CheckListBox控件导致导致主界面卡死，具体情况不明白。CheckListBox的内容为空触发，有内容一切正常。procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateA
2016-02-27 20:54:39
5592
原创 使用THashedStringList管理结构体数据()
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,System.IniFiles, Vcl.StdCtrls;t
2015-09-02 23:54:50
1313
原创 TortoiseSVN使用备忘
1.服务端：建立文件夹，右键，TortoiseSVN->Create repository here->创建文件结构-》OK2.总工，客户端：当前项目文件，右键，TortoiseSVN->Import-》填写对应第一步创建的URL.-》ok3.开发机器，客户端：新建目录，右击checkout-》OK4.开发机器，开发完成，文件夹图标变成红色，右击-Commit-
2015-08-30 09:07:41
507
原创 delphi编码
437: lpCPInfo.CodePageName := 'Latin-US (DOS)'; // Do not localize 850: lpCPInfo.CodePageName := 'Western (DOS Latin 1)'; // Do not localize 874: lpCPInfo.
2015-07-21 10:37:25
667
原创 XE7上传文件中文乱码
自己折腾半天，编码各种测试，中文始终为问号。百度了一大把，解决方案很多，但能用的就这个了，说自己继承TIdMultiPartFormDataStream重写里面的onread方法，代码复制过来无法编译。如下代码 可以解决：IdMultiPartFormDataStream1.AddFormField('title',sTitle,'UTF-8').ContentTransfer:='8bit'
2015-07-02 22:29:19
1224
原创 delphi xe7安卓sdk安装
1.挂上VPN。。。得和谐2.开始菜单。点击它。3.不出意外出现窗体：选中需要更新的，Install 17 packages,进入许可页面4.许可页面点击Install 开始漫长等待
2015-05-26 12:51:22
2755
原创 euc-kr编码中文下乱码解决方案，idhttp
sStream:=TStringStream.Create('',51949);就一句话，你懂的。
2015-03-04 22:10:01
3914
1
原创 IdHTTPServer完成websocket服务端编写
利用delphi的idhttpserver控件来做websocket的服务端。主要是握手过程。代码如下，后面的通讯还未实现。实现了再发代码。握手代码如下。procedure TfWebSocket.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdH
2015-02-12 21:44:09
6662
1
delphiXE7屏幕监视.rar
2019-09-08
基于Delphi的MQTT协议实现(使用INDY无三方控件)
2016-09-04
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人