打印出错,getlasterror=6,详细内容请进.

2007-05-16 05:42:51 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

GetLastError()返回值列表 GetLastError()返回值列表: 〖0〗-操作成功完成。〖1〗-功能错误。〖2〗-系统找不到指定的文件。〖3〗-系统找不到指定的路径。〖4〗-系统无法打开文件。〖5〗-拒绝访问。〖6〗-句柄无效。〖7〗-存储控制块被损坏。〖8〗-存储空间不足，无法处理此命令。〖9〗-存储控制块地址无效。〖10〗-环境错误。〖11〗-试图加载格式错误的程序。阅读详情

var
ts:Tprinter;
s:string;
begin
try
s:=inputbox('提示','hi','');
if s='' then exit;
ts:=Tprinter.Create;
ts.BeginDoc;
//textout(p.Handle,50,69,pchar('sdfsdf'),6);
ts.Canvas.TextOut(0,0,'s');
ts.EndDoc;
ts.Free;
except
showmessage(inttostr(getlasterror));
end;
//===========
程序如上,在2003上表现正常,在2000中单独编写为程序时正常,这段代码放入另外一个程序时报错,经检测是ts.beginDoc 这行代码,getlasterror=6 无效句柄.

用api textout 同样如此,到底那里错了啊?

...全文

全志T113-S3 Linux系统移植实战：从硬件配置到内核启动全解析本文详细解析了将Linux系统移植到全志T113-S3嵌入式芯片的完整实战流程。内容涵盖从开发环境搭建、Longan SDK源码获取，到关键的U-Boot配置、DDR初始化、Linux内核编译与设备树定制，以及根文件系统构建与启动脚本分析。文章结合硬件配置与启动日志解读，提供了从硬件配置到内核启动的全方位指导，帮助开发者高效完成系统移植。阅读详情

baiduan

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

baiduan 2007-05-18

打赏
举报

但是,别的程序中,ts:=Tprinter.create都是正常的,不报错的.只有那个带钩子的打印程序
用ts:=Tprinter.create不行,而且不安装钩子,那个程序打印依然失败,在从代码看,也看不出来什么,真是奇怪了....

Elysium 2007-05-17

打赏
举报

要么直接uses Printers，要么检查你的那个出错的程序里去掉uses Printers看看

baiduan 2007-05-17

打赏
举报

writetofile 不适合,我要定位文字的坐标.

直接用function printer:Tprinter 也不行.
如果是vb倒可以,可是delphi中这个函数返回Tprinter
类,效果和ts:=Tprinter.create是一样的.正确用法如下:
var
i:integer;
begin
printer.BeginDoc; //依然要调用beginDoc
for i:=0 to 10 do
begin
//textout(p.Handle,50,69,pchar('sdfsdf'),6);
printer.Canvas.TextOut(50,69*(i+1),'haha,I finally it');
end;
printer.EndDoc;
end;
这样用才可以,否则报错.

我的错误关键在于:
------
在2003上表现正常,在2000中单独编写为程序时正常,这段代码放入另外一个程序时报错,
------
那段代码独立出来是正常的执行的!!!

放入另外程序中就错了,那个程序调用了WH_JOURNALRECORD钩子,
但是调试的时候我关闭了这个钩子,错误一样存在.

chenzhuo 2007-05-17

打赏
举报

uses Printers;单元的时候
直接用Printer就行了,不用再手工去创建;
他的定义是:
function Printer: TPrinter;
begin
if FPrinter = nil then FPrinter := TPrinter.Create;
Result := FPrinter;
end;

flexlonger 2007-05-17

打赏
举报

没有必要这样打印吧？

直接打印就行了

为何要 ts:=Tprinter.Create？

printer.Canvas.TextOut(0,0,'s') 就可以。

Elysium 2007-05-17

打赏
举报

呵呵Printer默认是一个全局的打印变量，你的create以后的是你自己的一个临时变量，不是由系统维护的，而function printer应该返回的是全局变量的引用

baiduan 2007-05-17

打赏
举报

wo kao,很多事情真没办法解释,
function Printer: TPrinter;
begin
if FPrinter = nil then FPrinter := TPrinter.Create;
Result := FPrinter;
end;

看代码function printer和ts:=Tprinter.create效果一样,但是用ts报错,
用printer不报错.

IDWB 2007-05-16

打赏
举报

用writetofile试试
把端口看成文件

打印出错,getlasterror=6,详细内容请进.

相关推荐