demou.pas

在DELPHI下调用API获取汉字五笔拼音

unit demoU;

interface

uses
  forms, StdCtrls, Buttons, Controls, ExtCtrls, Classes;



procedure getbm(var Str: shortstring ;sel : integer  ); external 'autowbpy.dll'; //   Stdcall;



type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;
    Bevel2: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
     {S　既当输入又当输出}
var s  : shortstring;

begin

    {sel := 1 取五笔头码}
        s := edit1.Text;
        getbm(   s , 1) ;
        edit2.Text := s;

    {sel := 2 取五笔全码}
        s := edit1.Text;
        getbm(   s , 2) ;
        edit3.Text := s;

    {sel := 3 取拼音头码}
        s := edit1.Text;
        getbm(   s , 3) ;
        edit4.Text := s;

    {sel := 4 取拼音全码}
        s := edit1.Text;
        getbm(   s , 4) ;
        edit5.Text := s;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
        close;
end;

end.