delphi呼び出しC#DLLプログラムセット
1221 ワード
まず、クラスライブラリの新規作成
右クリッククラスライブラリ、属性、アプリケーション、プログラムセット情報、チェックを付けてプログラムセットCOMを表示させる(M)
新しいクラスライブラリ、すなわち新しいDLLを再生成する
例えばDLLはtestである.dll、Cディスクルートディレクトリに入れる
スタート--』プログラム--』Microsoft Visual Studio 2005-』--Visual Studio Tools-」Visual Studio 2005コマンドプロンプト
regsvr 32 C:/testと入力.dll実行、登録成功(regasm C:/test.dll/tlb:test 2.tlb/codebase regsvr 32登録が成功しない場合は、この登録)
tlbExp C:/testと入力.dll実行、ディレクトリC:Program FilesMicrosoft Visual Studio 8VCに生成
コピーするtlbファイルはDelphiを開き、tlbファイルを導入して浮雲のようなすべてを呼び出すことに成功した.まず、新しいクラスライブラリの右クリッククラスライブラリ、属性、アプリケーション、プログラムセット情報、チェックをして、プログラムセットCOMを可視化(M)し、新しいクラスライブラリ、すなわちDLLのような新しいDLLをtestとして再生成する.dll,Cディスクルートディレクトリの開始--』プログラム--"Microsoft Visual Studio 2005-"--Visual Studio Tools-"Visual Studio 2005コマンドプロンプトregsvr 32 C:/test.dll実行、登録成功(regasm C:/test.dll/tlb:test 2.tlb/codebase regsvr 32登録が成功しない場合は、この登録)tlbExp C:/testを入力.dll実行、ディレクトリC:Program FilesMicrosoft Visual Studio 8VCコピーtestに生成する.tlbファイルはDelphiを開いて、tlbファイルを導入してすべて浮雲のように呼び出して、成功します
右クリッククラスライブラリ、属性、アプリケーション、プログラムセット情報、チェックを付けてプログラムセットCOMを表示させる(M)
新しいクラスライブラリ、すなわち新しいDLLを再生成する
例えばDLLはtestである.dll、Cディスクルートディレクトリに入れる
スタート--』プログラム--』Microsoft Visual Studio 2005-』--Visual Studio Tools-」Visual Studio 2005コマンドプロンプト
regsvr 32 C:/testと入力.dll実行、登録成功(regasm C:/test.dll/tlb:test 2.tlb/codebase regsvr 32登録が成功しない場合は、この登録)
tlbExp C:/testと入力.dll実行、ディレクトリC:Program FilesMicrosoft Visual Studio 8VCに生成
コピーするtlbファイルはDelphiを開き、tlbファイルを導入して浮雲のようなすべてを呼び出すことに成功した.まず、新しいクラスライブラリの右クリッククラスライブラリ、属性、アプリケーション、プログラムセット情報、チェックをして、プログラムセットCOMを可視化(M)し、新しいクラスライブラリ、すなわちDLLのような新しいDLLをtestとして再生成する.dll,Cディスクルートディレクトリの開始--』プログラム--"Microsoft Visual Studio 2005-"--Visual Studio Tools-"Visual Studio 2005コマンドプロンプトregsvr 32 C:/test.dll実行、登録成功(regasm C:/test.dll/tlb:test 2.tlb/codebase regsvr 32登録が成功しない場合は、この登録)tlbExp C:/testを入力.dll実行、ディレクトリC:Program FilesMicrosoft Visual Studio 8VCコピーtestに生成する.tlbファイルはDelphiを開いて、tlbファイルを導入してすべて浮雲のように呼び出して、成功します
var
co: Variant;
begin
CoInitialize(nil); // .
co := CreateOleObject('test2.ClassTest');
ShowMessage(co.ShowStr('2'));
co := Unassigned;
CoUninitialize;
end;