编译时错误: [Error] SOptions.pas(247): Incompatible types: 'OleVariant' and 'Array' 怎么办?
你在发送之前先这样转换一下试试 procedure TForm1.Button1Click(Sender: TObject); var buf: array [0..8] of byte; s:string; i:integer; begin BUF[0]:=$8; buf[1]:=$1; s:=''; for i:=0 to sizeof(buf)-1 do s:=s+char(buf[0]); end;
上面错了一句, for i:=0 to sizeof(buf)-1 do s:=s+char(buf[I]);
而你发送的却是二进制的....
[Error] SOptions.pas(247): Incompatible types: 'OleVariant' and 'Array'
怎么办?
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array [0..8] of byte;
s:string;
i:integer;
begin
BUF[0]:=$8;
buf[1]:=$1;
s:='';
for i:=0 to sizeof(buf)-1 do
s:=s+char(buf[0]);
end;
for i:=0 to sizeof(buf)-1 do
s:=s+char(buf[I]);