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('ΌΠ·’Ει'),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.