【结贴】请求帮助：引入外部控件包在通过批处理 生成_reg.pas ，dll 时出错**

SH_XL_ZHUFO

请求帮助：引入外部控件包在通过批处理 生成_reg.pas  ，dll 时出错
这个控件是用来对 IC卡进行读写的

zfang

看一下你的这个单元文件是否缺少引用或者声明。

SH_XL_ZHUFO

.pas 文件 如下：
unit MSAELib_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a      
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.130.1.0.1.0.1.6  $
// File generated on 2008-12-15 22:05:01 from Type Library described below.

// ************************************************************************  //
// Type Lib: F:\X3Importer\msaE.tlb (1)
// LIBID: {AD8BC620-EA67-49E4-8ECA-E056119C348A}
// LCID: 0
// Helpfile:
// DepndLst:
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
//   (2) v4.0 StdVCL, (C:\windows\system32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                       
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  MSAELibMajorVersion = 1;
  MSAELibMinorVersion = 0;

  LIBID_MSAELib: TGUID = '{AD8BC620-EA67-49E4-8ECA-E056119C348A}';

  IID_Icom: TGUID = '{5BE37245-98FD-49F7-952E-C2B32DE59A16}';
  CLASS_com: TGUID = '{08D4CB71-E7CF-4D8B-8329-324BC655FB64}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  Icom = interface;
  IcomDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  com = Icom;


