Y
yangyee
Unregistered / Unconfirmed
GUEST, unregistred user!
各位：
我现在想用spcomm只接收数据，是否在接收之前先来一句
comm1.StartComm;
我把这句写上后，程序出错，出错信息入下
Error Opening Serial port
我的完整程序如下：
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
//Move(Buffer^, s, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Comm1.StartComm;
end;
我现在想用spcomm只接收数据，是否在接收之前先来一句
comm1.StartComm;
我把这句写上后，程序出错，出错信息入下
Error Opening Serial port
我的完整程序如下：
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength); //接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
//Move(Buffer^, s, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Comm1.StartComm;
end;