C＃からDelphi dllに文字列配列を渡すにはどうすればよいですか？

Question

私はDelphiのDLLにC＃から文字列のオープン配列を渡す必要があります。 delphiの配列の長さを設定し、C＃に戻します。 これはどんな方法ですか？私はC＃で、このコードをしようとしている最初の場合

：

public struct TStrSample 
{ 
    [MarshalAs(UnmanagedType.BStr)] 
    public string Name; 
} 

[DllImport(@"EPConvs.dll", CallingConvention = CallingConvention.StdCall)] 
public static extern void PopulateStrArray([In, Out] [MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 1)] TStrSample[] arr, 
              ref int len); 


[Microsoft.SqlServer.Server.SqlProcedure] 
public static void hcTable(SqlBytes blob) 
{ 
    TStrSample[] arr = new TStrSample[10]; 
    int len = arr.Length; 
    for (int i = 0; i < len; i++) 
    { 
     arr[i].Name = i.ToString(); 
    } 
    PopulateStrArray(arr, ref len); 
} 

デルファイ一部：

type 
    TStrSample = record 
    Name: WideString; 
    end; 
    PStrSample = ^TStrSample; 

procedure PopulateStrArray(arr: PStrSample; var len: Integer); stdcall; 
var 
    i: Integer; 
    returnArray: array of TStrSample; 
begin 
    returnArray := @arr; 
    for i := 0 to Len-1 do 
    returnArray[i].Name := 'YES = ' + IntToStr(i); 
end; 

しかし、それは動作しません。なにが問題ですか？

Answer 1

私はDelphiコードを変更しましたが、現在は動作しています。おかげでデビッドヘフナーナン。

type 
    TStrSample = record 
    Name: WideString; 
    end; 
    PStrSample = ^TStrSample; 

procedure PopulateStrArray(arr: PStrSample; var len: Integer); stdcall; 
var 
    i: Integer; 
begin 
    for i := 0 to len - 1 do 
    begin 
    arr^.Name := 'YES = ' + IntToStr(i); 
    Inc(arr); 
    end; 
end; 

オープンアレイをDelphiに渡す可能性はありますか？