delphi 串口通信

串口通信具体还要结合设备是否自带dll动态库的问题,某些设备内部代读取是加密的,需要通过设备厂商提供的dll动态库里提供的函数进行读取,这里只能说一下串口的操作步骤,主要还是三步:
一,是初始化端口
注:设备提供的动态库一版都带有自己的初始化函数,delphi中对于端口初始化代码如下,
var
FileHand:integer;
port:string;//端口号,可以用字符赋值,例如直接赋值:'com1',如果定义为整型则对应1
begin
FileHand:=FileOpen(port,fmOpenWrite or fmShareDenyNone);
FileClose(FileHand);
if FileHand<=0 then
begin
showmessage('设备尚未就绪,请您检查设备是否连接或者电源是否打开!');
exit;
end;
AssignFile(PosPrintFile,Trim(port));
ReWrite(PosPrintFile);
end;
二,是对端口操作,具体设备得根据其动态库提供的函数来操作;
三,关闭端口;