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

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号中断的要求

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

专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联·云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 2015 PHP框架调查结果出炉,Laravel最受欢迎! 【CTO会员专访】KEEN创始人兼CEO王琦:在GeekPwn,遇见一极棒的安全人才 创业公司都在使用的3款Python库 深入理解Objective-C的Runtime机制 你不知的Docker 创办人兼CTO游走美法的浪漫狂放 《近匠》环信CEO刘俊彦:移动客服的未来化场景 iOS UIView动画实践(三):Transition Animation 【CTO讲堂】无社交,不App!——为App加载强大的通讯社交引擎 【探秘ES6】系列专栏(七):箭头函数 【前端框架】Backbone.js在大型单页面应用中的应用实践 【探秘ES6】系列专栏(六):解构赋值 《近匠》TestBird,专注的手游自动化云测试平台 【探秘ES6】系列专栏(八):JS的第七种基本类型Symbols 专访李林锋:我与Netty那些不得不说的事 手把手教学:巧用Core Data和RubyMotion开发iOS应用 《近匠》琥珀天气,精细化打磨征服Google Play 【CTO讲堂】人工智能到底能为我们带来什么? Linksys再度回归中国市场,主推智能路由 Windows 10:全平台战舰与移动化破冰——微软(中国)操作系统工程院院长谢育涛专访 专访友盟CEO叶谦:深挖海量终端用户数据的价值 pb中控件的问题 哪里有Notes.jar下载? 请帮帮小弟 3D和Maya的问题! pipe的性能如何?主要指的是延时... 我想作一个属性页,但如何控制各页的大小?谢谢帮助 播放完flash后,窗体卸载出现异常。除非用end来结束程序。 关于java规范 关于按钮、工具条等问题 怎么控制不能使以一个用户身份多次登录系统??? .NET 2003都直接在CLR层面支持GP了,哪位知道JDK1.5的消息? 为什么不能写服务器 请问那款手机支持wtk2.0 JBuilder8还有Weblogic版的吗?用企业版能和Jbuilder8结合好吗? 各位高手,为什么我装好VS.NET后,有帮助,而我过一段时候后,再去用,怎么会没有帮助了呢 水晶报表问题:当鼠标放在显示的字段上时,会显示“字段名称“的ToolTip提示,怎么样不让他显示提示? 2000下开发的程序在98或95上使用的问题 谁能告诉我关于文件传输的思路 怎样向数据库中添加记录? 如何自動截取上傳文件的文件名保存在數據庫里? TCHAR[32]和CString, char *之间应该如何转化? 怎样在程序里显示jpg,gif图片? 关于按钮、工具条等问题,请进来看看 有两个CTime变量,t1,t2,我想把t1的日期部分和t2的时间部分合并成一个CTime变量t3,怎么实现? 有谁知道珠海的做J2EE薪水有多少(平均水平),谢谢大家! 我编写的CORBA为何总是提示"File not found 'OrbPas.dcu'" 准备今天打辞职报告! 请教高人!!!!!!!!!!!!!!!!!!!!!!!!!!!! LINUX支持多處理器 ActiveReports P2 套打票据打几页后出现套不准,请教? 关于delphi中Label控件的字体问题?? 请问哪里有ASP+ACCESS 的查询源程序下载? 小弟需要一份详细的数据库设计说明,不知有没有人可以帮忙? 請問銀行系統一般用什麼數據庫! 请大家推荐一个方便好用的网格控件,可以编辑、保存单元格的内容,bug又少的 急死我了,这行SQL语句错在那里呢? ORACLE8I安装问题,急。。。。。。 还是这两本书110分 急救:主板CMOS故障!! 有谁知道在JBuilder中插入一副图片应该用哪个Compoent 加急问题??关于.properties!!在线等, Win2K下控制台程序处于选定状态,如何恢复? 窗口自动关闭 救命啊!严重问题!怎么老是显示E2316:TempSongList::PlayFirstSong()is not a member of 'TempSongList'? 关一个小笨蛋生存的困惑,还请各位GG、JJ一定要帮帮忙呀~~~~ Interface中添加方法的问题,请高手指教!再线讨论!! c#访问FOXPOR数据库问题 WORD求源代码加分之四 怎么样获得一个 EDIT 的 句柄 ?? 请问嵌入网页中的Activex如何调整自身的大小?请各位高手帮忙!谢谢! Oracle和SQLSERVER中5用户10用户到底是什么意思? 什么字的繁体字? 人的繁体字怎么死的 饱和碳酸钠溶液的浓度是多少g/l?常温时,碳酸钠在饱和盐水溶液中的溶解度呢? 这个繁体字怎么读啊? 利用太阳能在太空中如何运动,太阳帆及反喷作用除外. 数控车床加工铝,不锈钢,铜,紫铜,铁,45钢,铸成钢,塑料,PVC,铜 的进给量请问数控车床加工铝,不锈钢,铜,紫铜,铁,45钢,铸成钢,塑料,PVC,铜,锌 的进给量和转速还有单边吃刀量,分别是多少?就用G99 就 如何理解数学排序中隔板插空法,并举例说明. 稀硝酸中混有小量的盐酸,为了除去盐酸,可以加入适量的A、Fe B、AgNO3 C、BaCl2 D、KOH 视频监控可以用网线(双绞线)作监控线传输视频信号吗?1、实际安装视频监控中,有用网线(双绞线)作电源线的,那么可否用网线作视频线呢?2、两个摄像头“视频-”信号可以用一根线传输 铜丝如何鉴别 欲除去混在硝酸中的少量盐酸可加入适量的? 用双绞线其中2组当监控视频信号线,剩下的当电力传输线,应该怎么弄,可以直接接入220V交流传输吗?电力传输的意思就是.一头接上插头 直接插到220V电源插座上,另一头接到摄像机上的电源上然 限制性内切酶限制性内切酶是否需要解旋酶的帮助?难道内切酶既切磷酸二酯键又切氢键? 太阳帆是怎么一回事?关于航天方面的,好像是把太阳能直接转化为动能的! 25对大对数电缆端接几对双绞线 高中生物题(关于限制性内切酶)目前已经发现了200多种限制性内切酶,这些酶都有特异性,分别只能识别特定的脱氧核苷酸序列,但其切点有可能相同.因为切点是在两个脱氧核苷酸之间,最多 恒星最小的种类是什么 蓝色配红色得出什么颜色 一道生物里关于限制性内切酶的问题能识别GGTACC的限制酶一定能识别GTAC这句话出自期中统考单选题的一个选项.我个人认为这句话说反了,但是我们老师坚持认为这是对的,并且答案也选的是这 恒星种类和温度比较我知道红到蓝从冷到热 和质量有关 然后大小分红巨星什么白矮星什么的 还有黑洞和中子星 我想问他们各个性质的排行 还有相对颜色 蓝色和红色能搭配出颜色吗? 什么是数学里面的隔板法?请结合例题来说明如何使用谢谢可以麻烦你找到组合的问题来说仔细一点吗? 恒星的分类有些什么?具体介绍一下, 动物的伪装对生存有什么意义 绿色植物是怎样被破坏的 如何把木质铅笔笔芯拿出哈哈 都回答的不错 我查到了一个好方法 用水煮~一煮就开了 谢谢大家的回答 HCl先与Ag、Mg、Fe、CuO中的哪个反应将Ag、Mg、Fe、CuO组成的混合物,放入足量的盐酸中,反应后溶液呈篮绿色,过滤,滤纸上可能含有 减数分裂的 四分体是啥,是一个染色体上有4个染色单体吗?一个四分体有多少个DNA 特别粗的自动铅笔笔芯叫什么……是那种又圆又粗【噗--】,圆规上有些也是用那种的,名字叫什么呢~木几道啊就像HB的铅笔的那种 那些动物会伪装 关于限制性内切酶.在基因工程中,限制性内切酶主要用于:A.目的基因的提取和导入B.目的基因的导入和检测C.目的基因与运载体结合和导入D.目的基因的提取和与运载体的结合为什么选择D呢? 某温度下,在足量的碳酸钠饱和溶液中加入ag无水碳酸钠,可析出mg碳酸钠晶体,则m-a的值是A饱和溶液失去水的质量 B饱和溶液失去溶质的质量 C被减少饱和溶液的质量 D析出无水物的质量 能伪装的动物有哪些 太阳帆有什么作用?我想知道太阳帆有什么具体作用,再知道一下有了太阳帆给人类带来的是好处还是坏处? KCaNaMg与HCl都发生置换反应吗? 化学中关于光与光合作用这一节中光合作用制造有机物的量与光合作用积累有机物的量的区别,越详细越好. 太阳帆是怎么推动? HCL与CUSO4反应吗? 盐酸 硝酸是混合物吗? 太阳光可分解成七种单色光,且单色光是不能复分解的,但所有色光都是由三原色混合而成的,那用三棱镜可以将太阳光分解成七种单色光,且单色光是不能复分解的,但所有色光都是由三原色混 铅笔中不含铅为什么叫铅笔铅笔的型号有2B2H 过去,由于环境污染和生态平衡破坏,美国多次发生()灾难 江苏2条尼罗鳄逃走,尼罗鳄有哪些特点? 铅笔中不含铅为何叫铅笔呢 为什么说扩张性财政政策是以财政赤字为前提的 Fe3O4在反应炉中加热到多少度开始氧化 光合作用积累的有机物量判断光合作用和呼吸作用中,积累的有机物量是看瞬时净光合作用速率最大还是长期积累,但光合作用速率已降低? 有线电视线接法我刚搬到新的地方住,想从房东家里接有线电视看.我早上弄了一节线,结果接上后,房东的信号受到了很大的干扰.我家的电视也没有信号.我想问一下,我直接从房东的有线电视线 一氧化碳还原四氧化三铁的反应条件是加热还是高温?RT~ 有机物的大量积累会使光合作用减弱,为什么呢? 有线电视线断了要怎么接衰减才小?人家说的双通对接什么意思 活动铅笔笔芯2b是淡的还是浓的 人体卵细胞与精子细胞中DNA分子的化学成分与物理结构有何分别,我有一设想,假如通过人工手段进行以下操作可否得出结果,首先用一吸管将一枚卵细胞的细胞核取出,再另取一枚精子,吸出细 Fe离子+3SCN离子=Fe(SCN)3 (红)怎么反应的?又没有沉淀,为什么还是离子的他们突然就变红了呢?谁是红的? 太空中的绿色动力—太阳帆 精细胞的化学成分会更新吗是不是新陈代谢贯穿所有细胞的始终 Fe(SCN)3溶液中加入NaOH为何会产生白色沉淀? 请问(不同功率,同电压)的太阳能电池板能否并联,一块10W,一块25W 什么物质可以在太空中产生能量?太阳帆能否用导热性能好的物质快速储存巨大的能量,再进行快速转换? 水+蓝矾+甲醇+洗洁精=什么?这几样东西参一起后会发生化学反应吗?如果会的话,产物是什么?不用甲醇了,改用乙醇.水+蓝矾+已醇+洗洁精=什么? 法国与德国希望年底前就美国监听与美进菲催促尽早完成南海仲裁 妄言中国主权墨西哥北部一糖果厂爆炸20人失踪津巴布韦举行男扮女装选美大赛(组图)外媒:美国债务乱局给中国敲响“警钟”澳洲林火因澳部队实弹演习引发 强风致2014年德国机械制造领域预计将长增欧亚经济最高理事会会议召开 乌克兰入金正恩成马来西亚高校荣誉博士 为表彰李娜两连胜好假期可期:两情绪交错既兴朝鲜举行第4次连长连政治指导员大会 女子洞房时发现丈夫并非意中人 认命婚一辆载着300万货物货车高速金华西出男子向已婚女子表白被拒 生气骑摩托车费德勒巴塞尔赛继续抢分 直接对手相继美国就土中军贸再搞“小动作”白宫网页万人请愿 辱华节目被删除日本明治乳业退出中国 竞争激化成本上杭城遭遇八面“霾”伏 PM2.5为中杭州诞生“黑白配”羊驼 被称羊驼中的打破行业“潜规则” 温岭取消抵押贷款第十二届全国人民代表大会财政经济委员莫将公务员薪酬话题一棍子打死人大代表张志勇:教师是教育改革的根本河北高院提出以司法建议形式探索民生案柏继民:建议尽快启动对“较大的市”审欧阳中石做客全国两会山东演播室 现场山东团代表所提议案建议质量提高 民生代表袁敬华:修改残疾人保障法 确保残代表王文华:推动人民代表大会制度与时山东各地提早备战保春耕 种子化肥供销宋心仿建议修改食品安全法 监管部门不山东86岁复员军人践行雷锋精神 每天亲历者忆:文革中因家穷饿得受不了偷吃调查:省级两高“掌门人”七成有法学教河北钢铁PMI指数继续下探 连续6月石家庄“地铁之家”开工建设 位于西兆河北省将艾滋病机会性感染纳入新农合大国家邮政局官员:大学生脏衣寄洗成邮政昆明市长介绍暴恐案:27人已出院 1女子发帖讲述智斗色狼官员 被点名者称天津委员走上发言台:实行“行政审批默
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