Delphi串口通讯第三方控件,直接安装使用即可
{将链路层数据帧(16进制字符串) sData 发送给串口 返回成功与否}
function SendToCom(Com:TComm;sData:string):Boolean;
var
InfoNum : Integer;
i, j : integer;
CommFlg : boolean;
iTemp : Byte;
sBuf : Array[0..4096] of Byte;
begin
CommFlg := true;
InfoNum := Length(sData);
i := 1;
j := 0; //
while i<=InfoNum do
begin
iTemp := ToInt(sData[i])*16 + ToInt(sData[i+1]);
sBuf[j] := iTemp; // Chr( )
i := i+2;
j := j+1;
end;
if not com.writecommdata(@sBuf,InfoNum div 2) then
begin
CommFlg:=false;
end;
Result := CommFlg;
end;