VFP 怎么将pchar类型转换为string类型
VFP 如何将pchar类型转换为string类型
如题
想将pchar类型转换为string类型
VFP 如何转换???
求教
------解决思路----------------------
看你的代码,可以这样试试。
首先要确定 SiInterface.dll 能被VFP正常加载。
调用方法一:
将字符串参数改用地址传送方式。
DECLARE integer BUSINESS_HANDLE IN ./SiInterface.dll as b_handle string @ls_input,string @ls_output
IF ALLTRIM(thisform.txt_cx.Value)="*"
ls_input = "31"
ELSE
ls_input = "01
------解决思路----------------------
"+UPPER(ALLTRIM(thisform.txt_cx.value))
ENDIF
ls_output = space(3068)+CHR(0)
lctime=TTOC(DATETIME())
b_handle(@ls_input,@ls_output)
?ls_output
调用方法二:(其他相关参考示例)
DECLARE LONG BUSINESS_HANDLE IN ./SiInterface.dll as b_handle LONG,LONG
IF ALLTRIM(thisform.txt_cx.Value)="*"
ls_input = parstr("31"+CHR(0))
ELSE
ls_input = parstr("01
------解决思路----------------------
"+UPPER(ALLTRIM(thisform.txt_cx.value))+CHR(0))
ENDIF
ls_output = parstr(space(3068)+CHR(0))
lctime=TTOC(DATETIME())
b_handle(ls_input,ls_output)
sz_ls_output = strpar(ls_output)
?sz_ls_output
如题
想将pchar类型转换为string类型
VFP 如何转换???
求教
------解决思路----------------------
看你的代码,可以这样试试。
首先要确定 SiInterface.dll 能被VFP正常加载。
调用方法一:
将字符串参数改用地址传送方式。
DECLARE integer BUSINESS_HANDLE IN ./SiInterface.dll as b_handle string @ls_input,string @ls_output
IF ALLTRIM(thisform.txt_cx.Value)="*"
ls_input = "31"
ELSE
ls_input = "01
------解决思路----------------------
"+UPPER(ALLTRIM(thisform.txt_cx.value))
ENDIF
ls_output = space(3068)+CHR(0)
lctime=TTOC(DATETIME())
b_handle(@ls_input,@ls_output)
?ls_output
调用方法二:(其他相关参考示例)
DECLARE LONG BUSINESS_HANDLE IN ./SiInterface.dll as b_handle LONG,LONG
IF ALLTRIM(thisform.txt_cx.Value)="*"
ls_input = parstr("31"+CHR(0))
ELSE
ls_input = parstr("01
------解决思路----------------------
"+UPPER(ALLTRIM(thisform.txt_cx.value))+CHR(0))
ENDIF
ls_output = parstr(space(3068)+CHR(0))
lctime=TTOC(DATETIME())
b_handle(ls_input,ls_output)
sz_ls_output = strpar(ls_output)
?sz_ls_output