使用spcomm发送byte类型数据的简单问题！--Block_k_E在吗？请帮我看看！谢谢 (50分)

我想利用spcomm来发送b：byte；于是在spcomm中增加了一个函数（因为要经常用到）

function TComm.WriteCommByte(pByteToWrite:Byte):Boolean;
var
Str:String;
begin
Str:=chr(pByteToWrite);
Result:=WriteCommData(Pchar(Str),1);
end;
可是每次发送都不行，以前别人帮我在spcomm中加过这个函数，后来重装搞丢了。用现在的函数去发执行以前的程序都不能运行。result的值是false；
后来改为：
function TComm.WriteCommByte(pByteToWrite:Byte):Boolean;
var
Str:String;
begin
Str:=chr(pByteToWrite)+'';
Result:=WriteCommData(Pchar(Str),1);
end;
也不行，搞不懂！帮帮忙吧大侠们！

看看串口有没打开
还有，发送byte可以用以下代码
writecommdata(@b,1);

对直接用writecommdata(@b,1)就行了。。

要不单步跟踪运行试试问题出在哪儿就知道了。。。

肯定是打开串口了
哪位大侠帮我来看看。

哥们你在哪呀看我今天赶不赶得到？：）

没人知道我的错在哪吗？
算了，还是自己认真钻研一下spcomm吧，分散给你们了，以后多帮忙/