Delphiの配列バリアントを文字列に変換する

Question

私のデルファイプログラムでは、私はWebサービスと通信しています。私は次の関数は、私は自分のコード内でこれを呼び出すとき

function call(const sessionId: WideString; const resourcePath: WideString; 
const args: Variant): Variant; stdcall; 

は今、私が返す値

var 
p:WideString; 
v:variant; 
VarArray:variant; 
begin 

    //varArray := VarArrayCreate([0,50],varVariant); 

    v := (httprio1 as Mtest).call(a,'giftgit.gift', '28184'); 


    //p := VarArrayget(V,[1]) ; 
    p := vartostr(v[1]); 

が、私はこのエラーを取得しているものを見たいcreated-しまったWSDLのインポートでは

最後の行にある

タイプ（配列バリアント）のバリアントをタイプ（文字列）に変換できません

私はvarArrayを試しましたが、同じ問題です。 どうすればこの問題を解決できますか？

ありがとうございました

Answer 1

このエラーは、V [1]がバリアント配列であることを示しています。

TPsVarDataType = (
    vdtDefault, // varEmpty 
    vdtNull, 
    vdtSmallint, 
    vdtInteger, 
    vdtSingle, 
    vdtDouble, 
    vdtCurrency, 
    vdtDate, 
    vdtOleStr, // varOleStr, varString, varUString 
    vdtDispatch, 
    vdtError, 
    vdtBoolean, 
    vdtVariant, 
    vdtUnknown, 
    vdtDecimal, 
    vdtUndefined, 
    vdtShortint, 
    vdtByte, 
    vdtWord, 
    vdtLongWord, 
    vdtInt64, 
    {$IFDEF D2009_OR_LATER} 
    vdtUInt64, 
    {$ENDIF} 
    vdtUnsupported 
    {Usupported types 
    VT_UI8 = 21, 
    VT_INT = 22, 
    VT_UINT = 23, 
    VT_VOID = 24, 
    VT_HRESULT = 25, 
    VT_PTR = 26, 
    VT_SAFEARRAY = 27, 
    VT_CARRAY = 28, 
    VT_USERDEFINED = 29, 
    VT_LPSTR = 30, 
    VT_LPWSTR = 31, 
    VT_RECORD = 36, 
    VT_FILETIME = 64, 
    VT_BLOB = 65, 
    VT_STREAM = 66, 
    VT_STORAGE = 67, 
    VT_STREAMED_OBJECT = 68, 
    VT_STORED_OBJECT = 69, 
    VT_BLOB_OBJECT = 70, 
    VT_CF = 71, 
    VT_CLSID = 72, 
    VT_VERSIONED_STREAM = 73, 
    VT_BSTR_BLOB = 0xfff, 
    VT_VECTOR = 0x1000, 
    VT_ARRAY = 0x2000, 
    VT_BYREF = 0x4000, 
    VT_RESERVED = 0x8000, 
    VT_ILLEGAL = 0xffff, 
    VT_ILLEGALMASKED = 0xfff, 
    VT_TYPEMASK = 0xfff 
    } 
); 

const 
    SPsVarDataTypes: array [TPsVarDataType] of string = (
    'Default', 
    'Null', 
    'Smallint', 
    'Integer', 
    'Single', 
    'Double', 
    'Currency', 
    'Date', 
    'OleStr', 
    'Dispatch', 
    'Error', 
    'Boolean', 
    'Variant', 
    'Unknown', 
    'Decimal', 
    'Undefined', 
    'Shortint', 
    'Byte', 
    'Word', 
    'LongWord', 
    'Int64', 
    {$IFDEF D2009_OR_LATER} 
    'UInt64', 
    {$ENDIF} 
    'Unsupported' 
); 

const 
    SPsVarDataTypes: array [TPsVarDataType] of string = (
    'Default', 
    'Null', 
    'Smallint', 
    'Integer', 
    'Single', 
    'Double', 
    'Currency', 
    'Date', 
    'OleStr', 
    'Dispatch', 
    'Error', 
    'Boolean', 
    'Variant', 
    'Unknown', 
    'Decimal', 
    'Undefined', 
    'Shortint', 
    'Byte', 
    'Word', 
    'LongWord', 
    'Int64', 
    {$IFDEF D2009_OR_LATER} 
    'UInt64', 
    {$ENDIF} 
    'Unsupported' 
); 

    SPsVarArray = 'Array of %s'; 
    SPsVarByRef = '%s (Reference)'; 

