急急急，重金额悬赏解决问题,谢谢 ( 积分: 80 )

谢谢，3KS,谢谢!!!
HexRecv:boolean是确定是不是按16进制显示
i, InputLen: Integer;
tmpInt: Integer;
tmpvar: Variant;
InputStr, RecvStr: string;
//接收二进制数据，转换为十六进制显示
if HexRecv then
begin
tmpvar:= MSComm.Input;
InputStr:= '';
for i:= 0 to InputLen - 1 do
begin
tmpInt:= tmpvar;
InputStr:= InputStr + UpperCase(IntToHex(tmpInt, 2)) + #32;
end;
end
//直接接收字符
else
begin
InputStr:= MSComm.Input;／／ 接收字符
end;
MemRecv.Text:= MemRecv.Text + InputStr;
为什么接受16进制的时候,一次最多只能接收2个字符啊，不能多接受，我要发三个以上 还是只能接收最后两个，现在想发几个接收几个，问一下上面哪里出错了啊，谢谢了

有会的么，最好能给点源码，用delphi的MSComm控件编的，在线等.
邮箱weijianduanmu@126.com
谢谢!

i, InputLen: Integer;
tmpInt: Integer;
tmpByte: array of Byte;
InputStr: string;
begin
InputStr:= '';
SetLength(tmpByte, MSComm.InBufferCount);
tmpByte:= MSComm.Input;

if MSComm.CommEvent = 2 then
begin
InputLen:= MSComm.InBufferCount;

for i:= 0 to InputLen - 1 do
begin
tmpInt:= tmpByte;
InputStr:= InputStr + UpperCase(IntToHex(tmpInt, 2)) + #32;
end;
end;
MemRecv.Text:= MemRecv.Text + InputStr + #13 + #10;
end;

GSM短信远程抄表系统管理端源代码(pc控制手机模块收发GSM短信)
http://www.pgz8.cn/Software/Catalog93/4151.html

串口操作等,都是自己写的代码.不用现成控件的.你可以下载来看看，还有实现了pc控制手机模块收发gsm短信,函数都是自己写的。线程方式操作,提高效率。

可能对你有帮助.

下面是他的说明:

系统说明：GSM短信远程抄表系统管理端(原理：pc控制手机模块收发GSM短信)
作者：Cooling
QQ: 21156410
Email: 21156410@qq.com
主页：http://www.pgz8.cn
可以任意传播，但请保留以上信息，有任何问题，欢迎交流。谢谢
这是一个商业软件的demo部分,收发短信的部分函数,全部是站长2002年写的，不用现成控件,线程操作.或许对短信系统开发有帮助.当时没有实现中文短信的收发,这个系统中也不需要.所以如果哪位朋友有兴趣,可以完善下，如果你写好了,也希望能给我发来一个哦.谢谢

用户名密码都是admin,在界面上右键操作.