急,请求帮忙封装成第三方控件

Question

弄了一星期的指纹,还没忙完,实在没办法
希望高手帮忙把里面的.pas文件封装成第三方控件等包
例子的地址是http://download.csdn.net/source/852736发到我邮箱[email protected]  收到马上结贴

Answer 1

菜单Component-->Install Component...-->into new package(tab 页),这里Unit file name指定为你的.pas文件，可以多个；Package file name给个路径就行  ；package description（包描述）写不写都可以。最后点OK就可以了

Answer 2

interfaceuses
  Classes, Windows, SysUtils, Forms, Dialogs;//这里更改了type
  //XSDev Method
  TInitAgent = procedure (ProductID: PChar; PacketType: Integer; HostName: PChar;
                     Port: Integer; Persistent: Boolean); stdcall;
  TConnect = function(): Integer; stdcall;
  TAddUserByPwd = function (UserID, AuthenID, AuthenPwd: PChar): Integer; stdcall;
  TGetEnrolledFingers = function (UserID, EnrolledFingers: PChar;
                           var Len: DWORD): Integer; stdcall;
  TEnrollByPwd = function (UserID, EnrolledFingers, AvailableFingers: PChar;
                           MinCount, MaxCount: Integer;
                           AuthenID, AuthenPwd: PChar): Integer; stdcall;
  TFPAuthenDlg = function (AuthenID, AuthenFingers: PChar; AuthenMode: integer; 
                           UserID: PChar; var Len: DWORD): Integer; stdcall;
  TDeleteUserByPwd = function (UserID, AuthenID, AuthenPwd: PChar): Integer; stdcall;
  //Set ErrMsgItems
  TProcID = (piCheckXSDevHandle, piConnectServers, piAddUserProc,
             piEnrollByPwdProc, piDelUserProc, piUnknowErr,
             piGetEnrolledFingers, piFPAuthenDlg, piFPIdentify);
  //Exception
  EXTrustLinkCommonError = class(Exception)  end;  TTrustLink_General = class(TComponent) //这里更改了
自己建立各包，把这个单元加入进去，替换我更改的部分就可以了。

Answer 3

到这个连接下载
http://www.brsbox.com/filebox/down/fc/583ff688b0cff65dfc01c6dc63dbd1d9

Answer 4

非常谢谢SmallHand 但还是没弄得哪位高手帮忙用DELPHI6.0+补丁 做成个包  .OCX包 或者 .DLL .bpl 包等快两星期了,还没搞定你们也许只需要一些时间,但却能困惑我差不多两星期的难题解决先谢谢了