未来已来
如何用QTP处理dll中带有枚举类型返回值的函数
上一篇 /
下一篇 2009-05-16 23:15:31
/ 个人分类:自动化测试
收到一封学员关于用qtp处理dll中带有枚举型返回值函数的问题,这里是给他的一个答复。
老师:
我用QTP 调用VC 编写的dll (extern c 编译)
MXDSGC_API MXD_RTN_CODE_E SGC_InitWinsock(void);
/*!
* This function is used to close windows socket port.
* \param
* void
* \return
* Return code by MXD_RTN_CODE_E enumeration.
*/
我在QTP中应该如何调用?
extern.Declare micUInteger
,"SGC_InitWinsock","D:\Share\MA\SiggenControl\sgc.dll","",micVoid
如果返回值是枚举型,在QTP中用什么返回呢?
回答:关于qtp调用dll返回的是枚举型函数的问题,其实只要把返回值设置成MicInteger类型就可以,我写了一个例子请看下
在vc中编写了一个带有枚举型返回值函数的dll
lib.h中代码如下:
enum color
{red,yellow,blue};
#ifndef LIB_H
#define LIB_H
extern "C" color __declspec(dllexport)getcolor();
#endif
lib.cpp中代码如下
#include "lib.h"
color getcolor()
{
color c_1;
c_1=red;
return c_1;
}
以上代码纯为了说明问题,vc6中编译通过
qtp中调用代码
Extern.Declare micInteger,"getcolor","D:\VC\dll\Debug\dll.dll","getcolor"
Dim iColorResult
iColorResult=Extern.getcolor()
If iColorResult =0 Then
msgbox "red"
End If
If iColorResult =1 Then
msgbox "yellow"
End If
If iColorResult =1 Then
msgbox "blue"
End If
以上代码在qtp10中调式通过。
这里关键是vbs是无类型的编程语言,所以不能和c语言中的类型进行匹配,如我们会在vb中声明同类型的变量更替它,vb中的调用代码如下:
Private Declare Function getcolor Lib "D:\VC\dll\Debug\dll.dll" () As color
Private Enum color
red
yellow
blue
End Enum
Private Sub Command1_Click()
Dim iColorResult As color
iColorResult = GetColor()
MsgBox iColorResult
End Sub
可以在vb中声明替代枚举型变量,与c中的枚举类型相匹配。
收藏
举报
TAG: