delphi之动态库调用和串口通讯

最新推荐文章于 2021-03-16 12:08:09 发布

转载最新推荐文章于 2021-03-16 12:08:09 发布 · 189 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/feiyunaima/p/5987848.html

文章标签：

#c/c++

本文介绍了使用Spcomm控件实现串口通讯的方法，包括设置串口名称、波特率，以及通过函数发送字符串和接收数据的过程。此外，还提供了动态库调用的例子，演示了如何使用stdcall调用约定来打开、关闭设备及获取设备状态。

串口通讯：

Spcomm 控件属性：

CommName ：表示COM1，COM2等串口的名字；

BaudRate:设定波特率9600，4800等

StartComm

StopComm

函数WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word ): boolean

用于发送一个字符串到写线程，发送成功返回true,发送失败返回false, 执行此函数将立即得到返回值，发送操作随后行。　　　　

函数有两个参数，其中 pdatatowrite是要发送的字符串，dwsizeofdatatowrite 是发送的长度。

事件OnReceiveData : procedure (Sender: TObject;Buffer: Pointer;BufferLength: Word) of object　　　

当输入缓存有数据时将触发该事件，在这里可以对从串口收到的数据进行处理。Buffer中是收到的数据，bufferlength是收到的数据长度

动态库调用

 unit CMUPS_HB600DLL;

interface
type
    IcumpsHB600 = record

     end;

    function ZT_UPS_OpenDevice(pstrCom :pansichar; var m_nUPSHandle:pinteger;nFage:Integer=0):Integer;stdcall;  //打开设备
    function ZT_UPS_CloseDevice(nHandle:pInteger):Integer;stdcall;//关闭设备
    function ZT_UPS_GetStatus (nHandle:pInteger):Integer;stdcall; // 取得设备状态



implementation

  function ZT_UPS_OpenDevice; external 'ZT_UPS.dll';
  function ZT_UPS_CloseDevice; external 'ZT_UPS.dll';
  function ZT_UPS_GetStatus; external 'ZT_UPS.dll';



end.