// *********************************************************************//
// Interface: Icom
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5BE37245-98FD-49F7-952E-C2B32DE59A16}
// *********************************************************************//
  Icom = interface(IDispatch)
    ['{5BE37245-98FD-49F7-952E-C2B32DE59A16}']
    function readcardstr(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; safecall;
    function opencardreader: SYSINT; safecall;
    function resetcard: SYSINT; safecall;
    function readcarddatetime(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; safecall;
    function readcardint(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): SYSUINT; safecall;
    function readcardbin(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; safecall;
    function initwritecardinfo(nFileID: SYSUINT; nOffset: SYSUINT): SYSINT; safecall;
    function adddatapackagestr(const pInfo: WideString; nLen: SYSUINT): SYSINT; safecall;
    function adddatapackagedatetime(const pInfo: WideString): SYSINT; safecall;
    function adddatapackageint(nLen: SYSUINT; nValue: SYSUINT): SYSINT; safecall;
    function execwritecardinfo: SYSINT; safecall;
    function writecardbin(nFileID: SYSUINT; nOffset: SYSUINT; const pInfo: WideString): SYSINT; safecall;
    function getlastportno: SYSINT; safecall;
    function closecardreader: SYSINT; safecall;
    function s2hex(const pStr: WideString; lenHex: SYSUINT): WideString; safecall;
    function hex2s(const pHex: WideString; lenHex: SYSUINT): WideString; safecall;
    function uint2hex(data: SYSUINT; lenHex: SYSUINT): WideString; safecall;
    function hex2uint(const pHex: WideString): SYSUINT; safecall;
  end;

// *********************************************************************//
// DispIntf:  IcomDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5BE37245-98FD-49F7-952E-C2B32DE59A16}
// *********************************************************************//
  IcomDisp = dispinterface
    ['{5BE37245-98FD-49F7-952E-C2B32DE59A16}']
    function readcardstr(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; dispid 1;
    function opencardreader: SYSINT; dispid 2;
    function resetcard: SYSINT; dispid 3;
    function readcarddatetime(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; dispid 4;
    function readcardint(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): SYSUINT; dispid 5;
    function readcardbin(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString; dispid 6;
    function initwritecardinfo(nFileID: SYSUINT; nOffset: SYSUINT): SYSINT; dispid 7;
    function adddatapackagestr(const pInfo: WideString; nLen: SYSUINT): SYSINT; dispid 8;
    function adddatapackagedatetime(const pInfo: WideString): SYSINT; dispid 9;
    function adddatapackageint(nLen: SYSUINT; nValue: SYSUINT): SYSINT; dispid 10;
    function execwritecardinfo: SYSINT; dispid 11;
    function writecardbin(nFileID: SYSUINT; nOffset: SYSUINT; const pInfo: WideString): SYSINT; dispid 12;
    function getlastportno: SYSINT; dispid 13;
    function closecardreader: SYSINT; dispid 14;
    function s2hex(const pStr: WideString; lenHex: SYSUINT): WideString; dispid 15;
    function hex2s(const pHex: WideString; lenHex: SYSUINT): WideString; dispid 16;
    function uint2hex(data: SYSUINT; lenHex: SYSUINT): WideString; dispid 17;
    function hex2uint(const pHex: WideString): SYSUINT; dispid 18;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : Tcom
// Help String      : com Class
// Default Interface: Icom
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (34) CanCreate Control
// *********************************************************************//
  Tcom = class(TOleControl)
  private
    FIntf: Icom;
    function  GetControlInterface: Icom;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    function readcardstr(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
    function opencardreader: SYSINT;
    function resetcard: SYSINT;
    function readcarddatetime(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
    function readcardint(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): SYSUINT;
    function readcardbin(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
    function initwritecardinfo(nFileID: SYSUINT; nOffset: SYSUINT): SYSINT;
    function adddatapackagestr(const pInfo: WideString; nLen: SYSUINT): SYSINT;
    function adddatapackagedatetime(const pInfo: WideString): SYSINT;
    function adddatapackageint(nLen: SYSUINT; nValue: SYSUINT): SYSINT;
    function execwritecardinfo: SYSINT;
    function writecardbin(nFileID: SYSUINT; nOffset: SYSUINT; const pInfo: WideString): SYSINT;
    function getlastportno: SYSINT;
    function closecardreader: SYSINT;
    function s2hex(const pStr: WideString; lenHex: SYSUINT): WideString;
    function hex2s(const pHex: WideString; lenHex: SYSUINT): WideString;
    function uint2hex(data: SYSUINT; lenHex: SYSUINT): WideString;
    function hex2uint(const pHex: WideString): SYSUINT;
    property  ControlInterface: Icom read GetControlInterface;
    property  DefaultInterface: Icom read GetControlInterface;
  published
  end;

procedure Register;

resourcestring
  dtlServerPage = 'Servers';

implementation

uses ComObj;

procedure Tcom.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{08D4CB71-E7CF-4D8B-8329-324BC655FB64}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR80004002*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure Tcom.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as Icom;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function Tcom.GetControlInterface: Icom;
begin
  CreateControl;
  Result := FIntf;
end;

function Tcom.readcardstr(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
begin
  Result := DefaultInterface.readcardstr(nFileID, nRecordNo, nOffset, nLen);
end;

function Tcom.opencardreader: SYSINT;
begin
  Result := DefaultInterface.opencardreader;
end;

function Tcom.resetcard: SYSINT;
begin
  Result := DefaultInterface.resetcard;
end;

function Tcom.readcarddatetime(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
begin
  Result := DefaultInterface.readcarddatetime(nFileID, nRecordNo, nOffset, nLen);
end;

function Tcom.readcardint(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): SYSUINT;
begin
  Result := DefaultInterface.readcardint(nFileID, nRecordNo, nOffset, nLen);
end;

function Tcom.readcardbin(nFileID: SYSUINT; nRecordNo: SYSUINT; nOffset: SYSUINT; nLen: SYSUINT): WideString;
begin
  Result := DefaultInterface.readcardbin(nFileID, nRecordNo, nOffset, nLen);
end;

function Tcom.initwritecardinfo(nFileID: SYSUINT; nOffset: SYSUINT): SYSINT;
begin
  Result := DefaultInterface.initwritecardinfo(nFileID, nOffset);
end;

function Tcom.adddatapackagestr(const pInfo: WideString; nLen: SYSUINT): SYSINT;
begin
  Result := DefaultInterface.adddatapackagestr(pInfo, nLen);
end;

function Tcom.adddatapackagedatetime(const pInfo: WideString): SYSINT;
begin
  Result := DefaultInterface.adddatapackagedatetime(pInfo);
end;

function Tcom.adddatapackageint(nLen: SYSUINT; nValue: SYSUINT): SYSINT;
begin
  Result := DefaultInterface.adddatapackageint(nLen, nValue);
end;

function Tcom.execwritecardinfo: SYSINT;
begin
  Result := DefaultInterface.execwritecardinfo;
end;

function Tcom.writecardbin(nFileID: SYSUINT; nOffset: SYSUINT; const pInfo: WideString): SYSINT;
begin
  Result := DefaultInterface.writecardbin(nFileID, nOffset, pInfo);
end;

function Tcom.getlastportno: SYSINT;
begin
  Result := DefaultInterface.getlastportno;
end;

function Tcom.closecardreader: SYSINT;
begin
  Result := DefaultInterface.closecardreader;
end;

function Tcom.s2hex(const pStr: WideString; lenHex: SYSUINT): WideString;
begin
  Result := DefaultInterface.s2hex(pStr, lenHex);
end;

function Tcom.hex2s(const pHex: WideString; lenHex: SYSUINT): WideString;
begin
  Result := DefaultInterface.hex2s(pHex, lenHex);
end;

function Tcom.uint2hex(data: SYSUINT; lenHex: SYSUINT): WideString;
begin
  Result := DefaultInterface.uint2hex(data, lenHex);
end;

function Tcom.hex2uint(const pHex: WideString): SYSUINT;
begin
  Result := DefaultInterface.hex2uint(pHex);
end;

procedure Register;
begin
  RegisterComponents('ActiveX',[Tcom]);
end;

end.

SH_XL_ZHUFO

看不懂，请指教

SH_XL_ZHUFO

我试着在delphi中编译了一下，没报错

zfang

你怎么编译的呢？我把你3楼的代码试着在delphi中编译了一下，有问题呀。
看图

SH_XL_ZHUFO

我就按Ctrl+F9 啊

SH_XL_ZHUFO

该如何编译呢，不好意思，我没用过
delphi   我先进delphi ，然后 打开 MSAELib_TLB.pas ，然后 就按Ctrl+F9 ，没反应，我以为通过了

SH_XL_ZHUFO

你这个提示窗口是如何调出来的

SH_XL_ZHUFO

zfang 师兄 ，我看不到编译错误信息窗口哦，这个问题怎么处理啊
我只找到了这个窗口