unit1.pas

delphi编写的串口

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    MSComm1: TMSComm;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button4: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure MSComm1Comm(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 {加入下面三行声明}
 { function com_init(com:Integer; baud:Dword):Boolean;stdcall;external 'api_com.dll';
  function com_rest:Boolean;stdcall;external 'api_com.dll';
  function com_send(buf:PChar; len:Integer):Boolean;stdcall;external 'api_com.dll';
  }
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
    Str:string;
Begin
  try
    Str:=' {D0470,0925,0450|}'+chr(10)+chr(13)
        +'{AY;+10,0|}'+chr(10)+chr(13)
        +'{C|}'+chr(10)+chr(13)
        +'{PV00;0150,0226,0024,0042,J,00,B=OCr17Ni4Cu4Nb|}'+chr(10)+chr(13)
        +'{PV01;0621,0226,0024,0042,J,00,B=OCr17Ni4Cu4Nb|}'+chr(10)+chr(13)
        +'{PV02;0150,0275,0024,0042,J,00,B=12345|}'+chr(10)+chr(13)
        +'{PV03;0621,0275,0024,0042,J,00,B=12345|}'+chr(10)+chr(13)
        +'{PV04;0150,0321,0024,0042,J,00,B=100|}'+chr(10)+chr(13)
        +'{PV05;0621,0321,0024,0042,J,00,B=100|}'+chr(10)+chr(13)
        +'{XS;I,0002,0002C3201|}';
    AssignFile(F, 'LPT1');
    Rewrite(F);
    Write(F, Str);
    CloseFile(F);
  Except
    Messagedlg('数据发送失败！',mterror,[mbok],0);
  End;
 // end;
 // 如果需要控制并口打印机开钱箱，也只需要重新给Str如下赋值：
  Str:= Chr(27)+'p'+Chr(0)+Chr(25)+Chr(255);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Com_init(1,9600);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
    Str:string;
begin
  Str:=Chr(27)+Chr(112)+Chr(0)+Chr(25)+Chr(255);{控制打印机开钱箱指令}
  //Str:=’欢迎使用GP系列票据打印机!’+Chr(13)
{  if com_send(Pchar(Str),Length(Str)) then
  begin
    Label1.Caption :='已经发送命令';
  end
  else
  begin
    Label1.Caption :='发送失败';
  end;
 }
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 // Com_rest;
end;

procedure TForm1.Button3Click(Sender: TObject);
var s1:string;
begin
  s1 := '9600,n,8,1';
  MSComm1.CommPort:=1;
  MSComm1.Settings :=s1;
  MSComm1.InputMode:=0;
  MSComm1.PortOpen :=true;
  MSComm1.Output :=Edit1.Text ;
//  MSComm1.PortOpen :=False;

{
  MSComm1.CommPort:= 2 ;
  MSComm1.sSettings := '115200,n,8,1'  ;
  MSComm1.PortOpen = True;
  MSComm1.InputMode = comInputModeBinary ;
  MSComm1.Output = b;
  MSComm1.PortOpen = False;
  }
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //edit3.Text :=asc(edit2.Text);
end;

procedure TForm1.MSComm1Comm(Sender: TObject);
var sss:string;
begin
  sss := MSComm1.Input ;
  if sss<>'' then
  Edit4.Text:=sss;
end;

end.