如何把厂家给的dll文件做成不带窗体的activex控件,在ie上运行(200)

  • 主题发起人 々飞翔鸟々
  • 开始时间

々飞翔鸟々

Unregistered / Unconfirmed
GUEST, unregistred user!
dll是做发卡器的厂家给的,cs读卡已经实现了,现在的问题是如何把厂家给的dll文件做成不带窗体的activex控件,在ie上运行, 分不够可以加,希望做过的给点例子,最好是发到我邮箱,谢谢bj_fuhong@126.com
 
自己做一个ACTIVEX,然后调用DLL的功能即可。发布的时候两个文件一起发布出来。
 
楼上的能否弄个例子上来啊
 
发布时做个CAB包一起发出去就行了,怎么做多文件的包,可参见,Flash.cab,看看里面的配置文件
 
unit CardOperate;{$WARN SYMBOL_PLATFORM OFF}interfaceuses ComObj, ActiveX, RFCard_TLB, StdVcl;type TCardOperate = class(TAutoObject, ICardOperate) function ReadCard(Sector:integer;block:integer;beep:boolean):string; procedure myComReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); protected end; implementationuses ComServ, SPComm, SysUtils;procedure TCardOperate.myComReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);var i:Integer;begin FillChar(CommBuff, SizeOf(CommBuff), 0); buffSize := BufferLength; for i:=1 to buffSize do begin CommBuff:=ord(PChar(Buffer)[i-1]); end; ReadOK:=True;end;//读卡function TCardOperate.ReadCard(Sector:integer;block:integer;beep:boolean):string;begin result := '123456789';end;导出部分:library RFCard;uses ComServ, SPComm in 'SPCOMM.PAS', RFCard_TLB in 'RFCard_TLB.pas', CardOperate in 'CardOperate.pas' {CardOperate: CoClass};exports DllGetClassObject, DllCanUnloadNow, DllRegisterServer, DllUnregisterServer;{$R *.TLB}{$R *.RES}exports ReadCard; //报错:[Error] RFCard.dpr(20): Undeclared identifier: 'ReadCard' TCardOperate.ReadCard;//报错:[Error] RFCard.dpr(20): Identifier 'TCardOperate' cannot be exportedbeginend.请问怎样才能导出ReadCard函数呢?
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部