如何学习win串口编程 ( 积分: 50 )

  • 主题发起人 主题发起人 yubaicai
  • 开始时间 开始时间
Y

yubaicai

Unregistered / Unconfirmed
GUEST, unregistred user!
我想主要学习win串口编程
delphi win串口编程行不行?
比c#和vc6难吗?
应该怎么学习?
请过来人 指点
 
delphi很好用的呀,下载个spcom安装下,
 
//SPCOMM控件
procedure TForm1.FormCreate(Sender: TObject);
begin //初始化
comm1.startcomm;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sbuf:array[1..4] of byte;
begin //发送
sbuf[1]:=byte($61); //帧头
sbuf[2]:=byte($00); //命令号
sbuf[3]:=byte($FF);
sbuf[4]:=byte($61); //帧尾
if comm1.writecommdata(@sbuf,4)=false then application.MessageBox('发送失败','COM1',1);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;
 
//接收数据

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);

type ss=array[1..500]of char ;
var str1:^ss;
i:integer;
s:array[0..15] of char ;
n:integer;
dd:char;
Str2:string;

begin
str1:=Buffer;
for i:=0 to 9 do
s:=chr(48+i);
for i:=10 to 15 do
s:=chr(55+i);
for i:=1 to bufferlength do
begin
dd:=str1^;
Str2:=Str2+dd;
end;
memo1.lines.add('扫描条码 '+Str2);
end;
 
GSM短信远程抄表系统管理端源代码(pc控制手机模块收发GSM短信)
http://www.pgz8.cn/Software/Catalog93/4151.html

串口操作等,都是自己写的代码.不用现成控件的.可能对你有帮助.
 
顶,工作中俺也将要接触串口,以前没用过,来学习
 
后退
顶部