用SPCOMM控件可以实现你的要求。
步骤:
1.用senddata函数发识别码。
2.当收到单片机的应答信号时,会自动触发ReceiveData事件,这时,你可以检查识别码。如正确,发信号让单片机发数据。这些代码都写在ReceiveData事件中。这时要设置一个标志,以便当接受数据触发ReceiveData事件时不执行前面的代码。
3。将接受到数据存入数据库。这些代码对每一次接受数据都是一样的,只须在ReceiveData事件中写一次代码便可。同时检查是否是结束信号,如是,便使用SendData
函数发结束码给单片机。本人已经用SPCOMM控件实现同样的要求。
如你实在不愿意用控件,SPCOMM控件也带原代码,你可以根据需要修改。
步骤:
1.用senddata函数发识别码。
2.当收到单片机的应答信号时,会自动触发ReceiveData事件,这时,你可以检查识别码。如正确,发信号让单片机发数据。这些代码都写在ReceiveData事件中。这时要设置一个标志,以便当接受数据触发ReceiveData事件时不执行前面的代码。
3。将接受到数据存入数据库。这些代码对每一次接受数据都是一样的,只须在ReceiveData事件中写一次代码便可。同时检查是否是结束信号,如是,便使用SendData
函数发结束码给单片机。本人已经用SPCOMM控件实现同样的要求。
如你实在不愿意用控件,SPCOMM控件也带原代码,你可以根据需要修改。
解决方案 »
- 为什么我在service里无法读取注册表里的字符串啊?
- 请问程序调试过程中产生的mb,db 文件有没有用,还有没有产生其他没有用的文件?
- 我最近做的一个权限管理,有源码,欢迎大家下载
- 在rave中使用LookupDataView出问题。
- 在Intraweb技术中,我想使IWEdit中的文字垂直居中,用CSS方式如何解决。水平居中我知道。
- delphi7 的报表控件在那里啊,我这么找不到啊(新手提问)
- CSDN上没有高手??
- 如何把 BMP 转成 GIF ?速度越快越好。最好是用流方式的。代码越小越好。
- Win32程序员
- 本人想出售几本书,有意者请进来看看。
- 哪一位听过这么一个控件!
- 编写三层结构的数据库应用程序使用DCOM的设置问题?
[email protected]
有所收获
NEW—POWER:感谢解释。
ZYB: 多谢多谢
KOLA:能否详细些解释?
CAILI :谢谢
CKEN : 我怎么连不上该地址?
我在使用时(用控件Async32),
1。PC识别单片机,单片机第一次发送数据到PC没问题,PC也能正常接收。
但第二次握手时,出错,即1,2,3步没问题,后面步鄹不能接收
能否给个例子(用SPCOMM)?
给我的感觉似乎是PC不等待单片机发来的确认信号,是否此时应该将该线程
挂起(阻塞),直到单片机发来确认信号再激活?
请多多指教。
2。具体协议如下:
1:PC:发识别码
2:单:确认或NO ANSWER
3:PC:接收一组数据(STX+DATA+ETX+BCC),若正确则发送标识码给
单片机
4:单:确认或NO ANSWER
5:PC:接收下一组数据(格式同前),若正确则发送标识码给
单片机
。
。
。
N:PC结束
3。如果不用多线程,是否会在进行大数据量通讯的同时,若有其他操作(如运行其他程序,上网,打游戏等)会中断或影响数据的正确性(不占用正在用的数据通讯口的情况下)?
谢谢。bbsboyy
Delphi中串行通信的实现
---- 随 着 现 代 信 息 技 术 的 发 展 以 及 计 算 机 网 络 的 广 泛 使 用, 计 算 机 通 信 技 术 已 经 日 臻 成 熟, 但 串 行 通 信 作 为 一 种 灵 活 方 便 可 靠 的 通 信 方 式, 仍 不 失 为 有 效 的 通 信 手 段, 被 广 泛 应 用 于 工 业 控 制 中。 在 工 业 生 产 实 践 中, 用PC 机 对 工 程 实 现 实 时 监 控, 通 常 要 求PC 机 能 在 用 户 界 面 上 具 有 数 据 采 集、 数 据 处 理 以 及 控 制 信 号 的 产 生 与 传 输 等 功 能。 在 这 种 特 定 的 环 境 下,PC 机 要 与 过 程 控 制 的 实 时 信 号 相 联 系, 就 要 求 能 实 现 对PC 机 的 串 行 端 口 直 接 操 作。Borland 公 司 推 出 的Delphi 是 一 种 功 能 强 大 的 高 级 编 程 语 言, 其 具 有 的 可 视 化 面 向 对 象 的 特 性, 特 别 适 于 在Windows 环 境 下 图 形 界 面 和 用 户 程 序 的 编 制。 本 文 就 是 介 绍 基 于Windows95/NT 操 作 系 统 用Delphi 来 实 现PC 机 与 下 层PLC 控 制 器 之 间 的 串 口 通 信 方 法。 基 于WIN95/NT 的 串 行 通 信 机 制
---- Windows 操 作 系 统 的 机 制 禁 止 应 用 程 序 直 接 访 问 计 算 机 硬 件, 但 它 为 程 序 员 提 供 了 一 系 列 的 标 准API 函 数, 使 得 应 用 程 序 的 编 制 更 加 方 便 并 且 免 除 了 对 有 关 硬 件 的 调 试 麻 烦。 在Windows95/NT 中, 原 来Windows3.X 的WM_COMMNOTIFY 消 息 已 被 取 消, 操 作 系 统 为 每 个 通 信 设 备 开 辟 了 用 户 可 定 义 大 小 的 读/ 写 缓 冲 区, 数 据 进 出 通 信 口 均 由 操 作 系 统 后 台 完 成, 应 用 程 序 只 需 对 读/ 写 缓 冲 区 操 作 即 可。WIN95/NT 中 几 个 常 用 的 串 行 通 信 操 作 函 数 如 下: CreatFile 打 开 串 行 口
CloseHandle 关 闭 串 行 口
SetupComm 设 置 通 信 缓 冲 区 的 大 小
ReadFile 读 串 口 操 作
WriteFile 写 串 口 操 作
SetCommState 设 置 通 信 参 数
GetCommState 获 取 默 认 通 信 参 数
ClearCommError 清 除 串 口 错 误 并 获 取 当 前 状 态 ---- 除 上 述 几 个 函 数 外, 还 要 经 常 用 到 一 个 重 要 的 记 录DCB( 设 备 控 制 块)。DCB 中 记 录 有 可 定 义 的 串 行 口 参 数, 设 置 串 行 口 参 数 时 必 须 先 用GetCommState 函 数 将 系 统 默 认 值 填 入DCB 控 制 块, 然 后 才 可 把 用 户 想 改 变 的 自 定 义 值 设 定。 ---- 在WIN95/NT 中 进 行 串 行 通 信 除 了 解 基 本 的 通 信 操 作 函 数 外, 还 要 掌 握 多 线 程 编 程。 线 程 是 进 程 内 部 执 行 的 路 径, 是 操 作 系 统 分 配CPU 时 间 的 基 本 实 体。 每 个 进 程 都 由 单 线 程 开 始 完 成 应 用 程 序 的 执 行。 串 行 通 信 需 要 利 用 多 线 程 技 术 实 现, 其 主 要 的 处 理 逻 辑 可 以 表 述 如 下: 进 程 一 开 始 先 由 主 线 程 做 一 些 必 要 的 初 始 化 工 作, 然 后 主 线 程 根 据 需 要 在 适 当 时 候 建 立 通 信 监 视 线 程 监 视 通 信 口, 当 指 定 的 串 行 口 事 件 发 生 时, 向 主 线 程 发 送WM_COMMNOTIFY 消 息( 由 于WIN95 取 消 了WM_COMMNOTIFY 消 息, 因 此 必 须 自 己 创 建), 主 线 程 对 其 进 行 处 理。 若 不 需 要WM_COMMNOTIFY 消 息, 则 主 线 程 终 止 通 信 监 视 线 程。 ---- 多 线 程 同 时 执 行, 将 会 引 起 对 共 享 资 源 的 冲 突。 为 避 免 冲 突, 就 要 用 同 步 多 线 程 对 共 享 资 源 进 行 访 问。WIN95 提 供 了 许 多 保 持 线 程 同 步 的 方 法, 笔 者 采 用 创 建 事 件 对 象 来 保 持 线 程 同 步。 通 过CraeteEvent() 创 建 事 件 对 象, 使 用SetEvent() 或PulseEvent() 函 数 将 事 件 对 象 设 置 成 信 号 同 步。 在 应 用 程 序 中, 利 用WaitSingleObject() 函 数 等 待 同 步 的 触 发, 等 到 指 定 的 事 件 被 其 它 线 程 设 置 为 有 信 号 时, 才 继 续 向 下 执 行 程 序。 Delphi 下 的 具 体 实 现 方 法
---- Delphi 的 强 大 功 能 和 支 持 多 线 程 的 面 向 对 象 编 程 技 术, 使 得 实 现 串 行 通 信 非 常 简 单 方 便。 它 通 过 调 用 外 部 的API 函 数 来 实 现, 主 要 步 骤 如 下: 首 先, 利 用CreateFile 函 数 打 开 串 行 口, 以 确 定 本 应 用 程 序 对 此 串 行 口 的 占 有 权, 并 封 锁 其 它 应 用 程 序 对 此 串 口 的 操 作; 其 次, 通 过GetCommState 函 数 填 充 设 备 控 制 块DCB, 再 通 过 调 用SetCommState 函 数 配 置 串 行 口 的 波 特 率、 数 据 位、 校 验 位 和 停 止 位。 然 后, 创 建 串 行 口 监 视 线 程 监 视 串 行 口 事 件。 在 此 基 础 上 就 可 以 在 相 应 的 串 口 上 操 作 数 据 的 传 输; 最 后, 用CloseHandle 函 数 关 闭 串 行 口。 具 体 的 程 序 如 下, 本 程 序 用Delphi3.0 编 制 在Win95 环t 境 下 调 试 通 过, 已 投 入 实 际 应 用 中, 供 广 大 读 者 参 考。 ---- 程 序: unit comdemou;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;const
Wm_commNotify=Wm_User+12;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
Procedure comminitialize;
Procedure MsgcommProcess(Var Message:Tmessage); Message Wm_commnotify;
{ Private declarations }
public
{ Public declarations }
end; // 线 程 声 明
TComm=Class(TThread)
protected
procedure Execute;override;
end;var
Form1: TForm1;
hcom,Post_Event:Thandle;
lpol:Poverlapped;
implementation{$R *.DFM}Procedure TComm.Execute; // 线 程 执 行 过 程
var
dwEvtMask:Dword;
Wait:Boolean;
Begin
fillchar(lpol,sizeof(toverlapped),0);
While True do Begin
dwEvtMask:=0;
Wait:=WaitCommEvent(hcom,dwevtmask,lpol); // 等 待 串 行 口 事 件;
if Wait Then Begin
waitforsingleobject(post_event,infinite); // 等 待 同 步 事 件 置 位;
resetevent(post_event); // 同 步 事 件 复 位;
PostMessage(Form1.Handle,WM_COMMNOTIFY,0,0);// 发 送 消 息;
end;
end;
end;procedure Tform1.comminitialize; // 串 行 口 初 始 化
var
lpdcb:Tdcb;
Begin
hcom:=createfile('com2',generic_read or generic_write,0,nil,open_existing,
file_attribute_normal or file_flag_overlapped,0);// 打 开 串 行 口
if hcom=invalid_handle_value then
else
setupcomm(hcom,4096,4096); // 设 置 输 入, 输 出 缓 冲 区 皆 为4096 字 节
getcommstate(hcom,lpdcb); // 获 取 串 行 口 当 前 默 认 设 置
lpdcb.baudrate:=2400;
lpdcb.StopBits:=1;
lpdcb.ByteSize:=8;
lpdcb.Parity:=EvenParity; // 偶 校 验
Setcommstate(hcom,lpdcb);
setcommMask(hcom,ev_rxchar);
// 指 定 串 行 口 事 件 为 接 收 到 字 符;
end;Procedure TForm1.MsgcommProcess(Var Message:Tmessage);
var
Clear:Boolean;
Coms:Tcomstat;
cbNum,ReadNumber,lpErrors:Integer;
Read_Buffer:array[1..100]of char;
Begin
Clear:=Clearcommerror(hcom,lpErrors,@Coms);
if Clear Then Begin
cbNum:=Coms.cbInQue;
ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol);
// 处 理 接 收 数 据
SetEvent(Post_Event); // 同 步 事 件 置 位
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
comminitialize;
post_event:=CreateEvent(nil,true,true,nil); // 创 建 同 步 事 件;
Tcomm.Create(False); // 创 建 串 行 口 监 视 线 程;
end;end.