说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Windows环境下实时列表输出的实现方法-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
Windows环境下实时列表输出的实现方法-Delphi资料

Windows环境下的实时采集越来越多

但如何实现一台计算机控制下的两台打印机或多台打印机分时输出却困难重重

这主要是由于Windows的页式输出方式造成的。

左图所示是一个基本的数据采集系统的模型

各种信号通过信号电缆送入数据采集计算机

计算机对这些信号进行处理后派生出其它一些参数

同时在显示器上显示出相应的数字及曲线。左侧的打印机EPSON LQ1600设为LPT1

右侧的打印机BJ600C为LPT2

通过下面的DLL(用Delphi写成则可以轻松地实现任一打印机的实时数字输出。

LIBRARY MYDLL;

VAR CHARAL

PORTDX:BYTE;

FUNCTION PRINTCHAR(CHARAL

PORTDX:BYTE):INTEGER;EXPORT;

BEGIN;

ASM;

MOV AL

CHARAL

MOV DL

PORTDX

MOV AH

00H

INT 17H

MOV CHARAL

AH

END;

PRINTCHAR:=CHARAL;

END;

FUNCTION PRINTINIT (PORTDX:BYTE):INTEGER;EXPORT;

BEGIN;

ASM;

MOV DL

PORTDX

MOV AH

01H

INT 17H

MOV AH

CHARAL

END;

PRINTINIT:=CHARAL;

END;

EXPORTS

PRINTCHAR INDEX 1;

PRINTINIT INDEX 2;

BEGIN

END.

上面的DLL包括了PRINTCHAR和PRINTINT两个函数

分别用于字符输出和打印机初始化。我们给它起个名字为MYDLL.DPR

在Delphi下编译后便可生产MYDLL.DLL

将其拷入Windows的SYSTEM子目录之下就可以为其它程序所调用了。

在VB环境下调用此DLL非常容易

按VB的要求

首先在MODULE中定义这两个函数:

DECLARE FUNCTION PRINTCHAR LIB"MYDLL.DLL"(BYVAL PORT_ASCII AS INTEGER

BYVAL PORT_ADD AS INTEGER) AS INTEGERDECLARE FUNCTION PRINTINIT LIB"MYDLL.DLL"(BYVAL PORT_ADD AS INTEGER) AS INTEGER在VB的COMMAND或其它按钮的CLICK过程中运行下面的D elphi代码(假定Windows的DEFAULT打印机定义在LPT2上

纸张为A4):

DIM PRINTER1

PRINTER2 AS INTEGER

DIM OUTSTRING AS STRING

PRINTER1=0:PRINTER2=1

OUTSTRING="打印机直接输出测试程序"

PRINTER.SCALEMODE=6

PRINTER.FONTNAME="SYSTEM"

PRINTER.FONTSIZE=9.75

FOR I=1 TO 50

PRINTER.PRINT FORMAT$(I

####.##

)

FOR J=1 TO LEN(OUTSTRING)

OUTCHAR%=ASC(MID$(OUTSTRING

J

1))

OUTPORT%=PRINTER1

R%=PRINTCHAR(OUTCHAR%

OUTPORT%)

NEXT J

OUTCHAR%=&HOD

OUTPORT%=PRINTER1

R%=PRINTCHAR(OUTCHAR%

OUTPORT%)

NEXT I

PRINTER.ENDDOC

在PRINTER1上可以见到连续的输出

由于打印机具有汉字库

因此

可以实现中英文混合输出。而PRINTER2因未遇到PRINTER.ENDDOC

所以不能打印输出。

上面的程序适合于所有打印机端口

完全符合17号中断的要求

因此可以较好地完成打印工作。

Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass Windows 8.1重新推出的“开始按钮”毫无意义 手眼并用 代码泄露三种Google Glass手势操作 Google新论文 CPI²:基于Linux的世界级跨数据中心服务器CPU监控 20款非常实用的Web工具和资源列表 数据库界大事件 随机写性能巨好的TokuDB开源了 CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 Verizon研究显示:中国成为2012年度网络间谍攻击的主要来源 Clang宣布全面支持C++11标准 北大陈钟:SEMAT—中国软件工程发展的新机遇 超华尔街预期:苹果第二财季营收为436亿美元 跨平台游戏引擎Spaceport已被Facebook收购 文科生开发GPU数据库 性能超传统数据库70倍 开发者赚了90亿:从苹果Q2财报,看iOS生态 备受开发者青睐的13款热门开源项目 Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 为什么:Google Glass只能运行Web应用? 对话Rackspace高级副总裁Jim Curry:我们没有"辜负"营销炒作 7个大数据流言——避免错误的Hadoop和云分析决策 Facebook vs. Google:撇开搜索,数据中心产业上的又一竞技 苹果将于6月10日召开WWDC 新版OS X和iOS或将面世 无聊啊无聊 写一个最简单的,能调试FSO在服务器上是否有权限??? 请问如何检查远程计算机有没有某一个文件 SOS,问题不难,帮帮新手! 放分,给回复时间离2003-06-06 17:20:00最近的人. 哪里有windows xp sp1+vlk 版的下载? 关于JSP和SERVLET 请问哪里有关于directShow的论坛? Delphi5.0 & Paradox 域的本机模式和混合模式都指的事什么 老师要求编写五子棋的程序可是我实在想不出该怎么设定估价函数啊帮帮忙啊? 关于客户端和服务器端连接的问题 在C书上看到这个题目,不会,请高手帮忙解决一下:) submit与frame 焦点移动的问题……(高分求助)!(--已经发过一次了) 微软,我该如何跟随你?(来讨论一下,没分送哦) 关于Request的问题 向高手请教一些专业网址! 网络IP前后不一样 如何查看csdn的精华帖子? [原创]VC#.NET:XML代码注释在智能感应中的使用 怎样在WIN98下不重新启动就可以删除打印处理器文件? 批量复制数据问题,access数据库 在页面中现实数据库的一个字段(大量的文本),用什么最好?? 一些问题,希望大家给点指点! 谁有那种实现股票走势图/趋势图的那种控件 如何控制随意修改个人IP地址 如何叠加两幅大小相等的图片成为一幅图片?其中上面的图片有透明的部分。 请教一个小小的时钟程序 爱情?亲情?友情? COM+问题 请问有关group by,并且insert数据的问题. 如何设置edit中的内容自动折行,能出现垂直滚动条???在线等待!!! 关于在DLL中使用Mscom控件的问题 如何將字符串以十六進制的形式顯示在Edit中 关于SOCK5代理服务器的第二次协商问题? 为什么oracle的sql语句的表名必须加“”??? 谁能解决工具条中的一问题?50分相送 ##### 100分求教:如何实现框架集下页面的定向输出?##### 菜单菜单!!! 如何用Schema验证XML文档 JSP中jsp文件和bean的class文件的相对位置是怎么样啊? excel中的两个问题:1、如何关闭userForm1窗口?2、如何在打开userForm1窗口时使主窗口最小化? Dll函数问题 咋判断用户点的四点能围成一个四边形? 网站中的某一页嵌入VB的AtiveX 控件,客户端能访问网站,但不能打开AtiveX控件。。。高分 请问怎么把 string 型转换成 System.Data.SqlDbType 型? 机器无法启动 主板有问题吗 高分请教 创建不了C#Web项目,急!!!(刚学C#) [求助] 用fopen函数读不出URL文件? 雪糕里为什么有盐昨天看电视里说吃雪糕吃多了不好,因为雪糕里含有盐,摄入多了会得病,我想知道为什么雪糕里要含有盐 美不胜收是怎么一番景象,请你用几句话描绘一下,40字左右快·······大哥大姐,求求求你们了,不然小妹就······· 什么是动滑轮和定滑轮? 菜为什么要放盐DDDJJDJD 美不胜收是怎样一番景色,请你用几句话描绘一下 驱动力怎么样 相对于原子而言,原子核所占空间有多大? 用山清水秀,美不胜收,万紫千红写几句描写风景秀丽话.作业本上划了4条线,估计50字多一点. 为什么说推动例子跨膜扩散的是化学驱动力 原子由原子核和绕核旋转的 构成,虽然原子的绝大部分空间是被 所占这是一道物理题 写几句话,40字左右.在军训中肯定遇到过困难,你是怎样克服的?请简要说出理由. 求表达爱慕的古诗诗句.诗中要隐含白耀和许心蕊.希望可以在最近几天解决. 我国取得的世界之最 关于薛定谔的猫 有没有人有比较独到的体会领悟~求教 经典量子物理学说 反义词:枯燥 通俗 爱慕 慈祥还有近意词:教诲 激励 惩罚的反义词是什么? 下列物质合成时,均需要模板的是A.磷脂和蛋白质 B.生长激素和受体 C.性激素和胰岛素 D.DNA和酶 受体也是糖蛋白,蛋白质应该需要模板呀?性激素是固醇,固醇有好多种也应需模板呀? 求物理小故事 快恩...一个物理小故事..几百字就好..最好是有关初中物理知识的......精彩点的... 惩罚反义词 烟囱帽怎么放样底下直径500 怎么计算下料尺寸 如果直径没给 给的是角度 比如30度角又该如何计算下料尺寸 为什么一个橡皮泥可以沉底,但是把它捏成一个船型的就可以漂浮呢,谁能用阿基米德原来解释. 在101325PA,373K下,18GH2O(L)汽化成H2O(G),吸热40.58KJ,计算该过程的热力学能与熵的变化量 下列物质中由基因直接指导合成的是性激素 胰岛素 维生素d 肝糖原 学霸快到这里来 惩罚的反义词两个. 下列物质的合成,需要模板的是A.DNA和酶B.磷脂和蛋白质C.脂肪和胰岛素D.葡萄糖和性激素 为何促织中“操童子业”作读书解?是不是有来由呢? H2O在气、液、固三相共存时,其压力和温度分别为 a、105Pa,0.01℃ b、 101325Pa,0.01℃ c、 一根绳子长2米,用去全长1/3,还剩下( ) (.Y.)这个图案有什么无解操含义? 某物质的水溶液阳离子只有H+一定是酸吗?请各位多多帮忙! 一根绳子长6米,剪去2米,还剩下全长的()% 手操器和变送器通讯时,为什么要串联250欧电阻, 酸溶液中的阳离子 检查发现血蛋白太低了!应该怎么才让血蛋白升得快呢? 为什么c离子的化合价是Mn离子的0.4倍? 歌颂教师的文章(短一点的)稍短一点,要抄的,多了抄不完, 一根绳子长8米,先剪去它的20%,再减去75%,还剩几米 人在全氧的环境下能活吗? 在遗传中杂合子与纯合子哪种更优秀 为测量一烟囱高度,在地面上选一直线上三点A. B. C已知|AB|=90m,|BC|=30m,|AC|=120m,在A,B,C三点测出烟囱顶部的仰角分别为45°,60°,60°,若A,B,C三个测量点的高度均为1.5m,求烟囱的高度.要详解答案是 58. Na有几种化合价?它的最高化合价和最低化合价分别是多少?是学到高中电子排部式时的课后习题……说是...Na有几种化合价?它的最高化合价和最低化合价分别是多少?是学到高中电子排部式时 分别写出纯合子和杂合子的特点 RT 下午2时,小红在操场上插一根1m高的竹竿,量得竹竿的影长是0.8米,在同一时刻,小红量得一棵树的影长为5.6m,你能算出这棵树的实际高度吗?在同一时刻,小华也在操场上插了根3米长的竹竿,你知道 遗传概率计算,显隐性纯合子和杂合子比例某学校生物小组在一块较为封闭的低洼地里发现了一些野生植株,这些植株的花色有红色和白色两种,叶片有宽叶和窄叶两种.同学们分析两组对该植物 为什么在相同条件下(等压等温)气体的体积比等于物质量之比 下午2时,小红在操场上插了一根1m高的竹竿,量得竹竿的影长0.8m,在同一时刻,小红量得一棵树的影长为5.6m,你能算出这棵树的实际高度吗?在同一时刻,小华也在操场上插了一根3m长的竹竿,你知道 为什么企鹅的脚不怕冷 冰激凌和冰淇淋有什么区别?加盟冰淇淋是否有前景 下午2时,小红在操场上插了一根1m高的竹竿,量得竹竿的影长是0.8m,在同一时刻,小红量得一棵树的影长为5.6m这棵树的实际高度是多少?同一时刻,小华也在操场上插了一棵3m长的竹竿,这小华竹竿 关于狐臭遗传中的:杂合子, Nathome是不是有款冰淇淋机?怎么样真的可以做冰淇淋? ABCDE分别是什么 仿写句子:在罗伯特·骚塞眼里,妇女是小草,男人是大树.在我眼里,(),() 函数奇偶性 问下这个解析式怎么列的 随着山势,溪流时而宽,时而窄,时而缓,时而急,溪声也时时变换调子 这句话从声音的角度描写景物,运用的修辞方法( )A比喻B拟人C夸张 新中国取得的世界之最有哪些? 为什么企鹅不怕冷? 相同温度下,下列实验过程中,溶液的浓度和质量始终不变的是 A.向浓度盐酸中持续通入干燥洁净的空气 B.A.向浓度盐酸中持续通入干燥洁净的空气B.向KNO3饱和溶液中加入ngKNO3晶体C.向质 洛杉矶国际机场发生枪击事件 嫌犯被执广西岑溪炮竹厂爆炸已致11死17伤斯诺登密会德议员 称愿为NSA窃听事广西炮竹厂爆炸死亡人数升至11人 责俄总理:美国窃听外国领导人的行为“无广西炮竹厂爆炸死者家属:听到爆炸声意莫斯科市民发起“落叶保卫战”F-35首射空空导弹182米高印开建世界最高塑像92人渴死沙漠 尼日尔全国哀悼“监听丑闻让美陷道德危机”伊拉克10月恐怖袭击暴力冲突致死近千洛杉矶国际机场发生枪击事件 至少两人洛杉矶国际机场发生枪击事件 一嫌疑人希腊首都雅典发生枪击事件美国三大汽车制造商10月销量普增巴基斯坦塔利班证实其头目被美军无人机洛杉矶国际机场发生枪击事件 一嫌疑人洛杉矶国际机场发生枪击事件 嫌犯被执洛杉矶机场枪击案至少3人受伤 包括一洛杉矶国际机场发生枪击事件 至少两人民盟思想宣传工作暨学习实践活动推动会天天快递乱象:你包裹里东西可能被摸过新疆脑瘫小伙没上一天学 做电商月薪三天合联盟北京新贵宾休息室将启用广铁集团16日启动明年春运外来工团体江苏省政府投资基金运行一年完成对外投海南环岛高铁优化调整 本月底全部换新刘赐贵主持召开专题会 研究环岛高铁优近两千河蟹沪上角逐“奥斯卡” 蟹王蟹WDSF大奖赛总决赛暨第五届中国体育世界互联网大会开幕在即 创新驱动普惠广州重奖引进汽车制造业项目 最高奖励永远的女红军 中国工农红军长征胜利中日专家在北京共商人口老龄化应对之策公安部举办部直属机关局级领导干部培训全国公安应急保障工作会议暨“先锋20“先锋2016”全国公安应急保障演练“恒爱行动”启动 2100斤爱心毛线揭秘灯塔守望者的驻岛生活:全部生活家【网络强国】践行中国特色“治网之道”举行应急演练 明日下午嘉陵江黄花园大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