***请教怎样用SPCOMM 给串口设备发送 ‘00MZ’+CHR(13)+CHR(10) ,具体代码怎么实现?

Question

***请教怎样用SPCOMM 给串口设备发送 ‘00MZ’+CHR(13)+CHR(10) ,具体代码怎么实现?

Answer 1

var v:olevariant;s:string;
    s:='00MZ';
    v[0]:=S[1];
    V[1]:=S[2];
    v[2]:=S[3];
    V[3]:=S[4];
    V[4]:=13;
    V[5]:=10;
  SPCOMM.PUT:=V

Answer 2

var 
  s : string;
begin
  s := '00MZ'+CHR(13)+CHR(10); 
  spcomm.WriteCommData (@s[1],Length (s));
end;

Answer 3

var
  b:array [0..5]of byte;
  
  b[0];=ord('0');
  b[1]:=ord('0');
  b[2]:=ord('M');
  b[3]:=ord('Z');
  b[4]:=$0d;
  b[5]:=$0a;  comm1.writecommdata(pchar(b),length(b));