lazarus下串口通信

lazarus 

跨平台free pascal语言ide工具
http://www.fpccn.com/ 社区

下载ftp://freepascal.dfmk.hu/pub/lazarus/releases
https://sourceforge.net/projects/lazarus/files/
 

2021-2-22发布的2.0.12稳定版，2021-7-8发布的2.2rc1版本，最近在做串口工作，就网上搜了一些lazarus的串口代码

找到一个改进的atcom
https://www.cirmall.com/bbs/thread-31333-1-1.html
 http://sourceforge.net/projects/atcom/?source=directory
 跨平台，简单学习之后，提取其中收发代码做一个简单示例程序

默认lazarus的ide是分体式，想改成一体式：菜单 包-》安装卸载包-》卸载chmhelppkg 安装dock相关的3个，重启ide就是一体式了。

建一个工程 引入SdpoSerial文件夹，工程选项 -》编译器选项-》路径-》其他单元文件 填写 SdpoSerial
 工程查看器里引入文件 mcomutil.pas
 unit1.pas 文件上面引用 uses 里 增加 SdpoSerial,synaser, mcomutil, synautil
全局变量 var form1下面增加一行串口变量声明 ser: TSdpoSerial; 
窗体的create事件里列举串口（win下是读注册表实现的），创建ser
发送按钮里发数据
接收事件里处理接收数据
关闭窗体里关闭串口
一运行还行，一看exe文件好大，顺便优化下
工程菜单编译选项 链接，优化等级改为2 快速优化
工程菜单编译选项 调试，去掉调试信息选项
工程菜单编译选项 目标平台 ，操作系统选择 win32 
这下再看exe从19m多变为2m，这下可以了

完整代码 https://download.csdn.net/download/qiaozhangchi/21010091