58 lines
1.9 KiB
ObjectPascal
58 lines
1.9 KiB
ObjectPascal
|
unit Unit1;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, StdCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TForm1 = class(TForm)
|
||
|
|
Label1: TLabel;
|
||
|
|
Button1: TButton;
|
||
|
|
Button2: TButton;
|
||
|
|
procedure Button2Click(Sender: TObject);
|
||
|
|
procedure Button1Click(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
Form1: TForm1;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
function Z_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
function Z_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
function Z_Print_Out ( copypiece:integer;sets:integer):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
function Z_Prn_Text ( x,y,ori:integer;font:char;width,hight,increase:integer;data:pchar):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
function Z_Prn_Barcode ( x,y,ori,narrow,width,height:integer;typee:char;increase:integer;data:pchar;p1,p2,p3,p4,p5:char):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
function Z_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;memmode:integer):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
|
||
|
|
function Z_Get_Graphic_ColorBMP ( x,y,memmode:integer;filename:pchar):integer;stdcall;external 'WINPPLZ.DLL';
|
||
|
|
Procedure Z_ClosePrn ();stdcall;external 'WINPPLZ.DLL';
|
||
|
|
|
||
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Z_CreatePrn(1,pchar('pplz.txt'));
|
||
|
|
Z_Set_Darkness(20);
|
||
|
|
Z_Prn_Text(30,20,1,'A',20,18,1,pchar('A123456'));
|
||
|
|
Z_Prn_Text_TrueType(30,50,40,pchar('Time New Roman'),1,400,0,0,0,pchar('AB'),pchar('TrueType'),0);
|
||
|
|
Z_Prn_Barcode(50,200,1,2,100,40,'A',0,pchar('12345'),'y','y','y','y','y');
|
||
|
|
Z_Get_Graphic_ColorBMP(50,100,1,pchar('bb.bmp'));
|
||
|
|
|
||
|
|
Z_Print_Out(1,1);
|
||
|
|
Z_ClosePrn();
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TForm1.Button2Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Form1.Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|