您的位置－>>条码打印机－>>在线支持　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

编号：4459 留言者名称：胡金龙　标题：Delphi中调用DLL报错!何解?
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

  Function  B_CreatePrn(selection: Int64; filename: String):Int64;stdcall; far;External 'WINPPLB.dll' name 'B_CreatePrn' ;
  Function  B_Set_Darkness(darkness: Int64): Int64;stdcall; far;External 'WINPPLB.dll'  name 'B_Set_Darkness' ;
  Function  B_Print_Out(copypiece: Int64): Int64;stdcall; far;External 'WINPPLB.dll' name 'B_Print_Out' ;
  Function  B_Prn_Text(x: Int64; y: Int64; ori: Int64; font: Int64; hor_factor: Int64; ver_factor: Int64; mode: Byte; data: String): Int64;stdcall; far;External 'WINPPLB.dll' name 'B_Prn_Text';
  Function  B_Prn_Barcode(x: Int64; y: Int64; ori: Int64; typee: String; narrow: Int64; width: Int64; height: Int64; human: Byte; data: String): Int64;stdcall; far;External 'WINPPLB.dll' name 'B_Prn_Barcode' ;
  Function  B_Prn_Text_TrueType(x: Int64; y: Int64; FSize: Int64; FType: String; Fspin: Int64; FWeight: Int64; FItalic: Int64; FUnline: Int64; FStrikeOut: Int64; id_name: String; data: String): Int64;stdcall; far;External 'WINPPLB.dll' name 'B_Prn_Text_TrueType';
  Function  B_Get_Pcx(x: Int64; y: Int64; filename: String): Int64;stdcall; far;External 'WINPPLB.dll' name 'B_Get_Pcx';
  Procedure B_ClosePrn;External 'WINPPLB.dll';

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  //B_CreatePrn(0, 'os-214textout.prn');
  B_CreatePrn(0,'out.prn')  ;
  B_Set_Darkness(12) ;
  B_Get_Pcx(450, 50, 'phone.pcx') ;
  B_Prn_Barcode(20, 200, 0, '1', 2, 2, 40, 66, Edit1.Text)  ;
  B_Prn_Text(20, 150, 0, 4, 1, 1, 78, Edit1.Text)  ;
  B_Prn_Text_TrueType(20, 0, 40, '宋体', 1, 400, 0, 0, 0, 'AA', '测试成功') ;
  B_Prn_Text_TrueType(20, 70, 40, '宋体', 1, 400, 0, 0, 0, 'AB', 'Delphi 测试')   ;
  B_Print_Out(1)  ;
  B_ClosePrn   ;
end;

end.
地区：广东　　　 留言时间： 2004-10-5　17:30:59
专家解答：
请将dll中的3个dll文件copy到工程下面

条码小知识：
51、编码容量 encoded volume 条码字符集中所能表示的字符数的最大值。
52、条码原版胶片 bar code film master 条码胶片的母片。
53、一维条码 linear bar code;one-dimentional bar code 只在一维方向上表示信息的条码符号。
54、二维条码 two-dimentional bar code 在二维方向上表示信息的条码符号。
55、特种条码 special bar code 特殊材料制成的条码。
56、条码字符的值 character value 一维条码由条码逻辑式向字符集转换的中间值。
57、码字 codeword 二维条码字符的值。由条码逻辑式象字符集转换的中间值。
58、纠错字符 error correction character 二维条码中，错误检测和错误纠正的字符。
59、纠错码字 error correction codeword 二维条码中，纠错字符的值。