怎样实现串口主动触发一个事件?比如,象银行里刷卡那样,不用时时去读串口;而是当读卡器上有卡后主动触发一个读卡事件。我不知道是不是这样的,请你们给我一个具体的方法吧,拜托!
解决方案 »
- Lookup查询字段问题?
- 美国中央情报局在中国的最新发现
- 用fastreport分栏打印时。怎样改变排序方式。谢谢
- 加油站收费系统
- 请问哪里有最新的delphi安装程序下载?
- 急救!
- 给公司起名字 帮帮忙 (上次的分照样给的 希望大家多多帮忙)
- 菜烏問題﹕在delphi中怎樣判斷當前是否處於邊線狀態﹖
- 如果用右击鼠标的方法来添加ListView的项目,如何使项目自动处于Editing状态,以方便改名。
- 来吧,写万能打印的同行,让我看看你的代码。
- 我想动态改变dbgrid中的显示字段的大小,应该怎样写,在线等。
- 我把FLASH的123.SWF文件做成了资源文件,但在程序中如何用FLASH控件调用呢,我在move的属性中直接输入123.SWF没有用?
还有win sdkAPI的CreateFile,具体请查MSDN。
我现在就是不想用程序去被动地控制串口读写,我想用串口主动地去控制读卡事件。也就是说当卡放在读写器上时就触发一个事件完成所有地读卡操作。 高手们请说具体点嘛,我可是菜鸟刚刚学的。拜托啦!
借你的帖子学习了。
var keychar:string;
begin
for i:=1 to leng(temp) do
begin
application.ProcessMessages;
keychar:=temp[i];
if(keychar='0')then keybd_event(48,0,0,0) ;
if(keychar='1')then keybd_event(49,0,0,0) ;
if(keychar='2')then keybd_event(50,0,0,0) ;
if(keychar='3')then keybd_event(51,0,0,0) ;
if(keychar='4')then keybd_event(52,0,0,0);
if(keychar='5')then keybd_event(53,0,0,0);
if(keychar='6')then keybd_event(54,0,0,0) ;
if(keychar='7')then keybd_event(55,0,0,0) ;
if(keychar='8')then keybd_event(56,0,0,0) ;
if(keychar='9')then keybd_event(57,0,0,0) ;
end;
为什么当有两个相邻的数据相同时只能输出一个?比如说:1222345667就只能输出位:1234567