用ASYNC32写串口的问题 (100分)

  • 主题发起人 主题发起人 brianyu
  • 开始时间 开始时间
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;

结果就是没有办法写入串口
退出的时候还来了个非法操作
 
不如有“spcom”控件来做,我感觉它挺好上手的。如果需要来信!romance-man@163.net
 
Comm1.Write(str[1],length(str));
----
就行了
 
后退
顶部