在VB中BYTE数组其实是一个指针,所以你在DELPHI中要定义一个指向数据的指针类型来发送。

解决方案 »

  1.   

    to koffman:
      小弟太笨还请大虾详细指点!
      

  2.   

    var
      RecBufferOne: OleVariant;     //串口信息接受缓冲区
      OutBufferOne: OleVariant;     //串口初始化信息缓冲区
    begin
      OutBufferOne:= VarArrayCreate([0, 40], varByte);
      RecBufferOne:= VarArrayCreate([0, 1024], varByte);
    end;
    //发送
      OutBufferOne[0]:=$0A;
      OUtBufferONe[1]:=$0D;
      OutBufferOne[2]:=$0;
      Mscomm.Output:=OutBufferOne;
    //接收
      RecBufferOne:=msComm.Input
    试试