d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
58 lines
2.0 KiB
Plaintext
Executable File
58 lines
2.0 KiB
Plaintext
Executable File
unit Unit1;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
StdCtrls, Buttons;
|
||
|
||
type
|
||
TForm1 = class(TForm)
|
||
Label1: TLabel;
|
||
BitBtn1: TBitBtn;
|
||
BitBtn2: TBitBtn;
|
||
procedure BitBtn2Click(Sender: TObject);
|
||
procedure BitBtn1Click(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
Form1: TForm1;
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
function B_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLB.DLL';
|
||
function B_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLB.DLL';
|
||
function B_Print_Out ( copypiece:integer):integer;stdcall;external 'WINPPLB.DLL';
|
||
function B_Prn_Text ( x,y,ori,font,hor_factor,ver_factor:integer;mode:char;data:pchar):integer;stdcall;external 'WINPPLB.DLL';
|
||
function B_Prn_Barcode ( x,y,ori:integer;typee:pchar;narrow,width,height:integer;human:char;data:pchar):integer;stdcall;external 'WINPPLB.DLL';
|
||
function B_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar):integer;stdcall;external 'WINPPLB.DLL';
|
||
|
||
function B_Get_Pcx ( x,y:integer;filename:pchar):integer;stdcall;external 'WINPPLB.DLL';
|
||
Procedure B_ClosePrn ();stdcall;external 'WINPPLB.DLL';
|
||
|
||
procedure TForm1.BitBtn2Click(Sender: TObject);
|
||
begin
|
||
Form1.Close;
|
||
end;
|
||
|
||
procedure TForm1.BitBtn1Click(Sender: TObject);
|
||
begin
|
||
B_CreatePrn(1, pchar('pplb.txt'));
|
||
B_Set_Darkness(12);
|
||
B_Get_Pcx(20, 50, pchar('phone.pcx'));
|
||
B_Prn_Barcode(20, 150, 0, '1', 2, 2, 40, 'b', pchar('123456789'));
|
||
B_Prn_Text(20, 220, 0, 4, 1, 1, 'n',pchar('ComScience PPLB Charlie Mei'));
|
||
B_Prn_Text_TrueType(20, 270, 40, pchar('灿<>砰'), 1, 400, 0, 0, 0, pchar('AA'), pchar('笆篈ㄧ计畐代刚'));
|
||
B_Prn_Text_TrueType(20, 350, 40, pchar('夹发砰'), 1, 400, 0, 0, 0, pchar('AB'), pchar('Dlephi 渺挡Θ<E68CA1>'));
|
||
B_Print_Out(1);
|
||
B_ClosePrn;
|
||
end;
|
||
|
||
end.
|