Psafearrayを使用してDelphiからの配列を使用して.NET COMメソッドを呼び出す方法は?
-
03-10-2019 - |
質問
で実装された.NET(4.0)インターフェイスがあります ServicedComponent
com+クラス:
interface DotNetIface
{
void MethodRef(var System.Guid guid);
void MethodArray(System.Guid[] guids, params object[] parameters);
void MethodCStyle([MarshalAs(UnmanagedType.LPArray, ArraySubType=UnmanagedType.Struct, SizeConst=5)]System.Guid[] guids);
}
今、私はDelphi 2007インポートウィザードを使用してタイプライブラリをインポートしましたが、予想どおり、次の署名を取得します。
procedure MethodRef(var guid : TGuid);
procedure MethodArray(guids : PSafeArray);
procedure MethodCStyle(var guids : ClrGuid /* from mscorlib_TLB */);
このような「ref」メソッドを呼び出すと、正常に動作します。
procedure CallByRef(guid : TGuid);
var
test : TGuid;
begin
test := ...
comRef.MethodRef(guid);
end;
これで、配列メソッドも必要です
procedure CallArray();
var
localGuid : TGuid;
arrayVariant : OleVariant;
begin
arrayVariant := VarArrayCreate([0,4], varVariant /* dont know here */);
arrayVariant[0] := localGuid; /* compile error, cannot cast implicitly */
comRef.MethodArray(PSafeArray(TVarData(arrayVariant.VArray)), /* here this object... PSafeArray works actually*/);
end;
最後に、ACアレイで試しました
procedure CallCStyle();
var
localGuid : TGuid;
arrayOfGuid : array [0..4] of ClrGuid;
begin
arrayOfGuid[0] := ClrGuid(localGuid);
comRef.MethodCStyle(PSafeArray(/* now i dont know put it*/, /* here this object... PSafeArray works actually*/);
end;
私はこの作品を作る方法を真剣に知りません。誰かがthxのマーシャリングの経験がもっとあることを願っています
サイドノード:
safearraycreateのために合格できると思うvt_clsidを見つけましたが、それを訴える方法がわかりません
解決
私はあなたが必要なものを試したことはありませんが、簡単な検索で次の記事が見つかりました:
- Delphiアプリケーションのスクリプト (バリアント配列をpsafearrayに変換する良い例を示しています
- バリアント用のDLLを使用してSafearrayアクセスを行う方法(OLE)
- Psafearrayの謎
所属していません StackOverflow