delphi访问webservice关于array of WideString类型调用的问题，请帮忙解决谢谢

Question

在java中 String不属于8种基本数据类型，String是一个对象。 

Answer 1

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;   
 }   
看来你的麻烦比较难解决, 关注中,期待达人出现