请问有什么好的串口控件？十万火急(100分)

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #1

我在用Spcomm，但是发现它只能发出字符型的数据，对方用单片机收到的全是Ascii码，我
想要直接能发byte型的串口控件，而且能在2000下运行的，各位帮帮忙，明天要去公安局做
演示，十万火急啊

 

C

chll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #2

试试MSComm控件

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #3

老大，Spcomm也一样可以发送Byte的，需要你自己转换
你也可以用VB下的MScomm控件，都能实现你想要达到的功能

 

C

chll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #4

其实你在向串口写数据时做个转换就能发送Byte类型的数据
如：Byte(字符）

 

Z

zhousi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #5

spcomm
在win2000下的串口数大于9的有点问题！不过还是挺好用的

 

Z

zhousi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #6

Comm1.CommName:='//?/'+Comm1.CommName;
大于9的串口要用上面的处理方法

 

C

coolren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #7

给我你的邮箱,我有一个发给你试试!是<<C++Builder R232窜口通信>>一书所带的

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #8

能不能给个简单的例子，我是这样发的，那边收到的就是Ascii
var tempCmd:array of Byte;
i,j:integer;
sbufchar;
str:string;
Cmdchar;
begin
case Cmdobj of
1: //查询
begin
setlength(tempcmd,7);
tempCmd[0]:=27;
tempCmd[1]:=Count;
tempCmd[2]:=0;
tempCmd[3]:=2;
tempCmd[4]:=0;
tempCmd[5]:=strtoint(CarNo);
tempCmd[6]:=CreateCrc(tempCmd,6);
for i:=0 to 6 do str:=str+inttostr(tempCmd);
GetMem(sbuf,Length(str)+1);
StrPLCopy(sbuf,str,Length(str));
Comm1.WriteCommData(sbuf,strlen(sbuf));
end;

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #9

to coolren:
我的邮箱plf22@163.com

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #10

如果收到例子还不能解决再找我
我有MScomm和Spcomm的例子

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #11

to 太平洋:
没有收到例子啊，你就说说怎样转换，是不是和我的程序一样，用个inttostr()

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #12

to 太平洋:
把你的例子发过来看看

 

J

Jinghui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #13

我一直都在使用免费的ComPort, 很好用。下载地址 http://www2.arnes.si/~sopecrni/
不过我估计SPComm应该也没有问题的。用ComPort我是这么写的：

var
tempCmd: string[6];
begin
tempCmd[0]:=27;
tempCmd[1]:=Count;
tempCmd[2]:=0;
tempCmd[3]:=2;
tempCmd[4]:=0;
tempCmd[5]:=strtoint(CarNo);
tempCmd[6]:=CreateCrc(tempCmd,6);
ComPort.WriteStr(tempCmd);

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #14

帮你改了一下，你先试试，不行我再发：
var
tempCmd:array of Byte;
i,j:integer;
sbufchar;
str:string;
Cmdchar;
begin
setlength(tempcmd,6);
tempCmd[0]:=byte(27);
tempCmd[1]:=byte(Count);//Count应该是数字吧
tempCmd[2]:=byte(0);
tempCmd[3]:=byte(2);
tempCmd[4]:=byte(0);
tempCmd[5]:=byte(strtoint(CarNo));//CarNo应该是字符串吧
tempCmd[6]:=CreateCrc(tempCmd,6);
for i:=0 to 5 do
Comm1.WriteCommData(@tempCmd,1);

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #15

for i:=0 to 5 do为for i:=0 to 6 do

 

J

Jinghui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #16

对不起，看错了，我是这么写的：
var
crc: char;
str: string;
begin

str := #27 + char(Count) + #0#2#0 + CarNo; // 如果CarNo是Char
str := #27 + char(Count) + #0#2#0 + Char(CarNo); // 如果CarNo是 integer
str := str + CreateCrc(tempCmd,6);

ComPort.WriteStr( str );
...
end;

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #17

to 太平洋
问题解决了，能不能请教一下为什么要这样：Comm1.WriteCommData(@tempCmd,1);
我那个tempcmd本来就是byte型，有必要再用byte()转换吗？

 

太

太平洋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #18

呵呵，解决了就好啊
function WriteCommData( pDataToWrite: PChar; dwSizeofDataToWrite: Word ): Boolean;
你没必要用byte转换了

 

P

plf22

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #19

多人接受答案了。