TLazSerial是一个跨平台的Lazarus串行通讯控件,非常好用。
一、下载地址:
TLazSerial控件最新版本是0.2,下面是下载地址:
https://github.com/JurassicPork/TLazSerial
二、安装
1 下载后,把包解压至下面的文件夹
/usr/lib/lazarus/1.8.4/components/LazSerial
2 用Lazarus开发环境打开LazSerialPort.lpk,编译会成功,但在安装时不通过,提示Lazcontroldsgn.ppu找不到,咋办?看下一步。
3 打开/usr/lib/lazarus/1.8.4/components/lazcontrols/design/Lazcontroldsgn.lpk,重新编译即可安装成功。
三、示例
下面的程序通过串口发送1、3控制1号灯打开与关闭,发送2、4控制2号灯打开和关闭。
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons,
StdCtrls, ExtCtrls, LazSerial;
type
{ TMainForm }
TMainForm = class(TForm)
BtnOpenLed2: TBitBtn;
BtnCloseLed2: TBitBtn;
BtnCloseLed1: TBitBtn;
BtnOpenLed1: TBitBtn;
BtnOpenSerial: TButton;
ComboBoxDevice: TComboBox;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
ImageLedClose: TImage;
ImageLedOpen: TImage