delphi访问webservice关于array of WideString类型调用的问题,请帮忙解决谢谢
var
Test : Array of WideString;
op:OperateResult;
begin
SetLength(Test, 2);
Test[1]:='sdf ';
Test[2]:='asdf';
op:=tree('a','abc',Test,'sdf');//
end;
说明：op为自定义对象类型，现在用delphi调用java写的webservice的方法如下：
java写的方法： OperateResult tree(String name,String age,String[] num,Stringaddress)
系统报错类型匹配错误 提示：Test[1]:='sdf ';有错误，但是如果去掉：op:=tree('a','abc',Test,'sdf');行是可以编译过去的，我想是类型的问题
Test : Array of WideString;类型与java中的String[] num类型之间的问题，请问怎么解决这样的问题。
谢谢，祝大家元旦快乐 QQ:18399559
String与JString类型的相互转换，跨平台代码
该函数与平台无关
//将const char类型转换成jstring类型
jstring stoJstring( JNIEnv* env, const char* pat )
{
//定义java String类 strClass
jclass strClass = (env)->FindClass("Ljava/lang/String;");
//获取java String类方法String(byte[],String)的构造器,用于将本地byte[]数组转换为一个新String
jmethodID ctorID = (env)->GetMethodID(strClass, "<init>", "([BLjava/lang/String;)V");
jbyteArray bytes = (env)->NewByteArray(strlen(pat));//建立byte数组
(env)->SetByteArrayRegion(bytes, 0, strlen(pat), (jbyte*)pat);//将char* 转换为byte数组
jstring encoding = (env)->NewStringUTF("GB2312"); // 设置String, 保存语言类型,用于byte数组转换至String时的参数
return (jstring)(env)->NewObject(strClass, ctorID, bytes, encoding);//将byte数组转换为java String,并输出
}
string jstringTostring(JNIEnv* env, jstring jstr)
{
char* rtn = NULL;
jclass clsstring = env->FindClass("java/lang/String");
jstring strencode = env->NewStringUTF("GB2312");
jmethodID mid = env->GetMethodID(clsstring, "getBytes", "(Ljava/lang/String;)[B");
jbyteArray barr= (jbyteArray)env->CallObjectMethod(jstr,mid,strencode);
jsize alen = env->GetArrayLength(barr);
jbyte* ba = env->GetByteArrayElements(barr,JNI_FALSE);
if(alen > 0)
{
rtn = (char*)malloc(alen+1); //new char[alen+1];
memcpy(rtn,ba,alen);
rtn[alen]=0;
}
env->ReleaseByteArrayElements(barr,ba,0);
string stemp(rtn);
free(rtn);
return stemp;
}
看来你的麻烦比较难解决, 关注中,期待达人出现
