tunit1.pas

调用TSC动态链接库的Delphi源码。 此代码为网络收集

unit TUnit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Label11: TLabel;
    Edit1: TEdit;
    Label17: TLabel;
    Edit2: TEdit;
    Label19: TLabel;
    Edit4: TEdit;
    Label18: TLabel;
    Edit3: TEdit;
    Edit6: TEdit;
    Label21: TLabel;
    Label23: TLabel;
    Edit7: TEdit;
    Label22: TLabel;
    Label24: TLabel;
    Edit9: TEdit;
    Edit8: TEdit;
    Edit10: TEdit;
    Label25: TLabel;
    Edit15: TEdit;
    Label30: TLabel;
    Edit14: TEdit;
    Label29: TLabel;
    Edit11: TEdit;
    Label26: TLabel;
    Edit13: TEdit;
    Label28: TLabel;
    Edit12: TEdit;
    Label27: TLabel;
    Label20: TLabel;
    Edit5: TEdit;
    RadioGroup2: TRadioGroup;
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


  Procedure openport(PrinterName:PChar);stdcall;far;external 'c:\tsclib.dll';
  Procedure closeport;external 'c:\tsclib.dll';
  procedure sendcommand(Command:PChar);stdcall;far;external 'c:\tsclib.dll';
  procedure setup(LabelWidth,LabelHeight,Speed,Density,Sensor,Vertical,Offset:PChar);stdcall;far;external 'C:\tsclib.dll';
  procedure downloadpcx(Filename,ImageName:pchar);stdcall;far;external 'c:\tsclib.dll';
  procedure barcode(X,Y,CodeType,Height,Readable,Rotation,Narrow,Wide,Code:string); stdcall; far; external 'c:\tsclib.dll';
  procedure printerfont(X, Y, FontName, Rotation, Xmul, Ymul, Content:string);stdcall;far; external 'c:\tsclib.dll';
  procedure clearbuffer; external 'c:\tsclib.dll';
  procedure printlabel(NumberOfSet, NumberOfCopoy:pchar);stdcall; far; external 'c:\tsclib.dll';
  procedure formfeed;external 'c:\tsclib.dll';
  procedure nobackfeed; external 'c:\tsclib.dll'
  procedure windowsfont (X, Y, FontHeight, Rotation, FontStyle,FontUnderline : integer; FaceName,TextContect:pchar);stdcall;far;external 'c:\tsclib.dll';

  implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
Var aa,bb,cc,dd,ee,ff : pchar ;
    A1,A2,A3,a4,a5,A8 : Integer ;
    a11,a12,a13,a14,a15  : Integer ;
begin
   a1 := StrToInt(Edit1.Text) ;    // X
   a2 := StrToInt(Edit2.Text) ;    // Y
   a3 := StrToInt(Edit3.Text) ;    // 兵絏蔼
   a4 := StrToInt(Edit4.Text) ;    // ︽禯
   a5 := StrToInt(Edit4.Text) ;    // ︽禯
   a8 := StrToInt(Edit8.Text) ;    // 糤