串口通讯

原创 2004年09月07日 17:22:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    rdCOM: TRadioGroup;
    Label1: TLabel;
    mSend: TMemo;
    Label2: TLabel;
    mReceive: TMemo;
    btnOpenPort: TButton;
    btnSend: TButton;
    btnEnd: TButton;
    Timer1: TTimer;
    procedure btnSendClick(Sender: TObject);
    procedure btnOpenPortClick(Sender: TObject);
    procedure btnEndClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mSendKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenComm;  //打开通信端口
  end;

var
  Form1: TForm1;
  hComm: THandle;


implementation

{$R *.DFM}

procedure TForm1.btnSendClick(Sender: TObject);
var
  Temp:string;
  lrc:LongWord;
begin
  if (hComm=0) then exit;
  Temp:=msend.Text ;
  WriteFile(hComm,Pointer(Temp)^,Length(Temp), lrc, nil); //送出数据
end;

procedure TForm1.btnOpenPortClick(Sender: TObject);

begin
  //若通信端口已打开,则不需要再打开
  if (hComm<>0) then begin
    ShowMessage('通信端口已打开!不需再开!');
    exit;
  end;
  OpenComm;
end;

//以下是打开通信端口的程序
procedure TForm1.OpenComm;
var
  cc:TCOMMCONFIG;
  Temp:string;
begin
  Temp:='COM'+inttostr(rdcom.ItemIndex+1);                          //选择所要打开的COM
  hComm:=CreateFile(PChar(Temp), GENERIC_READ or GENERIC_WRITE,
       0, nil, OPEN_EXISTING, 0, 0);                   //打开COM
  if (hComm = INVALID_HANDLE_VALUE) then begin         //如果COM 未打开
    MessageBox (0, '打开通信端口错误!!','',MB_OK);
    exit;
  end;

  GetCommState(hComm,cc.dcb);                         // 得知目前COM 的状态
  cc.dcb.BaudRate:=CBR_9600;                          // 设置波特率为9600
  cc.dcb.ByteSize:=8;                                 // 字节为 8 bit
  cc.dcb.Parity:=NOPARITY;                            // Parity 为 None
  cc.dcb.StopBits:=ONESTOPBIT;                        // 1 个Stop bit

  if not SetCommState(hComm, cc.dcb) then begin       // 设置COM 的状态
    MessageBox (0, '通信端口设置错误!!!','',MB_OK);
    CloseHandle(hComm);
    exit;
  end;
end;

procedure TForm1.btnEndClick(Sender: TObject);
begin
   CloseHandle(hComm);//关闭通信端口
   close;//结束程序
end;


//定时器事件
procedure TForm1.Timer1Timer(Sender: TObject);
  var
  Temp : string;
  inbuff: array[0..2047] of Char;
  nBytesRead, dwError:LongWORD ;
  cs:TCOMSTAT;
  begin
   ClearCommError(hComm,dwError,@CS);  //取得状态
   if cs.cbInQue =0 then exit;
   if cs.cbInQue > sizeof(inbuff) then begin
     PurgeComm(hComm, PURGE_RXCLEAR);  // 清除COM 数据
     exit;
   end;
   ReadFile(hComm, inbuff,cs.cbInQue,nBytesRead,nil); // 接收COM 的数据
   Temp:=Copy(inbuff,1,cs.cbInQue);
   mReceive.Text :=mReceive.Text + Temp;   // 将数据显示于Memo1 上 
   mReceive.SetFocus ;
   mReceive.SelStart  :=Length(mReceive.Text);
   mReceive.SelLength :=0;//将Memo的显示位置移到最下端
  end;
//以下是处理按键动作
procedure TForm1.mSendKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then btnSendClick(Sender);
end;

end.

JS和COM口通信

在VB6.0下基于MSComm.ocx控件的开发,实现JS页面和COM口通信打印小票的功能
  • Flying_Highter_Birds
  • Flying_Highter_Birds
  • 2017年04月19日 19:50
  • 1653

我的小工具-nodejs串口转TCP调试通信

工作上,每次都怕让联调采集前置服务调试通信业务,上传记录,下载参数。去哪找流量卡?而且,有的机器型号是cdma,有的是gprs, 有的机器通信模块还坏了。想到搞个串口通信方式吧,与电脑连接,在电脑上做...
  • qq8864
  • qq8864
  • 2017年07月04日 18:33
  • 823

串口通讯—通信协议

所谓通信协议是指通信双方的一种约定。约定包括对数据格式、同步方式、传送速度、传送步骤、检纠错方式以及控制字符定义等问题做出统一规定,通信双方必须共同遵守。因此,也叫做通信控制规程,或称传输控制规程,它...
  • bytxl
  • bytxl
  • 2015年10月15日 09:04
  • 6616

javascript与串口通信

由于项目上用到在网页地图上显示GPS的数据,需要HTML,javascript,MSCOMM32控件知识,这都是微软的东西,我对微软的东西不是很了解走了好多弯路,在CSDN上咨询了一个网友,在他热心的...
  • thinkpadlove
  • thinkpadlove
  • 2013年10月22日 09:44
  • 5291

串口通信模块1:串口基础知识

串行接口可以将接受来自CPU的并行数据字符,转换为连续的串行数据流发送出去。同时可将接收的串行数据流转换为并行的数据字符供给CPU的器件。一般完成这种功能的电路,称为串行接口电路。常用的RS-232 ...
  • shenziheng1
  • shenziheng1
  • 2016年09月26日 22:12
  • 1432

串口通信参数设置

6.7.2 设置串口通信参数 串口通信参数指的是波特率、数据位、奇偶校验位和停止位。对串口实现控制的时候同样要用到termio结构体。下面将结合具体的代码说明如何设置这些参数。 1.波特率设置 ...
  • mengzhen814
  • mengzhen814
  • 2014年08月07日 15:08
  • 3464

13.5 串口通信原理和控制程序

我们前边学串口通信的时候,比较注重的是串口底层时序上的操作过程,所以例程都是简单的收发字符或者字符串。在实际应用中,往往串口还要和电脑上的上位机软件进行交互,实现电脑软件发送不同的指令,单片机对应执行...
  • softn
  • softn
  • 2016年07月08日 06:16
  • 1719

RS232实现串口双向通讯

之前对接了一个pos机设备,设备使用了RS232进行通讯,现在也完成该需求并在线上运行使用当中了,此次对接实现的功能主要是应用程序向POS机设备发送应收金额和收费时间;至此想记录一下开发过程中遇到的问...
  • u014629817
  • u014629817
  • 2017年05月17日 10:50
  • 271

vb.net及C#串口基本通信

vb.net 1.添加串口控件serialport 2.配置串口参数     Public Sub Serial_Port_EFS1() '设置串口参数         With Serial...
  • haoduo123456789001
  • haoduo123456789001
  • 2016年03月22日 07:57
  • 1708

串行通信 计算机网络和TCP/IP协议

在现场数据采集和数据传输中大量采用接口方式,监控系统涉及较多的是串行通信接口和网络接口。 一、串行通信协议 计算机与外设或计算机之间的通信通常有两种方式:并行通信和串行通信。 并行通信指数据...
  • dragon_ton
  • dragon_ton
  • 2014年12月16日 13:58
  • 2247
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:串口通讯
举报原因:
原因补充:

(最多只允许输入30个字)