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

Question

怎么回事？

Answer 1

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

Answer 2

真的贴不上来吗？varFCOMM: TFCOMM;Viewstring:string;i:integer;rbuf,sbuf:array[1..6] of byte;打开串口procedure TFCOMM.FormShow(Sender: TObject);begincomm1.StartComm;end;关闭串口procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);begincomm1.StopComm;end;

Answer 3

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

Answer 4

我改了一下发上来，大家帮我看一下
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;
怎么做了之后没反应的，是不是我还有什么没有设置？

Answer 5

你有没有在控件的将这几个过程与form和控件关联起来？比如说FormShow过程，必须是你在Form1的OnShow时间里面双击一下才可以的，其余的照做

Answer 6

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

Answer 7

你到底怎么操作的？OnShow事件右边填的是什么？是FormShow还是空白？我还是怀疑你没有添加这些事件，呵呵

Answer 8

在FormShow里面写的是：Comm1.StartComm,
在发送按钮里写的是  ：SendData;有没有人遇到过这种情况阿？怎么在memo1中只有：“发送...”，没有"接收.."