那位帮忙把E验通DELPHI代码翻译成BCB！

[jssav]

那位帮忙把E验通DELPHI代码翻译成BCB！
可以收费翻译，
Type IDCARD_ALL = record
name : array[0..39] of Char;
sex : array[0..9] of Char;
people : array[0..19] of Char;
birthday : array[0..49] of Char;
address : array[0..199] of Char;
signdate : array[0..49] of Char;
validterm : array[0..9] of Char;
number : array[0..39] of Char;
other : array[0..99] of Char;
end;


type pointerID=^IDCARD_ALL;

var
Form1: TForm1;
MyCard:IDCARD_ALL;
bLoaded : Boolean ;
implementation

uses Unit2;
//声明接口
//加载核心
function LoadIdcardLibrary():Longint;stdcall;external 'idcarddll.dll';
//身份证接口
Function RecogIdcardExALL (imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nHandPrint : Longint; nContent : Byte; HeadImgFName : String; nButtonDown : Integer): Longint;stdcall;external 'idcarddll.dll';
Function RecogIdcardOnlyALL (imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nHandPrint : Longint; nContent : Byte; HeadImgFName : String): Longint;stdcall;external 'idcarddll.dll';

//驾照接口
Function RecogDPALL (imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte; HeadImgFName : String) : Longint; stdcall;external 'idcarddll.dll';
Function RecogDPOnlyALL (imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte; HeadImgFName : String) : Longint ;stdcall;external 'idcarddll.dll';
//二代证接口
Function RecogNewIdcardALL (imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte; HeadImgFName : String) : Longint; stdcall;external 'idcarddll.dll';

//护照接口
Function RecogPassPortALL ( imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte; HeadImgFName : String) : Longint; stdcall;external 'idcarddll.dll';
Function RecogPassPortOnlyALL ( imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte; HeadImgFName : String) : Longint; stdcall;external 'idcarddll.dll';

//户口本接口
Function RecogHouseHoldALL ( imgfile_name : String; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte) : Longint; stdcall;external 'idcarddll.dll';
Function RecogHouseHoldOnlyALL ( imgfile_name : String ; lpCard : pointerID; bSaveResultFile : Integer; nContent : Byte) : Longint; stdcall;external 'idcarddll.dll';

//按钮侦测接口
Function GetButtonDownType() : Integer ;stdcall;external 'idcarddll.dll';
//卸载识别核心
procedure FreeIdcardLibrary(); stdcall;external'idcarddll.dll';

{$R *.DFM}

[cp_pan]

up

[fairchild811]

function LoadIdcardLibrary():Longint;stdcall;external 'idcarddll.dll';

对应

函数: __stdcall Long LoadIdcardLibrary(void); 在idcarddll.dll内静态导出