Question

帮忙看下delphi7 spcomm控件

电脑接受从单片机发送的数据，程序如下，上位机接受不到数据，求高人给看下哪出错了，
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, SPComm;

type
TForm1 = class(TForm)
Comm1: TComm;
Memo1: TMemo;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
procedure Comm1ModemStateChange(Sender: TObject; ModemEvent: Cardinal);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
viewstring: string;
i: integer;
rbuf:array[1..16] of byte;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
comm1.StartComm;
end;
//打开串口
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;
//关闭串口
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i: integer;

begin

move(buffer^, pchar(@rbuf)^, bufferlength);
for i:= 1 to bufferlength do
viewstring := viewstring + inttohex(rbuf[i], 2) + '';
viewstring := '接受' + viewstring;
memo1.Lines.Add(viewstring);
memo1.Lines.Add('');

end;

procedure TForm1.Comm1ModemStateChange(Sender: TObject;
ModemEvent: Cardinal);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

end.

Answer 1

procedure TForm1.FormShow(Sender: TObject);
begin
    comm1.onReceiveData:=Comm1ReceiveData;     //关键句
    comm1.stopcomm;
    try  
         comm1.StartComm;
    except
         comm1.stopcomm;
         //.....
    end;
end;

追问

try前边为啥要来一遍comm1.stopcomm

追答

防止重复打开串口导致的出错。

追问

照你的方法说了，还是接收不到数据。。。

追答

在OnReceiveData事件里，就写个Showmessage('1') 试试。
然后用AccessPort 监控你的串口到底有没有接收到数据。除非你的串口没接到到数据，要不然不可能呀。
你把工程代码发上来。

追问

能给个QQ吗，这样聊太费劲了
程序还没调通，就是收不到数据，很郁闷

追答

发你QQ ，我加你 。

Answer 2

会不会是Comm1中没有正确配置 串口的 波特率 数据位 停止位等