用delphi控制小票打印机打印图片
unit PosPrintBmp;
{***********************************************************************}
{ 单元名称：PosPrintBmp 小票打印机打印图片的类 }
{ }
{ 创建人：李红雷 }
{ 日期：.2 }
{ 修改人： }
{ 日期： }
{ 功能：GetDocument函数 得到图片的字节数组 }
{ 属性ByteLen 得到字节数组的长度 }
{ 用法: PosPrintBmp := TPosPrintBmp.Create(FPicName);
}
{ try }
{ PrintPic := PosPrintBmp.GetDocument;
}
{ gLen
:= PosPrintBmp.ByteLen; }
{ WritePrinter(hprinter, @PrintPic, gLen, N);
}
{ finally
}
{ PosPrintBmp.Free; }
{ end; }
{***********************************************************************}
interface
uses
Windows, SysUtils, Classes, Graphics,
jpeg;
const
Nul: Char = #0;
FormFeed: Char = #12;
Escape: Char = #27;
Newline: Char = #10;
GroupSeparator: Char = #29;
HorizontalTab: Char = #9;
CarriageReturn: Char = #13;
Cancel: Char = #24;
DataLinkEscape: Char = #16;
EndOfTransmission: Char = #4;
FileSeparator: Char = #28;
Sat: Char = #64; //@
Sv: Char = #86; //V
S66: Char = #66;
S3: Char = #51;
Sx: Char = #42; //*
S24: Char = #24;
S33: Char = #33;
S30: Char = #30;
S3_1: Char = #3;
type
TData = packed record
Dots: array of
Boolean;
Height, Width:
Integer;
end;
TPosPrintBmp = class(TObject)
private
FLen: Integer;
FPicName: string;
function
GetBitmapData(PicName: string): TData;
procedure RenderLogo(out
fms: TMemoryStream);
public
constructor Create(const
AFileName: string);
function GetDocument:
TByteArray; //得到图片的字节数组
published
property ByteLen: Integer
read FLen; //字节数组的长度
end;
implementation
constructor TPosPrintBmp.Create(const AFileName: string);
begin
inherited Create;
FPicName := AFileName;
end;
function TPosPrintBmp.GetBitmapData(PicName: string): TData;
const
threshold: Integer = 127;
var
Bmp: TBitmap;
index, dimensions, x, y, luminance:
Integer;
dots: array of Boolean;
AData: TData;
RGB: TColor;
RC, GC, BC: Byte;
jpeg: TJPEGImage;
begin
index := 0;
Bmp := TBitmap.Create;
try
if
UpperCase(ExtractFileExt(PicName)) = '.JPG' then
begin
jpeg :=
TJPEGImage.Create;
try
jpeg.LoadFromFile(PicName);
Bmp.Assign(jpeg);
finally
jpeg.Free;
end
end else
Bmp.LoadFromFile(PicName);
dimensions := Bmp.Width *
Bmp.Height;
SetLength(dots,
dimensions);
for y := 0 to Bmp.Height -
1 do
begin
for x
:= 0 to Bmp.Width - 1 do
begin
RGB := Bmp.Canvas.Pixels[x, y];
RC := RGB and $FF;
GC := RGB and $FF00 shr 8;
BC := RGB and $FF0000 shr 16;
luminance := Round(RC * 0.3 + GC * 0.59 + BC *
0.11);
dots[index] := (luminance <
threshold);
Inc(index);
end;
end;
finally
AData.Height :=
Bmp.Height;
AData.Width :=
Bmp.Width;
SetLength(AData.Dots,
Length(dots));
Move(dots[0],
AData.Dots[0], Length(dots));
Bmp.Free;
end;
Result := AData;
end;
procedure TPosPrintBmp.RenderLogo(out fms: TMemoryStream);
var
Data: TData;
FDots: array of Boolean;
offset, I, K, b, x, y, tmpint, M:
Integer;
v: Boolean;
slice: Byte;
FWidth: array of Byte;
begin
Data := GetBitmapData(FPicName);
SetLength(FDots, Length(Data.Dots));
Move(Data.Dots[0], FDots[0],
Length(Data.Dots));
SetLength(FWidth, 4);
FWidth[0] := Data.Width and $FF;
FWidth[1] := Data.Width and $FF00 shr 8;
FWidth[2] := Data.Width and $FF0000 shr
16;
FWidth[3] := Data.Width and $FF000000 shr
24;
fms.Write(Newline, 1);
fms.Write(Escape, 1);
fms.Write(s3, 1);
fms.Write(S24, 1);
offset := 0;
OutputDebugString(PChar('offset=' +
IntToStr(offset)));
while (offset < Data.Height)
do
begin
fms.Write(Escape, 1);
fms.Write(Sx, 1);
// bit-image mode
fms.Write(S33, 1);
// 24-dot double-density
fms.Write(FWidth[0], 1);
// width low byte
fms.Write(FWidth[1], 1);
// width high byte
for x := 0 to data.Width -
1 do
begin
for K
:= 0 to 2 do
begin
slice := 0;
for b := 0 to 7 do
begin
y := (((offset div 8) + k) *
8) + b;
i := (y * data.Width) +
x;
v := False;
if (I <
Length(Data.Dots)) then
v :=
FDots[I];
tmpint := 7 - b;
if v then
M := 1 shl
tmpint
else
M := 0 shl
tmpint;
slice := slice or M;
end;
fms.Write(slice, 1);
end;
end;
Inc(offset, 24);
if offset <
Data.Height then // 去掉结束空行
fms.Write(Newline, 1);
end;
// Restore the line spacing to the default of
30 dots.
fms.Write(Escape, 1);
fms.Write(S3, 1);
fms.Write(S30, 1);
end;
function TPosPrintBmp.GetDocument: TByteArray;
var
ms: TMemoryStream;
TmpBA: TByteArray;
begin
ms := TMemoryStream.Create;
try
ms.Write(Escape, 1);
ms.Write(Sat, 1);
RenderLogo(ms);
//ms.Write(GroupSeparator,
1);
//ms.Write(Sv, 1);
//ms.Write(S66, 1);
//ms.Write(S3_1, 1);
ms.Write(Newline, 1);
ms.Position := 0;
FLen := ms.Size;
ms.ReadBuffer(TmpBA[0],
ms.Size);
finally
ms.Free;
end;
Result := TmpBA;
end;
end.
