MQTT最近很热门，除了自己搭建服务，我们还可以用的就第三方的服务了。 以下是几个可用的站点。 Server Broker Port Websocket iot.eclipse.org Mosquitto 1883 / 8883 n/a broker.hivemq.com HiveMQ 1883 8000 test.mosquitto.org Mosquitto 1883 / 8883 / 8884 8080 / 8081 test.mosca.io mosca 1883 80 broker.m
分类： Delphi
[控件]unigui移动端下Unidatepicker时间显示解决方案
用unigui搞移动端，需求上需要采用日期，但是默认是不支持时间选择的，怎么办？ 只能改造了@~@。 1.下载以下JS文件放到程序files目录下。 https://raw.githubusercontent.com/tomalex0/senchatouch-datetimepickerv2/master/ux/DateTime.js https://raw.githubusercontent.com/tomalex0/senchatouch-datetimepickerv2/master/ux
[工程]程序出现Runtime Error 216解决方案
程序退出弹出 runtime error 216 at XXXXXX。 runtime error 216是General protection fault， 程序结束的时候出现此错误，一般是资源释放顺序上出了问题， 诸如访问已经释放的对象实例子、已经关闭的文件等等。
[控件]DevExpress删除TreeList已选择的节点
来源于研究分享，有能起到帮助的就默默的感谢下他吧哈！ // 删除TreeList已选择的节点 procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList); overload; procedure TreeListDeleteChecked(ANode: TcxTreeListNode); overload; procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList);
[代码]个人所得税过程
个人所得税过程 procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数，分别表示应纳税总额，区间应纳税总额，累加纳税额 var sum, para, tax: single; begin //取得应纳税总额，并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函数进行从字符串到浮点型的转化 sum:=sum-800; tax:=0; //如果满足条件才执行相应代码 if sum>2000
[代码]百钱买百鸡过程
百钱买百鸡过程。 procedure TForm1.Button1Click(Sender: TObject); var hen, cock, chick: integer; answer: string; begin for cock:=0 to 20 do for hen:=0 to 33 do begin chick:=100-hen-cock;//鸡雏的数目 if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数 if cock*5+hen*3+chick div 3
[代码]生成九九表的过程
九九乘法表的一个过程。 procedure nine(n:integer); var i, j: integer; line: string; begin for i:=1 to n do begin //生成第i行 line:=''; //第i行共有i句口诀 for j:=1 to i do begin line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+'