请问，用ASP＋VB的DLL控件写一个来电显示的程序？

[afyu]

我们公司有一个来电显示的盒子，配有VB，VC等接口，但是公司要做成B/S结构的，

我问了厂商，直接用ASP不能调用他们提供的DLL文件，只能在VB中调用他们的DLL控件，生成新的

ASP可以用的DLL控件，有谁写过这样的吗？？

我用VB打包DLL，可是测试的时候不触发呀，是不是ASP这些解释的语言，不支持这个呀？？

希望大家赐教，不深感谢！！！

[笨笨兔兔兔兔兔]

......当你用vb写的dll调用api的时候不就相当于这么做么?

当然是可以了的了,只要在asp中server.createobject弄好

把vb写的dll配置好,自然是可以调用的了

[KimSoft]

先把那个接口的dll引用进来，再把里面的属性和方法封装一下（你甚至可以用相同的名称）

注意用VB新建Activex dll工程。

[afyu]

好像不能在工程中引用那个第三方控件！！！

[afyu]

开发的说明如下：（在VB下运行没有问题，可是我要是把它打包成ASP下可用的ＤＬＬ，就不成功了）

VB环境
VB接口简介
在 Visual Basic 6.0 中， 对动态库SWIND.DLL的调用是通过 SWIND.bas 来声明的，请参见SWIND.bas。

VB6.0对动态库的调用
在VB6.0中，需要首先对DLL中的函数进行声明，然后才能对该函数进行调用。关于如何声明DLL中的函数，请参考VB中的HELP文件"Declare statement"。
下面，通过举例来说明。当SWIND.dll 中有新的函数未能包含在VB声明文件SWIND.bas中时，你可以参考该函数在C语言中的声明，自己来声明VB下的函数调用。
例如：
在SWIND.h中的函数
int WINAPI SW_CheckOffHook(int nIndex)
在SWIND.bas中声明为
Declare Function SW_CheckOffHook Lib "SWIND.dll" (ByVal nIndex As Integer) As Integer
要注意的一点是，所有参数和返回值的字节长度要相等。
VB编程的注意事项
由于VB是解释型的编程语言，它在设计时有一些不同的出发点，因此，在使用VB调用DLL时，有一些事项应引起注意。
如果在C语言中某函数的参数为字符串，并且在函数调用完毕后，有内容通过该参数返回，当VB使用该函数时，带入的变量必须是已经分配空间的。
例如：
Dim MsgStr As String * 200

SWIND.BAS中的声明如下:

Declare Function SW_Init Lib "SWIND.dll" () As Integer
Declare Function SW_Free Lib "SWIND.dll" () As Integer
Declare Function SW_SetType Lib "swind.dll" (ByVal DeviceType As Integer) As Integer
Declare Function SW_GetCount Lib "SWIND.dll" () As Integer
Declare Function SW_GetSN Lib "swind.dll" (ByVal nIndex As Integer) As Integer
Declare Function SW_CheckOffHook Lib "SWIND.dll" (ByVal nIndex As Integer) As Integer
Declare Function SW_CheckDisconnect Lib "swind.dll" (ByVal nIndex As Integer) As
Integer
Declare Function SW_CheckRing Lib "swind.dll" (ByVal nIndex As Integer) As
Integer
Declare Function SW_ReceiveDTMF Lib "SWIND.dll" (ByVal nIndex As Integer, ByVal lpBuf
As String) As Integer
Declare Function SW_ReceiveCID Lib "SWIND.dll" (ByVal nIndex As Integer, ByVal lpBuf
As String) As Integer
Declare Function SW_StartFileRecord Lib "SWIND.dll" (ByVal nIndex As Integer, ByVal
FileName As String, ByVal FileLength As Long) As Integer
Declare Function SW_CheckSilence Lib "SWIND.dll" (ByVal nIndex As Integer) As Integer
Declare Function SW_StopFileRecord Lib "SWIND.dll" (ByVal nIndex As Integer) As Integer
Declare Function SW_CheckFileRecordEnd Lib "SWIND.dll" (ByVal nIndex As Integer) As
Long

VB下的示范程序目录：
安装目录\VB\DEMO2.VBP
该程序实现摘挂机检测、录放音、接收来电号码、接收DTMF号码。

[笨笨兔兔兔兔兔]

....这个不就是api的调用么?你怎么个打包法的?

[异想天开的妄想狂]

正好作这个项目 帮你顶一下 有人知道如何解决么？

[hongfukeji]

方寸电话录音盒专为需要电话录音、收来电号码和拨出号码的软件开发者设计，可以方便地得到来电号码，拨出号码，摘挂机状态，震铃状态，电话录音。我公司提供的来电显示二次开发动态库，并且提供示例程序演示怎样取电话来电号码，拨出号码，摘挂机状态，震铃状态,以及怎么进行电话录音。

该硬件系统适合很多行业，比如电话办公系统、值班系统、送水系统、花店送花、文秘办公系统、小区电话报警等等。当有顾客打电话订购或咨询时，第一次记录电话和地址后，再次来电时会自动弹出来电人地址及曾经记录保存过的其它信息，这样避免了每次询问记录客户地址等，能提高工作效率，有能给客户留下简洁高效的印象。
联系人：张小姐
tel:[phone]
网 址： http://www.mconnm.com
qq:1095770808