B
brianyu
Unregistered / Unconfirmed
GUEST, unregistred user!
Async32 1.25
Delphi6
WinNT+SP6
一个很简单的程序,就是往串口写控制码
procedure TForm1.BitBtn1Click(Sender: TObject);
var
str:string[10];
begin
Comm1.Devicename:=DEVS.Text;
Comm1.BaudRate := TBaudrate(6);
Comm1.Databits := TDataBits(4);
Comm1.Parity := TParity(0);
Comm1.StopBits := TStopBits(0);
sleep(1000);
Comm1.Open;
sleep(1000);
Comm1.SetRTSState(true);
sleep(1000);
Comm1.SetDTRState(true);
sleep(1000);
str[0]:=#27;
str[1]:=#37;
if ComB.ItemIndex=0 then str[2]:=#65;
if ComB.ItemIndex=1 then str[2]:=#66;
if ComB.ItemIndex=2 then str[2]:=#67;
if ComB.ItemIndex=3 then str[2]:=#68;
Comm1.Write(str,length(str));
sleep(1000);
Comm1.Close;
end;
结果就是没有办法写入串口
退出的时候还来了个非法操作
Delphi6
WinNT+SP6
一个很简单的程序,就是往串口写控制码
procedure TForm1.BitBtn1Click(Sender: TObject);
var
str:string[10];
begin
Comm1.Devicename:=DEVS.Text;
Comm1.BaudRate := TBaudrate(6);
Comm1.Databits := TDataBits(4);
Comm1.Parity := TParity(0);
Comm1.StopBits := TStopBits(0);
sleep(1000);
Comm1.Open;
sleep(1000);
Comm1.SetRTSState(true);
sleep(1000);
Comm1.SetDTRState(true);
sleep(1000);
str[0]:=#27;
str[1]:=#37;
if ComB.ItemIndex=0 then str[2]:=#65;
if ComB.ItemIndex=1 then str[2]:=#66;
if ComB.ItemIndex=2 then str[2]:=#67;
if ComB.ItemIndex=3 then str[2]:=#68;
Comm1.Write(str,length(str));
sleep(1000);
Comm1.Close;
end;
结果就是没有办法写入串口
退出的时候还来了个非法操作