51Testing软件测试论坛

标题: 求助：silkperformer中怎样使用BDL语言将字符串转化成十六进制 [打印本页]

作者: valianter 时间: 2008-3-3 22:47
标题: 求助：silkperformer中怎样使用BDL语言将字符串转化成十六进制
请教各位高手，在silkperformer中如何使用BDL语言将一个字符串转化成十六进制？
比如原字符串为“test”，转化后变成0x74657374

谢谢！

作者: jmy_1981 时间: 2008-3-5 16:58
标题: 没有BDL……
如题。

我知道的有2个方法。
1) SP自带一个工具叫Unicode Text/Hex Editor，挺方便的，你也可以call它的dll。
2) 自己写……

我给你一个例子(UTF-8)的，其他的你可以看情况改改……
/* Start Code Dummy */
use "Kernel.bdh"

dll "kernel32.dll"
  "WideCharToMultiByte"
function WideCharToMultiByte(in number, in number, ptr, in number, ptr, in number, in number, in number):number;

const
  CP_UTF8 := 65001;

dcluser
  user
VUser
  transactions
TMain       : 1;

dclfunc
  function fAscii2Utf8(sSource: string): string <API_FUNCTION>
  var
sMultiByte,
sHex,
sHexAsString,
sWide       : string;
nLen       : number;
  begin
StrAnsi2Unicode(sWide, Strlen(sSource)*2, sSource);

nLen := Binlen(sWide);

WideCharToMultiByte(CP_UTF8, 0, sWide, -1, sMultiByte, nLen*4+1, null, null);

writedata(sMultiByte, binlen(sMultiByte), OPT_WRITEDATA_HEX);

Bin2Hex(sMultiByte, STRING_COMPLETE, sHexAsString);

sHexAsString := "\\h"+sHexAsString;
print("fAscii2Utf8("+sSource+") = "+sHexAsString);

fAscii2Utf8 := sMultiByte;
  end fAscii2Utf8;

dcltrans
  transaction TMain
  var
  begin
print(fAscii2Utf8("M?));
  end TMain;

/* End Code Dummy */

希望有帮助……

作者: valianter 时间: 2008-3-6 10:13
非常感谢jmy提供的思路，我试试看。

作者: valianter 时间: 2008-3-6 18:56
jmy老兄,我写了一个DLL文件,但是不懂怎么才能加载才能调用它.
我应该把它放在哪个位置里呢? 还有,生成这个DLL的源函数需不需要也放到相应的目录下?
谢谢!

其他大侠如果知道的也教教小弟哈.

作者: jmy_1981 时间: 2008-3-10 17:34
标题: 我在调用系统dll的时候是不用特殊修改的……
如题。

我是直接调用的，比如:
dll "kernel32.dll" //uses kernel32
"GetSystemTime" //kernel32 function called
function GetSystemTime(inout string);

如果你是自由动态库的，我觉得最多给出路径，应该就可以了。
希望有帮助。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)