我是阿水，特来送分。还有巨难问题（打印走纸控制）求大家帮忙

2001-11-08 10:52:04 186 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

byrybye 墨衍会员 · AI 创作全网分发关注 + 加入社区

【DRAM存储器六十七】DDR5介绍--训练相关之write leveling 详述DDR5 write leveling细节阅读详情

我要控制，喷墨打印机的走纸，
用了createfile writefile
但是，还有问题，希望大家帮
忙，最好有源码。偶很急，
看E文资料，很慢。好谢谢
大家了

...全文

Apress - Pro ASP.NET 3.5 in C# 2008 2nd.part1.rar Apress - Pro ASP.NET 3.5 in C# 2008 2nd.part1.rar 共三个包立即下载

byrybye

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

hellion 2001-11-08

打赏
举报

小新的代码中打印控制命令应该是EPSON系列的，一般喷墨、激光打印机的命令是不一样的。

byrybye 2001-11-08

打赏
举报

小心，不行呀，哪个musicsys
找不到呀

byrybye 2001-11-08

打赏
举报

谢谢小新，你真的5岁吗？？
呵呵，
我用了，
AssignFile(lpt, 'LPT1' );
ReWrite(lpt );
Writeln(lpt, '先导科技有限公司' );
write(lpt,#13);
Writeln(lpt, 'sdfsdf' );
write(lpt,#13);
Writeln(lpt, 'sdfsdf' );
write(lpt,#13);
Writeln(lpt, 'sdfsdf' );
write(lpt,#13);
Writeln(lpt, 'sdfsdf' );
//write(lpt,#13);
//Write( lpt, #12 ); //打印机换页
//这里可以改成打印机的控制进退纸的命令.
CloseFile( lpt );
可是为什么，汉字变成乱码呢？
怎么解决呀

dongys_2000 2001-11-08

打赏
举报

怎么用？

cobi 2001-11-08

打赏
举报

你之前不是发过一张帖子的吗？我也给了答案，再给一次吧：
unit DosPrinter;

// Note: Only Be Ok in Win98, and the printer must be in
// lpt1, lpt2 or lpt3;
// And Be Sure your Windows does not install the printer
//
// User Guide: Just add this unit into the "uses" clause, then you may
// call LPT1.Write, LPT1.WriteLn, LTP1.WriteFmt directly to
// make output on the printer. (LPT2 is also supported).
//
// Limitation: This unit does not have error checking capabilities.

// New added Guide:
// TDosPrinter;
// Can Check whether the printer is empty of paper, or
// printer does not linked, or other errors.
//

interface

uses Classes, SysUtils, Windows, MusicSys;

type
// 并口号
TDosLptPort = ( dpLpt1, dpLpt2, dpLpt3 );

// 错误类别, ( 未联机, 缺纸, 超时 ) 　
TErrType = ( etLinkLost, etLackPaper, etTimeout );

// 打印错误事件
TErrMsgEvent = procedure(Sender: TObject; ErrType: TErrType;
var Retry: Boolean ) of object;

TDosPrinter = class
private
FLptPort: TDosLptPort;
FOnErr: TErrMsgEvent;
FblActive: Boolean;
protected

public
Constructor Create;

procedure BeginDoc;
procedure EndDoc;
procedure DoDoubleWidth( bl: Boolean );
procedure DoDoubleHeight( bl: Boolean );
procedure DoBold( bl: Boolean );
procedure ChineseMode;
procedure DoExpress( bl: Boolean );
procedure CR;
procedure Writeln( sLine: string );
procedure Write( sLine: string );
function WriteChar( Achar: char ): Boolean;
procedure MovePaper( iSize: integer );

property Active: Boolean read FblActive;
property LptPort: TDosLptPort read FLptPort write FLptPort;
property OnErr: TErrMsgEvent read FOnErr write FOnErr;

end;

function DosLpt1: TDosPrinter;
function DosLpt2: TDosPrinter;

implementation

var
_DosLpt1: TDosPrinter = nil;
_DosLpt2: TDosPrinter = nil;

function DosLpt1: TDosPrinter;
begin
if not Assigned( _DosLpt1 ) then
begin
_DosLpt1 := TDosPrinter.Create;
_DosLpt1.LptPort := dpLpt1;
end;
result := _DosLpt1;
end;

function DosLpt2: TDosPrinter;
begin
if not Assigned( _DosLpt2 ) then
begin
_DosLpt2 := TDosPrinter.Create;
_DosLpt2.LptPort := dpLpt2;
end;
result := _DosLpt2;
end;

{ TDosPrinter }

procedure TDosPrinter.BeginDoc;
begin
// Do nothing ...
end;

procedure TDosPrinter.ChineseMode;
begin
Write( #28 + '&' );
end;

procedure TDosPrinter.CR;
begin
Write( #13 );
end;

constructor TDosPrinter.Create;
begin
FLptPort := dpLpt1;
FblActive := True;
end;

procedure TDosPrinter.DoBold(bl: Boolean);
begin
if bl then
Write( #27 + 'E' )
else
Write( #27 + 'F' );
end;

procedure TDosPrinter.DoDoubleHeight(bl: Boolean);
begin
if bl then
Write( #27 + 'w' + #1 )
else
Write( #27 + 'w' + #0 );
end;

procedure TDosPrinter.DoDoubleWidth(bl: Boolean);
begin
if bl then
Write( #27 + 'W' + #1 )
else
Write( #27 + 'W' + #0 );
end;

procedure TDosPrinter.DoExpress(bl: Boolean);
begin
if bl then
Write( #28 + 'x' + #1 )
else
Write( #28 + 'x' + #0 );
end;

procedure TDosPrinter.EndDoc;
begin
// Do nothing ...
end;

procedure TDosPrinter.MovePaper(iSize: integer);
begin
Write( #27 + 'J' + char( iSize mod 255 ) );
end;

procedure TDosPrinter.Write(sLine: string);
var
index: longint;
begin
for Index := 1 to length( sLine ) do
if not WriteChar( sLine[Index] ) then
Break;
end;

function TDosPrinter.WriteChar( AChar: char): Boolean;
var
byteChar, byteStatus: Byte;
wordLpt: Word;
bPaperOut, bSelected, bIOError, bTimeOut, bOK: Boolean;
// below is new added by Musicwind, 2001-02-08
FErrType: TErrType;
Retry: Boolean;
dwTimeOut: DWORD;
begin
result := False;

if not mscIsWin98 then
begin
FblActive := result;
Exit;
end;

byteChar := byte( AChar );
if FLptPort = dpLpt1 then
wordLpt := 0 else
if FLptPort = dpLpt2 then
wordLpt := 1 else
if FLptPort = dpLpt3 then
wordLpt := 2
else
wordLpt := 0;
repeat
retry := False;

byteStatus := $40;
while (( byteStatus and $80 ) = 0 ) and (( byteStatus and $40 ) <> 0 ) do
asm
MOV AH, 0
MOV DX, wordLpt
MOV AL, byteChar
INT 17H
MOV byteStatus, AH
end;

bTimeOut := ( byteStatus and $01 ) <> 0;
bIOError := ( byteStatus and $08 ) <> 0;
bSelected := ( byteStatus and $10 ) <> 0;
bPaperOut := ( byteStatus and $20 ) <> 0;

if bTimeOut then
FErrType := etTimeOut
else
if bSelected and bPaperOut and bIOError then
FErrType := etLackPaper
else
if bSelected and bPaperOut or bIOError then
FErrType := etLinkLost
else
begin
// Print content
result := True;

end;

if not result then
begin
Retry := False;
if Assigned( FOnErr ) then
begin
Retry := True;
FOnErr( Self, FErrType, Retry );
end;
end;
until result or not Retry;
FblActive := result;
if not FblActive then
raise Exception.Create( '打印出错!' );
end;

procedure TDosPrinter.Writeln(sLine: string);
begin
Write( sLine + #13#10 );
end;

initialization
finalization
end.

byrybye 2001-11-08

打赏
举报

谢谢大家，帮帮忙了

我是阿水，特来送分。还有巨难问题（打印走纸控制）求大家帮忙

相关推荐