unit1.pas

我用DELPHI写的一个专为EZUSB（2131）系列芯片的DLL。有例子

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  DN = 'kiusb.dll';
function usb_close(): Integer; stdcall; external DN;
//成功返回0，失败返回-1
function usb_dwnload(image: PByte; len: dword): Integer; stdcall; external DN;
//下载固件到USB，数据，长度
function usb_bulk_write(pipe: Integer; buf: PByte; len: Integer): Integer;
stdcall; external DN;
//块写功能 (管道，数据，长度，写一般是用2号和4号管道
function usb_bulk_read(pipe: Integer; buf: PByte; len: Integer): Integer;
stdcall; external DN;
//块读功能 (管道，数据，长度，读一般是用1号和3号管道
function cusb_init(): Integer; stdcall; external DN;
//成功返回0，失败返回-1,默认为ezusb-0
var
  Form1: TForm1;

implementation

{$R *.dfm}

function fOrder(Order: byte; size: integer): integer;
var
  buf: array[0..4] of byte;
begin
  buf[0] := Order;
  buf[1] := (size shr $18) and $FF;
  buf[2] := (size shr $10) and $FF;
  buf[3] := (size shr $08) and $FF;
  buf[4] := (size and $FF);
  if usb_bulk_write(4, @buf, 5) <> 0 then
    result := -1
  else
    result := 0;
end;

procedure FiletoMem(strV: string; out Pmem: Pointer; out size: integer);
var
  Attributes: integer;
  buffer: ^byte;
  F: file of Byte;
  fm: Tfilestream;
begin
  size := 0;
  if not fileexists(strV) then
    exit;
  try
    fm := Tfilestream.Create(strV, fmopenread);
    size := fm.Size;
    if size > 0 then
    begin
      GetMem(Buffer, size);
      pmem := Buffer;
      fm.Read(buffer^, size);
    end;
  finally fm.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Clear;
  if cusb_init() = 0 then
    memo1.Lines.Add('usb 打开成功')
  else
    memo1.Lines.Add('usb 打开失败');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  pmem: pointer;
  size, i: integer;
begin
  if opendialog1.Execute then
  begin
    filetomem(opendialog1.FileName, pmem, size);
    if size = 0 then
      Exit;
    i := usb_dwnload(pmem, size);
    FreeMem(pmem, size);
    if i = 0 then
      memo1.Lines.Add('usb 下载成功')
    else
      memo1.Lines.Add('usb 下载失败');
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin
  //led control
  i := fOrder($C1, 0);
  if i = 0 then
    memo1.Lines.Add('usb Control success');
  sleep(1000);
  i := fOrder($C0, 0);
  if i = 0 then
    memo1.Lines.Add('usb Control success');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if usb_close = 0 then
    memo1.Lines.Add('usb 关闭成功')
  else
    memo1.Lines.Add('usb 关闭失败');
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  i: integer;
  buf: array[0..7] of byte;
  strV, strS: string;
begin
  if fOrder($D2, 0) <> 0 then
    exit;

  for i := 1 to 6 do
  begin
    if usb_bulk_read(3, @buf, 64) <> 2 then
      exit;
    buf[1 + i] := buf[0];
  end;

  strV := inttostr((buf[6] and $F0) shr 4) + '.' + inttostr((buf[6] and $0F));
  i := buf[4] shl $8 + buf[5];
  ;
  strS := RightStr('0' + inttostr(buf[2]), 2) + RightStr('0' + inttostr(buf[3]),
    2) + '-' + RightStr('0000' + inttostr(i), 5);

  memo1.Lines.Add('The S/N：' + strS + ' (V' + strV + ')')

end;

end.