如何用QTP处理dll中带有枚举类型返回值的函数

发表于：2009-5-19 11:48

字体：大中小 | 上一篇 | 下一篇 | 我要投稿

作者：pcl2004_27 来源：51Testing博客

软件测试工具

QTP

　　收到一封学员关于用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中的枚举类型相匹配。

《2023软件测试行业现状调查报告》独家发布~

搜索风云榜

测试技术了解

2023测试行业调查报告

挣点稿费

AI与软件测试

文章资料精选