求助：silkperformer中怎样使用BDL语言将字符串转化成十六进制

valianter

请教各位高手，在silkperformer中如何使用BDL语言将一个字符串转化成十六进制？
比如原字符串为“test”，转化后变成0x74657374

谢谢！

jmy_1981

如题。

我知道的有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

非常感谢jmy提供的思路，我试试看。

valianter

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

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

jmy_1981

如题。

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


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