简单的问题(50分)

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #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 + chr(13);
while MSComm1.OutBufferCount > 0 do
Application.ProcessMessages;
t := GetTickCount;
while GetTickCount - t < 500 do
Application.ProcessMessages;
end;
end;
有人能帮我看一下吗 谢谢！

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #2

MSComm1.有个什么属性(我忘了):=1(是0还是1我也忘);

 

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #3

RThreshold 和 SThreshold 我都设为1了

 

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #4

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

 

X

Xine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #5

procedure TfmSmCom.WriteCommand(sCommand: string);
var
i: integer;
OutBuffer: TBuffer;
begin
for i := 1 to Length(sCommand) do
begin
Comforsm.Output := sCommand;
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;

 

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #6

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

 

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #7

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

 

X

Xine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-13

• #8

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

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

 

Y

yuanxianer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-14

• #9

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