请问二进制如何赋值呢？(20分)

A

abc516

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #1

我使用了mscomm，而且mscomm使用了cominputmodebinary，二进制的，
请问sss如何赋值。

procedure TForm1.Button1Click(Sender: TObject);
var
sss:array [0..5] of byte;
begin
sss[0]:=$55;
mscomm1.Output:=sss;
end;
end.

 

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #2

如果你做控制字用，可以写一个按位付值的过程
function PosValue(var APos,AValue:integer):integer;
var
i:integer;
begin
result:=AValue;
if AValue=0 then exit;
for i:=1 to APos-1 do //位置
result:=Result*2;
end;
如果你想作为数据发送，而通讯协议又不自己考虑，那你跟不用担心数据格式，按照十进制
发送就行

 

W

wtopia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-02

• #3

用Move
procedure TForm1.Button1Click(Sender: TObject);
var
sss:array [0..5] of byte;
begin
sss[0]:=$55;
move(mscomm1.Output,sss,1);//传一字节
move(mscomm1.Output,sss,sizeof(sss));//传sss大小
end;
end.

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #4

直接用String就可以了
var
sss: String;
begin
sss:=#$55;
MsComm1.Output:=sss;
end;

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #5

用MOVE吧

 

L

laok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-05

• #6

pihome说的对！

 

A

abc516

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-05

• #7

多人接受答案了。