记账软件版1楼: 用MSCOMM控件发数据的时候怎么发不出去 请看以下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
t: dword;
begin
Memo1.Lines.Clear;
if MSComm1.PortOpen = true then
MSComm1.PortOpen := False;
MSComm1.CommPort := 2;
MSComm1.PortOpen := true;
MSComm1.OutBufferCount := 0;
MSComm1.InBufferCount := 0;
for i := 0 to ListBox1.Items.Count - 1 do
begin
MSComm1.Output := ListBox1.Items[i] + chr(13);
while MSComm1.OutBufferCount > 0 do
Application.ProcessMessages;
t := GetTickCount;
while GetTickCount - t < 500 do
Application.ProcessMessages;
end;
end;
有人能帮我看一下吗 谢谢！

2楼: MSComm1.有个什么属性(我忘了):=1(是0还是1我也忘); 如管家婆软件免费下载

3楼: RThreshold 和 SThreshold 我都设为1了

4楼: 有哪位能帮我解答一下 谢谢了

5楼: procedure TfmSmCom.WriteCommand(sCommand: string);

var
i: integer;
OutBuffer: TBuffer;
begin
for i := 1 to Length(sCommand) do
begin
Comforsm.Output := sCommand[i];
end;
showDetailLog(sCommand);
end;

Comforsm.InBufferCount := 0; // 清空接收缓冲区
Comforsm.InputLen := 0; // Input读取整个缓冲区内容
Comforsm.RThreshold := 1; // 每次接收到字符即产生OnComm事件


try
Comforsm.PortOpen := true;
except
ShowMessage(＇＇串口初始化失败！＇＇);
Exit;
end;
Comforsm.DTREnable := true; // 数据终端准备好
Comforsm.RTSEnable := true; // 请求发送
Sleep(500);
with Comforsm do
begin
WriteCommand(＇＇AT+CSMS=1＇＇#13);
Sleep(500);
end;

6楼: to:Xine
Comforsm.output和Comforsm.WriteCommand有什么区别吗？

记账软件版7楼: 我试了一下 还是不行啊
是mscomm1.Output有问题 数据老是发不出去
不知道为什么 我想了很长的时间了 还是没有解决
请大家帮我看 一下 谢谢！！

8楼: WriteCommand是我自己封装的一个方法了,

因为output只能逐个字节的写,比较麻烦

9楼: to:Xine
我的mscomm组件有问题 他的output方法不发数据了
能帮我分析一下吗？