function VariantToStr(V: Variant; IncludeType: Boolean = False): string; 
begin 
    if VarIsArray(V) then 
    Result := VarArrayToStr(V) 
    else 
    case VarType(V) of 
     varError: 
     Result := Format('Error($%x)', [TVarData(v).VError]); 
     varNull: 
     Result := '#NULL'; 
     varEmpty: 
     Result := '#EMPTY'; 
     varDate: 
     Result := FormatDateTime(ShortDateFormat + ' ' + LongTimeFormat + '.zzz', V) 
    else 
     Result := VarToStr(V); 
    end; 
    if IncludeType then 
    Result := Format('%s{%s}', [Result, VarTypeToString(VarType(V))]); 
end; 


function VarArrayToStr(v: Variant; Delimiter: Char = #0; LineDelimiter: Char = 
    #13): string; 
var 
    i,j,d: Integer; 
    line: string; 
begin 
    if VarIsArray(v) then 
    begin 
    if Delimiter = #0 then 
     Delimiter := ListSeparator; 
    if LineDelimiter = #0 then 
     LineDelimiter := ListSeparator; 
    d := VarArrayDimCount(v); 
    // The elements 
    case d of 
     1: 
     begin 
     Result := ''; 
     for i := VarArrayLowBound(v,1) to VarArrayHighBound(v,1) do 
      Result := Result + VariantToStr(v[i]) + Delimiter; 
     if Length(Result) > 0 then 
      SetLength(Result, Length(Result)-1); 
     end; 
     2: 
     begin 
     Result := ''; 
     if (VarArrayLowBound(v,1) <= VarArrayHighBound(v,1)) and 
      (VarArrayLowBound(v,2) <= VarArrayHighBound(v,2)) then 
     begin 
      for i := VarArrayLowBound(v,1) to VarArrayHighBound(v,1) do 
      begin 
      line := ''; 
      for j := VarArrayLowBound(v,2) to VarArrayHighBound(v,2) do 
       line := line + VariantToStr(v[i,j]) + Delimiter; 
      if Length(Result) > 0 then 
       SetLength(line, Length(line)-1); 
      Result := Result + LineDelimiter + Format('[%s]', [line]); 
      end; 
     end; 
     end // 2 
    else 
     Result := 'Array Dim=' + IntToStr(d); 
    end; 
    Result := Format('[%s]', [Result]); 
    end 
    else 
    Result := VarToStr(v); 
end; 


function VarTypeToString(varType: Integer): string; 
var 
    T: TPsVarDataType; 
begin 
    if varType = varString then 
    Result := 'string' 
    else 
    begin 
    T := VarTypeToPsVarDataType(varType); 
    if T = vdtUnSupported then 
     Result := IntToStr(varType and varTypeMask) 
    else 
     Result := SPsVarDataTypes[T]; 
    end; 
    if (varType and varArray) <> 0 then 
    Result := Format(SPsVarArray,[Result]); 

    if (varType and varByRef) <> 0 then 
    Result := Format(SPsVarByRef,[Result]); 
end; 


function VarTypeToPsVarDataType(Value: Word): TPsVarDataType; 
var 
    v: Word; 
begin 
    debugEnter('VarTypeToPsVarDataType'); 
    v := Value and varTypeMask; 
    debugInt('Value', v); 
    if v < Word(vdtUnsupported) then 
    result := TPsVarDataType(v) 
    else if v = varString then 
    result := vdtOleStr 
    {$IFDEF D2009_OR_LATER} 
    else if v = varUString then 
    result := vdtOleStr 
    {$ENDIF} 
    else 
    result := vdtUnsupported; 
    debugLeave; 
end; 

function PsVarDataTypeToVarType(Value: TPsVarDataType; IsArray: Boolean = 
    False): Word; 
begin 
    if Value = vdtUnsupported then 
    Result := varEmpty 
    else 
    begin 
    Result := Word(Value); 
    if IsArray then 
     Result := Result or varArray; 
    end; 
end; 

UPDATE 2012年9月20日：私は、文字列定数を逃したように思えるあなたは、それは私はあなたがそれを表示するのに役立ちます方法がいくつかありVarIsArray(V[1])

と確かにあることを確認することができます。追加されました。 UPDATE 2012-11-02：TPsVarDataType、VarTypeToPsVarDataType（）& VarTypeToPsVarDataType（）;