- 博客(13)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 YOLOv3在win7环境下的训练
自己使用的，记录一下，怕忘记了。还记得上大学的时候就自己研究过使用BP神经网络完成手写识别，没想到这几年人工智能发展突飞猛进，并开源了很项目，封装好了让诸多码农享福，当初可是一行行写数学公式再转成代码的。。。0.修改yolo-obj.cfg,拷贝一份按网络教程修改几个参数。1.配置CFG文件train.txtdata/img/1.JPGdata/img/10.JPGdata/...
2018-12-05 13:26:32
824
原创 MQTT3.1.1delphi实现(xe7)跨平台
需要做一个APP控制设备的程序，思来想去放弃自己实现服务端，准备直接采用现成的MQTT服务端程序，自己只需要关心逻辑，传输的交个MQTT .网上能找到的delphi的版本是老外的基于一个三方网络库的，win32下面可以编译运行，需要修改部分AnsiString和WideString。测试的时候会掉线，此条可能是因为当时没细读协议，规定时间未发送心跳包，被服务端断开。改成Android死活没能编译通
2016-08-17 09:58:44
8548
2
原创 delphi的文件夹监控控件，直接封装成可视化的控件，拖一下即可代码。核心为：ReadDirectoryChangesW
网上的代码修改成控件形式了。代码如下：unit FolderMon;interfaceuses SysUtils , Classes , Windows ;type TFolderAction = ( faNew , faRemoved , faModified , faRenamedOld ,
2016-05-07 15:11:13
3222
原创 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
580
原创 delphi的TThread.CreateAnonymousThread导致界面卡死
delphi的TThread.CreateAnonymousThread调用tabcontrol页的未显示的tabsheet中的CheckListBox控件导致导致主界面卡死，具体情况不明白。CheckListBox的内容为空触发，有内容一切正常。procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateA
2016-02-27 20:54:39
5452
原创 使用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
1255
原创 TortoiseSVN使用备忘
1.服务端：建立文件夹，右键，TortoiseSVN->Create repository here->创建文件结构-》OK2.总工，客户端：当前项目文件，右键，TortoiseSVN->Import-》填写对应第一步创建的URL.-》ok3.开发机器，客户端：新建目录，右击checkout-》OK4.开发机器，开发完成，文件夹图标变成红色，右击-Commit-
2015-08-30 09:07:41
466
原创 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
605
原创 XE7上传文件中文乱码
自己折腾半天，编码各种测试，中文始终为问号。百度了一大把，解决方案很多，但能用的就这个了，说自己继承TIdMultiPartFormDataStream重写里面的onread方法，代码复制过来无法编译。如下代码 可以解决：IdMultiPartFormDataStream1.AddFormField('title',sTitle,'UTF-8').ContentTransfer:='8bit'
2015-07-02 22:29:19
1138
原创 delphi xe7安卓sdk安装
1.挂上VPN。。。得和谐2.开始菜单。点击它。3.不出意外出现窗体：选中需要更新的，Install 17 packages,进入许可页面4.许可页面点击Install 开始漫长等待
2015-05-26 12:51:22
2605
原创 euc-kr编码中文下乱码解决方案，idhttp
sStream:=TStringStream.Create('',51949);就一句话，你懂的。
2015-03-04 22:10:01
3762
1
原创 IdHTTPServer完成websocket服务端编写
利用delphi的idhttpserver控件来做websocket的服务端。主要是握手过程。代码如下，后面的通讯还未实现。实现了再发代码。握手代码如下。procedure TfWebSocket.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdH
2015-02-12 21:44:09
6529
1
delphiXE7屏幕监视.rar
2019-09-08
基于Delphi的MQTT协议实现(使用INDY无三方控件)
2016-09-04
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人