Question

谁懂Delphi7.0的帮写个程序写完发给我wangrui_7553@163.com

针式打印机在日常办公中仍大量使用，它不像激光或喷墨打印机，可以自动开始打印，所以我们在开始打印文档前，必须要手动联机。常用办公软件不具备自动联机功能，如何编程控制打印机自动联机，免去“举手之劳”呢？下面通过在Delphi中调用汇编语言实现。

　　1、新建工程

　　在窗体中添加一个按钮控件Button1和一个标签控件Label1，设置Button1的Caption为“自动联机”，Label1的Caption为“注意：自动联机将清除正在打印的文档”。

　　2、Button1的Click事件代码：

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　 asm

　　 //设置打印口为LPT1

　　 mov dx,0H;

　　 //初始化打印机

　　 mov ah,01H;

　　 //功能调用

　　 int 17H;

　　end;

　　end;

　　说明：运行程序后，单击按钮，无论打印机当前状态如何，都能够保证自动联机，同时清空打印机缓冲区,使打印头复位。以上程序在Win 98，Delphi 5.0中调试通过，成功实现了控制多种型号针式打印机自动联机。

Answer 1

DELPHI与汇编混合变成哦，你好不如直接用汇编语言来写算了。

Answer 2

按照你的要求写完了，也发完了，好不好使，不知道。感觉不太对

追问

收到了 打不开提示access violation at address 0044eac2 in module project1.exe read of address ffffffff
我翻译了下 违反模块project1.exe0044eac2的地址访问的地址FFFFFFFF读取
不知道为什么

Answer 3

你要编译好的EXE?

追问

我不太懂 就是编好了 能让我的打印机自动联机就行