vb6如何处理dll获取的JSON字符串

wangjiyu1993 发布于 2017-05-08 21:30， 3476 次点击

我已经接收到函数返回的字符串
怎么获取其中的一部分？

只有本站会员才能查看附件，请登录

5 回复

xzlxzlxzl2017-05-09 07:03

你有没有Token认证？有的话需要获取这个认证的地址，pBuf是一个字符串数组的地址，对vb来说，是一个有足够容量的字符串地址就行，反正如果调用正常，api会往该地址填你需要的东西，ilength只要按传变量地址的方式调用就行了。所有和地址相关的变量均用long类型数据。

wangjiyu19932017-05-10 22:30

回复 2楼 xzlxzlxzl

只有本站会员才能查看附件，请登录

调用成功了但是msgbox打印出来长度有是380 但是什么也没有显示

xzlxzlxzl2017-05-11 19:47

嗯，pBuf是一个二级指针，因此应该先定义一个long用于存储JSON字符数组首地址，再调用api函数，大致方法如下：
dim a as long,b as string*500
a=varptr(b(0))
'接下来传a的地址调用api，JSON信息应该会存储在b里。

wangjiyu19932017-05-11 20:37

回复 4楼 xzlxzlxzl

只有本站会员才能查看附件，请登录

你看我这样写对吗？为什么打印出来都是0

[此贴子已经被作者于2017-5-11 22:39编辑过]

wangjiyu19932017-05-12 19:56

以下是引用xzlxzlxzl在2017-5-11 19:47:09的发言：

嗯，pBuf是一个二级指针，因此应该先定义一个long用于存储JSON字符数组首地址，再调用api函数，大致方法如下：
dim a as long,b as string*500
a=varptr(b(0))
'接下来传a的地址调用api，JSON信息应该会存储在b里。

写成这样会提示缺少数组？