W
wsz1220
Unregistered / Unconfirmed
GUEST, unregistred user!
向专家请教一个问题就是:我写的串口通信程序当不向串口写数据的时候,打开和关闭没有任何问题,可一旦向串口写数据的时候,第一次执行也没有问题,可就是一关闭串口,再打开时就出现问题。
范例程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin //打开串口并向串口写数据
if not comm32.Enabled then
begin
comm32.CommPort:='com1';
comm32.StartComm;
memo1.Lines.Add('open the com');
comm32.WriteCommData(pchar('1234'),4);
memo1.Lines.Add('write data to com');
end else begin
memo1.Lines.Add('open the com');
comm321.WriteCommData(pchar('1234'),4);
memo1.Lines.Add('write data to com');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //此为关闭串口程序
if comm32.Enabled then
begin
comm32.StopComm;
memo1.Lines.Add('close the com');
end;
end;
用的是spcomm.
请大家指点...
范例程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin //打开串口并向串口写数据
if not comm32.Enabled then
begin
comm32.CommPort:='com1';
comm32.StartComm;
memo1.Lines.Add('open the com');
comm32.WriteCommData(pchar('1234'),4);
memo1.Lines.Add('write data to com');
end else begin
memo1.Lines.Add('open the com');
comm321.WriteCommData(pchar('1234'),4);
memo1.Lines.Add('write data to com');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //此为关闭串口程序
if comm32.Enabled then
begin
comm32.StopComm;
memo1.Lines.Add('close the com');
end;
end;
用的是spcomm.
请大家指点...