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

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

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

打造最佳开发团队的几点建议 Facebook与开发者交恶 扼杀第三方应用 负载大逃亡:四十二路怪兽联军及七条逃生法则 那些年,MIT技术男们奇妙的黑客作品 深度分析:腾讯3.3亿美元收购Epic股份值吗? 传下一代iOS或将推行扁平化设计 iOS开发者注意:苹果将拒绝访问UDID的应用上架 领先Google、Amazon、Dropbox,Apple云存储用户最多 传IBM重新设计晶体管 预计五至七年内成熟 快讯:云计算大会6月召开 云计算概念企业股票飙升 集成开发环境:Qt Creator 2.7.0发布 移动周报:“今日头条”CEO,爱冒险的技术宅 从China Daily的iPad版,看中国纸媒如何摆脱“旧情结” 天睿推出大数据探索平台:“开箱即用”的数据分析 Basho开源Riak CS,与AWS S3兼容的云存储架构 MongoDB Days北京杂记 VMware携手亿阳信通 铺垫混合服务 行业应用,移动优先:移动难七大痛点剖析 HTML5开发必备:游戏开发资源合集 老而弥坚:65岁传奇Android工程师谈开发 2013中国云计算有奖大调查,每周大奖等你拿! Google Reader之死另一个不为人知的原因 小团队谈推广:豆果、金山、微博易、面包旅行 敏捷实战:如何让团队迭代交付周期缩短一半 移动设备管理初创公司AirWatch:首轮融资2亿美元 New Relic:不等应用崩溃,实时监控你的App! Zynga力挽狂澜三步棋:移动+授权+自有网络 巧用MapReduce+HDFS,海量数据去重的五大策略 革自己的命?为带来一致体验 IE11伪装FireFox 最古老的Linux发行版Slackware以及Arch Linux齐弃MySQL JEECG v2.3 发布,基于代码生成器的智能开发框架 如何在VB中调用Winzip?(不用插件) 求助:关于treeview的右键点击选中的问题。。。 小弟才學 JavaMail 安書上的例子寫了下面的代碼 編譯通過但是 運行不了 幫忙看看!!!! 虚函数是什么意思。 delphi5的sql语句 请教。Windows CE Services 怎么用。我有一张盘,不知用法。 [老问题]如何对并口进行操作?300分。----------------- 请问Java TM Programming Language中的TM(在Java的右角上)是什么意思啊? 这样的程序界面应该如何做?紧急求助!!! HelloImpl err: Cannot connect to ORB 是怎么回事呢? Source Insight3.1使用问题?正确解答者150分 哪儿有《The art of computer programming》下载? C++編程思想 各位情场高人,帮小弟一把,怎么把这个MM约出来,出个主意,俺先谢谢大家了!!! 我需要JAVA-JDBC打开数据库的例子.................... 谁有Delphi编译错误信息对照表,有中文注解的最好---50分 请问在SQLSERVER2000中如何在检索数据是将两个字段合并成一个字段,用“||”吗? 数据库的重定向问题! 关于使用资源 QRRichText 打印如果页数很多(2页以上),就打印不完全,但打印预览中可以看到全部,为什么? 我有一个弱弱问题要问。。。 在C#中如何做ToolWindow属性的WinForms?????????? 怎样才能将静态文本框的背景色设置为透明的? 实时错误“480”,不能创建AUTOREDRAW图象,如何解决?把PICTUREBOX定义太大会产生这个错误,不能绘图! COOL!COOL! 序列的一系列问题 劳烦各位介绍一下业界最流行实用的汇编,C语言编译器,我是在校生急需指导! Rebar 移动的问题!烦死我了! 高手留步:请问VC中获取当天日期的函数是???还有比较两个日期所差天数用什么函数??? 请问怎样才能将vb中的date型的内容转化为sql server的datetime型呀,谢谢大家了 请问,怎样在 FLAH5 中直接插入 MP3,并改变 MP3 的音质? 利用delphi连接远程sybase数据库,在多用户操作情况下为什么会产生数据库死锁 看了一下SL275(2001年5月)的课程概述,发现里面没有了Applet了,SCJP是不是舍弃了它了? 有关JAVA的Package,ClassPath的讨论,诸位看过来 COOL!COOL!COOL! what's wrong with the SOCKET define? 使用vb通过NotesSQL for odbc连接过domino数据库时总出现如下错误“ [Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLAllocHandle on SQL_HANDLE_ENV 失败”,有谁遇到过吗?如何解决? 在SDK中,如何判断对话框中的CheckBox是否选中? 请教如何修改如何提交数据(一对多的表) 如何在delphi里实现文件(比如文本文件)从一台机器传递到另一台机器?比较急! 不知道主板集成声卡的型号,又没有驱动程序?怎么办?主板是ASUS CUSL2,I815E CHIPSET 想问问大家pb自带的例子中有没有关于权限的例子 怎么样吧jpg图片转成ico?????? 听说程序员结婚生孩子多数会是女孩,是不是真的?,好像与辐射有关哦 那里有windoes版的ftp源码 不知道主板集成声卡的型号,又没有驱动程序?怎么办? 主板是ASUS CUSL2 ,I815E CHIPSET 请问哪里有编写多线程安全对象的资料?(72分) 通过界面输入大量数据,界面如何设计??? 在Red hat 7.1如何安装GBK字符集! Focus(老鱼)回答得50分 请教网站的建设计划如何写呀? 新题型的英语四级各部分的分值是多少? (X/10)(X/10)=(6-X*X)/36 学信网可以查英语四级网考成绩吗看好了是四级网考成绩哟 2009年六月的英语四级成绩什么时候能出来? 小白加小白等于什么? 设A=根号5-根号6,B=根号6-根号7,A,B的大小关系 2009年6月的英语四级成绩什么时候出来 小白加小白等于啥? 小白加小白等于什么呢? 解方程:2x-3分之4=2分之1 3分之1x+5=13 三次根号9与根号3的大小 求含字母的绝对值化简 2道 快 2009年6月四级成绩什么时候出来?如题.、 在有理数中,最小的正整数是什么?,最大的负整数?,绝对值最小的数是? 化简有绝对值的带字母的式子的规律 09年6月英语四级成绩什么时候查得到在哪查、PS :我是江西的 十进制数转换成八进制数正数我会转换,主要是十进制的负数 转换成八进制数.例如十进制数-111转成8进制数.本人菜鸟,请写出计算过程.请问,八进制数、十六进制数,在计算机里占两个字节的空 初一的化简绝对值题目(带字母的) 快点啊,多谢啦! 什么时候可以知道2009年6月英语四级的成绩 如何将十进制数转换成八进制数? 已知b=根号(a-3)+根号(3-a)+根号8 试比较a、b的大小 灵异事件解答有时睡觉的时候突然醒了 意识清醒的状态下 我自己总是觉得身体里有东西老是想往外飘 但每次快飘出身体的时候总被拉回来 有时反反复复次 我想请问下这是怎么回事? 1、十进制数59转换成八进制数是 (4)有一个数是123,它与十六进制数53相等,那么该数值是A)八进制数; B)十进制数; C)五进制 ; D)二进制数A 绝对是灵异事件,我带手机上学,每天晚上回到家,装手机的袋子那链子总是拉开,我是坐车回来的,下车的时候还是拉着的,连续几天了,难道真的有鬼 八进制转十进制怎么转啊?八进制数1507 一个数是123,它与十六进制数53相等那么该数是几进制的?怎么个算法? 这件事过去了快一年了!本该早已忘记,不过我经常想起,也无法理解所以想请高手帮我解答下!事情是这样的,那天晚上陪朋友在网吧里等人大概等到12点她朋友才来!然后我自己一个人回家~网吧 英语四级成绩证明什么样子 有一个数是123,它与十六进制53相等的数值是多少?我很着急,计算过程也要, 3倍的根号0.2+4倍的根号125+根号27分之1—根号75 比较大小 π和22/7 根号3和5/3 (ax+by)^2-(ay+bx)^2 08.06英语四级各题型的分数及总分听力,阅读,综合,写作各自的满分为多少?总分为多少? 谁能帮我解答灵异事件?昨天晚上做梦梦到左手的玉镯子碎了,今天老公下班回家告诉我他今天抽完烟仍烟头市烟头居然立住了,他觉得很有意思还拍了照片留纪念呢,但是我很忐忑.上网查了我 比较大小:根号22___5(填“大于”或“小于”求值 ±根号4又25分21= 给做几道题咯 一、 (3X-1)的平方等于3,求X?二、三次根号下64分之37 减1 减去 根号下1减16分之7三、(3倍根号2+2倍根号3)的平方-(1+根号2)(2减根号3) 大家帮个忙,最好附带讲解! 计算0.75^-1×(根号下3/2)^1/2×(27/4)^1/4+10(根号下3-2)^-1+1 小白加小白等于什么 词语巧搭配(骂人的和发鬼故事的绕道,否则.)( )地吹着 ( )地说道 ( )的脸蛋 ( )的哈欠( )地问起 ( )地记住 ( )的蜡烛 ( )的柴房 是个灵异事件 有人问我小白加小白等于什么 用梦寐以求、黄粱美梦、闷闷不乐造句(发鬼故事、骂人、绕道的走) 如果x+5=10.那x是多少, 小白加小白等于什么呢? 方程2X+5=8的解是1.5.这句话这样说对不对. (x+3):5=10:5 小白加小白等于……… 5.4+2X=8.6 这个方程怎么解? 英语六级要比英语四级难很多么?我还想知道英语六级的 具体做题顺序 是不是还像四级一样 分AB卷 而且是分开收 2013年十月网考四级成绩怎么查询? 拜托大家帮帮我(1)3次根号-8-根号9+根号2(根号2-1)+根号2分之根号8(1)3次根号-8-根号9+根号2(根号2-1)+根号2分之根号8 (2)根号3分之根号8×根号6+根号2分之根号8+根号6 明天老师就要查了,可 介绍一下英语四级的考法.本人大学本科自考,现要考英语四级.但我英语实在是不行.有没有社会考生的考法,或者是其他有效可行的途径. 2012年5月份的四级网考成绩怎么查?官网说7月15出成绩,怎么查?是五月四级网考! 已知x+y=a,xy=b(b不等于0),用含a,b的式子表示下列各式1、x2+y2=2、x3+y3= 评析我的英语四级,望指教我的英语4级的成绩总分是:464听力:169阅读:157综合:47写作:91,哪位可以帮我分析下我的薄弱项吗?我对四级的评分不是熟悉-想继续考6级-望各位能给我些建议,先 网考四级怎么查啊是网考,希望大侠不要弄混了 0.5(2x+8)=13解方程,有回答一定采纳 如何解(x-0.3)分之36-x分之36=4 大学英语四级网考能查成绩吗怎莫不能查啊
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn