アウトプロセス COM サーバーをセットアップするためのベースとしてMicrosoft のCSExeCOMServerを使用していますが、正しく動作しません。サーバーは 64 ビット、クライアントは 32 ビットです。
これがサンプルインターフェースです
[Guid(XXCryptService.InterfaceId), ComVisible(true)/*, InterfaceType(ComInterfaceType.InterfaceIsIUnknown)*/]
public interface IXXCryptService
{
[DispId(1)] string Encrypt(string password, string key);
[DispId(2)] string Decrypt(string password, string key);
}
そしてクラス
[ClassInterface(ClassInterfaceType.None)]
[Guid(XXCryptService.ClassId), ComVisible(true)]
public class XXCryptService : ReferenceCountedObject, IXXCryptService
{
internal const string ClassId =
"C5F6938B-5593-4872-B8C7-B47EE33EABCD";
internal const string InterfaceId =
"6990FF5F-22E2-4032-8B98-36115DBCEFFF";
[EditorBrowsable(EditorBrowsableState.Never)]
[ComRegisterFunction()]
public static void Register(Type t)
{
try
{
COMHelper.RegasmRegisterLocalServer(t);
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
throw ex;
}
}
[EditorBrowsable(EditorBrowsableState.Never)]
[ComUnregisterFunction()]
public static void Unregister(Type t)
{
try
{
COMHelper.RegasmUnregisterLocalServer(t);
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
throw ex;
}
}
public string Encrypt(string password, string key)
{
return "Encrypted";
}
public string Decrypt(string password, string key)
{
return "Decrypted";
}
}
プログラムは実行されますが、クライアントが接続すると、サーバーが ObjectClassFactory で CreateInstance をトリガーし、Marshal.GetComInterfaceForObject(new XXCryptService(), typeof(IXXCryptService)) を使用して ppvObject でオブジェクトを返し、0 を返した後、クライアントでクラッシュします。
.NET でクライアントを実行すると、「タイプ 'COMTest.XXCryptService' の COM オブジェクトをインターフェイス タイプ 'COMTest.IXXCryptService' にキャストできません。IID '{6990FF5F- 22E2-4032-8B98-36115DBCEFFF}' は次のエラーのために失敗しました: Element not found. (Exception from HRESULT: 0x8002802B (TYPE_E_ELEMENTNOTFOUND)).".
[Guid("6990FF5F-22E2-4032-8B98-36115DBCEFFF")]
//[InterfaceType(ComInterfaceType.InterfaceIsDual)]
interface IXXCryptService
{
[DispId(1)] string Encrypt(string password, string key);
[DispId(2)] string Decrypt(string password, string key);
}
[ComImport, Guid("C5F6938B-5593-4872-B8C7-B47EE33EABCD")]
class XXCryptService
{
}
class Program
{
static void Main(string[] args)
{
XXCryptService cs = new XXCryptService();
IXXCryptService ics = (IXXCryptService) cs;
Console.WriteLine(ics.Encrypt("Test","Test"));
Console.ReadKey();
}
}
Delphi でクライアントを実行すると、EIntfCastError で例外がトリガーされ、「Interface not supported」というメッセージが表示されます。「タイプ ライブラリのインポート」で COM をインポートし、このように使用します。
procedure TForm1.FormCreate(Sender: TObject);
begin
FCrypter := CoXXCryptService.Create;
end;
TLBインターフェースはこんな感じ
IXXCryptService = interface(IDispatch)
['{6990FF5F-22E2-4032-8B98-36115DBCEFFF}']
function Encrypt(const password: WideString; const key: WideString): WideString; safecall;
function Decrypt(const password: WideString; const key: WideString): WideString; safecall;
end;
// *********************************************************************//
// DispIntf: IXXCryptServiceDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6990FF5F-22E2-4032-8B98-36115DBCEFFF}
// *********************************************************************//
IXXCryptServiceDisp = dispinterface
['{6990FF5F-22E2-4032-8B98-36115DBCEFFF}']
function Encrypt(const password: WideString; const key: WideString): WideString; dispid 1;
function Decrypt(const password: WideString; const key: WideString): WideString; dispid 2;
end;
レジストリを確認したところ、すべてが適切に登録されているようですが、なぜこの問題が発生するのかわかりません。
ここにいる人は、何が問題なのか手がかりを持っていますか?
編集: クライアントを 64 ビットでコンパイルしましたが、正常に動作しています。また、間違ったパスを参照していました。調整した後、.NET x86 クライアントで別のエラーが発生しました。
IID '{6990FF5F-22E2-4032-8B98-36115DBCEFFF}' を持つインターフェイスの COM コンポーネントでの QueryInterface 呼び出しが次のエラーにより失敗したため、この操作は失敗しました: タイプ ライブラリ/DLL の読み込み中にエラーが発生しました。(HRESULT からの例外: 0x80029C4A (TYPE_E_CANTLOADLIBRARY))