IBM Rational 系统开发最佳实践工具包	WebSphere MQ 最佳实践 TOP 15

这里不能发帖子吗？怎么老是提示“请不要发表对我们有伤害的言论”

楼主ztiger（）2006-03-10 13:01:12 在 Delphi / VCL组件开发及应用提问

怎么回事？问题点数：50、回复次数：14Top

1 楼Hellohuan（java 好不好???）回复于 2006-03-10 13:02:47 得分 5

说脏话了吧Top

2 楼liangqingzhi（老之）回复于 2006-03-10 13:06:21 得分 5

敏感字眼是不给发的Top

3 楼GARNETT2183（KingWolves (http://kevin-lu.blogspot.com)）回复于 2006-03-10 13:07:28 得分 5

有粗口是吧?Top

4 楼ztiger（）回复于 2006-03-10 13:08:37 得分 0

这个里面的代码我贴不上来，是网上的代码，这是链接http://seventh.jsphome.com/4/1010.html。但是我照着代码做了之后怎么没反应的，是不是还有什么没有设置？谢谢！Top

5 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 13:16:04 得分 25

真的贴不上来吗？

var

FCOMM: TFCOMM;

Viewstring:string;

i:integer;

rbuf,sbuf:array[1..6] of byte;

打开串口

procedure TFCOMM.FormShow(Sender: TObject);

begin

comm1.StartComm;

end;

关闭串口

procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);

begin

comm1.StopComm;

end;

Top

6 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 13:18:22 得分 0

viewstring
Top

7 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 13:19:41 得分 0

终于发现原因了
原来是commf.l.g(不包含.)中含有f.l.g三个字母，哈哈，F.L.GTop

8 楼ztiger（）回复于 2006-03-10 13:28:09 得分 0

我改了一下发上来，大家帮我看一下
procedure TForm1.FormShow(Sender: TObject);
begin
Comm1.StartComm;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Comm1.StopComm;
end;

procedure TForm1.SendData;
var
I:integer;
CommF:Boolean;
begin
ViewString:='';
CommF:=true;
for i:=1 to 6 do
begin
if not Comm1.WriteCommData(@sbuf[I],1) then
begin
CommF:=false;
break;
end;
Sleep(2);
ViewString:=ViewString+IntToHex(sbuf[i],2)+'';
end;
ViewString:='发送'+ViewString;
Memo1.Lines.Add(ViewString);
Memo1.Lines.Add('');
if not CommF then
MessageDlg('发送失败！',mtError,[mbYes],0);
end;

procedure TForm1.BtnSendClick(Sender: TObject);
begin
sbuf[1]:=Byte($f0);
sbuf[2]:=Byte($01);
sbuf[3]:=Byte($ff);
sbuf[4]:=Byte($ff);
sbuf[5]:=Byte($01);
sbuf[6]:=Byte($0f);
SendData;
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
I:integer;
begin
ViewString:='';
Move(buffer^,pchar(@rbuf^),bufferlength); //这句出错：pointer type required.
for i:=1 to BufferLength do
begin
ViewString:=ViewString+IntToHex(rbuf[i],2)+'';
ViewString:='接收'+ViewString;
Memo2.Lines.Add(ViewString);
Memo2.Lines.Add('');
end;
end;
怎么做了之后没反应的，是不是我还有什么没有设置？Top

9 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 13:36:26 得分 0

你有没有在控件的将这几个过程与form和控件关联起来？

比如说FormShow过程，必须是你在Form1的OnShow时间里面双击一下才可以的，其余的照做Top

10 楼ztiger（）回复于 2006-03-10 15:03:34 得分 0

不好意思，还是不明白应该怎么弄啊Top

11 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 16:03:27 得分 5

简单点说，你先检查一下Form1的Events，里面有没有OnShow和OnClose事件Top

12 楼ztiger（）回复于 2006-03-10 16:09:43 得分 0

谢谢，都有这些事件的阿，可也没啥效果Top

13 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-10 16:44:45 得分 5

你到底怎么操作的？OnShow事件右边填的是什么？是FormShow还是空白？

我还是怀疑你没有添加这些事件，呵呵Top

14 楼ztiger（）回复于 2006-03-10 16:51:10 得分 0

在FormShow里面写的是：Comm1.StartComm,
在发送按钮里写的是：SendData;

有没有人遇到过这种情况阿？怎么在memo1中只有：“发送...”，没有"接收.."Top