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

SH_XL_ZHUFO

为什么我的dll 就不能用呢
真奇怪啊
肯定什么地方出错了

zfang

38楼的不可以吗？

SH_XL_ZHUFO

师兄，还有问题，用 38 楼的 包，少了部分函数，1、        打开读卡器
(int *nRet)opencardreader();
输入参数：无（函数自动探测串口1~10，实现读卡器的初始化）
输出参数：nRet，类型为整型；被成功打开的读卡器所在的端口号；
2、        用户卡卡片复位
(int *nRet)resetcard();
输入参数：无
输出参数：nRet，类型为整型；0：成功；
4、        写卡片信息
        写卡初始化
(BSTR *pRandom)initwritecardinfo(unsigned int nFileID,unsigned int nOffset);
                输入参数：nFileID，整型，被写文件标识号nOffset为写卡起始位置（从1开始记数）；
                输出参数：pRandom，8字节字符串；
        执行写卡
(int *nRet)execwritecardinfo( );
输出参数：nRet，整型，本次写卡数据字节数；
注意：执行execwritecardinfo时，组的写卡包的最大长度为255；FileID为21号文件只允许更新卡片有效期；记录型文件必须整条记录一次性更新首条记录，即组包长度必须等于文件长度；
5、        关闭读卡器
(int *nRet)closecardreader();
输入参数：无
输出参数：nRet，类型为整型；0：成功

这些函数都不见了，没法用  ，“。”不出来啊

zfang

老兄，那怎么可能呢。我用怎么就可以啊

SH_XL_ZHUFO

哦，不好意思，是我用法不对 self.Edit1.Text :=self.com1.  这样没有

self.Edit1.Text :=sysutils.IntToStr(self.com1.opencardreader);  这样就好了
但是运行时报错

SH_XL_ZHUFO

光标停在第一句上

zfang

我这边没有环境。你是不是需要安装人家那个环境呀。

SH_XL_ZHUFO

我装了
我用vb写的程序，是可以正常读写的


Dim ICobj As Object
Set ICobj = CreateObject("msaE.com")

'打开读卡器
ResultAa = ICobj.opencardreader()
MsgBox "打开读卡器", , ResultAa
'卡片复位
ResultAa = ICobj.resetcard()
MsgBox "卡片复位", , ResultAa

'读卡号
'
ResultAa = ICobj.readcardstr(21, 0, 20, 19)
MsgBox "读卡号", , ResultAa

在x3中是否有特殊的写法

zfang

把环境发一个给我，试试。

SH_XL_ZHUFO

读卡器没法发给你啊，远程吧