现在要用socket发送一包数据
字节序号 含义 说明
1~4 起始符 固定字符‘H’，‘P’，‘S’，‘P’
5 查询控制符 0X02
6 命令 0Xff
新手，有没有哪位能够给个代码，谢谢。
var
arrBuf: array[1..6] of Byte;
ff:byte;
H:byte;
P:byte;
S:byte;
begin
arrBuf[1] :=H;
arrBuf[2] :=P;
arrBuf[3] :=S;
arrBuf[4] :=P;
arrBuf[5] :=02;
arrBuf[6] :=ff;
CS_PLC1_Port1.Socket.SendBuf(arrBuf, SizeOf(arrBuf))
我现在是这样发送的，不知道对不对。谢谢了。
------最佳解决方案--------------------------------------------------------
为什么不用TTcpClient和TTCPServer来去解决这个问题
------其他解决方案--------------------------------------------------------
。。。。等了两天都没人回答。郁闷。
------其他解决方案--------------------------------------------------------
已经解决了 用的ascall码做的
------其他解决方案--------------------------------------------------------
看看编码。。。