战石软件网

《Delphi 10.3.X智能照明控制上位机软件》源码下载

本站下载卷优惠价
1000.00
0.2折 原价:¥50000.00
  • 库存
  • 销量
  • 85
  • 0
担保交易,安全保证,有问题不解决可申请退款。
  • 分享

战石软件网

  • 信誉:
  • 掌柜:
  • CTO
  • 宝贝:
  • 100件
  • 创店:
  • 2020-07-10
  • 联系:
  • 描述
    5.00
  • 发货
    5.00
  • 售后
    5.00
  • 操作系统:
  • Windows

《Delphi 10.3.X智能照明控制上位机软件》源码下载

本源码是深圳XX智能科技公司(该公司正常运营中)的智能网关和开关模块、调光模块、人体感应传感器、触摸屏、按键面板等智能照明设备工程项目的配置、控制系统软件,已经应用于实际商业生产环境中。

开发工具:Delphi 10.3.X 

组件(所有组件源码一起赠送):SPCOMM、UniDac、Raize、TMS Component Pack 

本源码是您学习参考Delphi串口通信上位机开发的最佳商业软件代码。

主要技术功能:

1、SPComm串口通信控件的商业应用,使用队列处TQueue理接收到的数据帧;

接收处理代码片段:


Qu: TQueue<String>;//队列


procedure TFormSystemTools.SpCom2ReceiveData(Sender: TObject; Buffer: Pointer;

  BufferLength: Word);   //串口负责接收数据

.....................................................

  Length_receiveData:= BufferLength;  //每次收到的字节总数

  Finalize(receiveData);//清零,继续接收数据包


  move(Buffer^, PChar((@receiveData)^), BufferLength);

    Setlength(message_,bufferlength);

    for i:=0 to bufferlength-1 do  //遍历每个收到的字节Byte

    begin

      message_[i] := IntToHex(receiveData[i], 2);  //16进制字符串

      FormchangLight_kaiguan.qu.Enqueue(message_[i]);//将收到的消息加入到队列中 从队列存取数据


    end;

........................................

2、AdvStringGrid配合UniDac处理Sqlite数据库(处理各种坑的技巧);

3、图片以点阵方式写入触摸屏;

4、AdvStringGrid网格中添加控制按钮、编辑下拉框、编辑网格及时写入数据库等技巧;

5、AdvStringGrid网格中显示SQLite数据库表字段英文内容以中文显示的技巧

6、进制转换技巧

  netid_s:= InttoHex(SystemTools_netid) ;//主机ID //10进制整数转换为16进制,例如:85 转换为55

  netid_b:= StrToInt('$' + netid_s);  //十六进字符串制保存到byte

  slave_s:= InttoHex(deceive_id.ToInteger()) ;//输出模块地址 //10进制整数转换为16进制,例如:85 转换为55

  slave_b:= StrToInt('$' + slave_s);  //十六进字符串制保存到byte

  loop_status_s:= InttoHex(Round(tk_13.Position*2.5));

  loop_status_b:= StrToInt('$' + loop_status_s);  //十六进字符串制保存到byte

7、串口控件发送数据

    FormSystemTools.SpCom2.WriteCommData(@data[0],length(data)); //正确的串口发送方式

//另一种发送方式

    for i := 0 to 6 do   //依次发送每条数据 fe 55 05 02 01 00 53

    begin

      FormSystemTools.SpCom2.WriteCommData(@data[i],1); //串口每次发送数据一个元素例如:FE

      sleep(2);//必须加延时否则出错

    end; 

8、数据帧校验

function TProtocol.data_Crc(data: TBytes): TBytes;//冗余校验,返回byte[]

var

  index:integer;

  temp :integer;//校验字节临时变量

begin

  temp := 0;

  for index := 1 to Length(data)-2 do 

  begin

     temp:= temp xor data[index];

  end;

  data[Length(data) - 1] := StrToInt('$' + InttoHex(temp));


  result:=Data;


end;

9、动态数组清零

procedure TFormSystemTools.DynArraySetZero(var A);

var

P: PLongint; //占用4个字节,正好符合 32 位内存排列

begin

P := PLongint(A); // 指向 A 的地址

Dec(P); //P 地址偏移量是 sizeof(A),指向了数组长度

P^ := 0; // 长度清空

Dec(P); // 指向引用计数

P^ := 0; //计数清空。

end;

10、配置按键面板开关、区域、场景等;

11、70多个窗体10万+行代码;

12、100%源码,保证编译成功,可QQ远程指导编译;

06.JPG


  • 商品问答
  • 交易规则

交易流程


code_flow1.png

交易周期

1、服务的交易周期由双方商定,在买家下单后,商家确认同意订单的同时,给出服务交易(完成)周期;

2、若上述交易周期双方依然无法完成交易,任意一方可发起追加周期(1~60天)的请求,对方同意即可延长。

注意事项

1、战石软件网会对双方交易的过程及交易商品的快照进行永久存档,以确保交易的真实、有效、安全!

2、战石软件网无法对如“永久包更新”、“永久技术支持”等类似交易之后的商家承诺做担保,请买家自行鉴别;

3、在没有"无任何正当退款依据"的前提下,商品写有"一旦售出,概不支持退款"等类似的声明,视为无效声明;

4、在未拍下前,双方在QQ上所商定的交易内容,亦可成为纠纷评判依据(商定与描述冲突时,商定为准);

5、因聊天记录可作为纠纷评判依据,故双方联系时,只与对方在战石软件网上所留的QQ、手机号沟通,以防对方不承认自我承诺。

6、虽然交易产生纠纷的几率很小,但一定要保留如聊天记录、手机短信等这样的重要信息,以防产生纠纷时便于战石软件网介入快速处理。

7、战石软件网由济南战石电子商务有限公司运营,本公司拥有众多熟悉Java、C#、Delphi、C/C++、PHP、Python、Unity3D等编程语言和开发工具的程序员,此我公司完全具有鉴定交易源码商品的能力和权利,交易双方如有纠纷,必须由买方将交易源码商品发给我司专业开发工程师QQ:81709989进行鉴定,并服从我司开发工程师的专业裁定。

郑重声明

1、战石软件网作为第三方中介平台,依据交易合同(商品描述、交易前商定的内容)来保障交易的安全及买卖双方的权益;

2、非平台线上交易的项目,出现任何后果均与战石软件网无关;无论卖家以何理由要求线下交易的,请联系管理举报。

网站首页  |   关于我们  |   广告合作  |   联系我们  |   隐私条款  |   免责声明  |  
免责声明:本网站所有源码/组件/插件/模板/图书/光盘/软件/文档/论文/文章/图片等全部资源,均来自网络转载,只限于学习研究用途,本网站不对任何资源负法律责任。如有侵犯您的版权,请及时联系我司删除!
CopyRight (C) 2016-2020 战石软件网 | 济南战石电子商务有限公司 | 鲁ICP备19063795号-3
服务热线

0531-66900120

扫一扫进手机版

战石软件论坛