我正在研究如何在Delphi程序中使用一些.NET代码，我需要使用.NET程序集和预定义函数使我的程序可扩展（我已经支持常规DLL）。
在网上搜索了很多后，我发现了Managed-VCL，但我还不愿意为我所需的内容支付250美元，我也找到了一些新闻组中的代码，但这些代码不完整并且无法工作。
我正在使用Delphi 2007 for win32。我可以使用什么来动态执行具有预定义参数的程序集功能？
像这样：
procedure ExecAssembly(AssemblyFileName:String; Parameters: Variant);
我想强调的是，我需要能够加载任意程序集（可能是特定文件夹中的所有程序集），因此创建C＃包装器可能行不通。
TJclClrHost = class(TJclClrBase, ICorRuntimeHost)
private
FDefaultInterface: ICorRuntimeHost;
FAppDomains: TObjectList;
procedure EnumAppDomains;
function GetAppDomain(const Idx: Integer): TJclClrAppDomain;
function GetAppDomainCount: Integer;
function GetDefaultAppDomain: IJclClrAppDomain;
function GetCurrentAppDomain: IJclClrAppDomain;
protected
function AddAppDomain(const AppDomain: TJclClrAppDomain): Integer;
function RemoveAppDomain(const AppDomain: TJclClrAppDomain): Integer;
public
constructor Create(const ClrVer: WideString = '';
const Flavor: TJclClrHostFlavor = hfWorkStation;
const ConcurrentGC: Boolean = True;
const LoaderFlags: TJclClrHostLoaderFlags = [hlOptSingleDomain]);
destructor Destroy; override;
procedure Start;
procedure Stop;
procedure Refresh;
function CreateDomainSetup: TJclClrAppDomainSetup;
function CreateAppDomain(const Name: WideString;
const Setup: TJclClrAppDomainSetup = nil;
const Evidence: IJclClrEvidence = nil): TJclClrAppDomain;
function FindAppDomain(const Intf: IJclClrAppDomain; var Ret: TJclClrAppDomain): Boolean; overload;
function FindAppDomain(const Name: WideString; var Ret: TJclClrAppDomain): Boolean; overload;
class function CorSystemDirectory: WideString;
class function CorVersion: WideString;
class function CorRequiredVersion: WideString;
class procedure GetClrVersions(VersionNames: TWideStrings); overload;
class procedure GetClrVersions(VersionNames: TStrings); overload;
property DefaultInterface: ICorRuntimeHost read FDefaultInterface implements ICorRuntimeHost;
property AppDomains[const Idx: Integer]: TJclClrAppDomain read GetAppDomain; default;
property AppDomainCount: Integer read GetAppDomainCount;
property DefaultAppDomain: IJclClrAppDomain read GetDefaultAppDomain;
property CurrentAppDomain: IJclClrAppDomain read GetCurrentAppDomain;
end;
我曾经遇到过同样的问题。我在一家 Delphi 店工作，他们想要开始向遗留的 Delphi 应用程序添加 .NET 和 C# 的功能。我看了看 Managed-VLC，但决定跳过它，因为我觉得它存在一些严重的问题。我在这里找到了一个更简单的东西：Delphi.NET。注意：这不是原生运行在 .NET 上的 Delphi 版本。这是一个开源项目，通过 COM 和反射允许遗留的 Delphi 应用程序访问 .NET 功能。虽然它有点老，但由于使用了 COM，所以它非常好用。我可以证实它可以与 .NET 2.0 和 3.5 兼容。我花了几天时间将 .NET DLL 完全集成到我们的遗留 Delphi 5 应用程序中。我的老板认为我是个超级英雄。祝你好运！
您可以在Delphi中将.Net类作为COM对象使用：
现在，您可以访问在类型库中导出的.Net程序集中的类。
你可以使用 Delphi for .Net 和非托管导出，也称为反向 P/Invoke。
这基本上让您创建一个具有完全访问 .Net 框架的 .Net .dll，但可以像任何 .dll 一样被任何本地语言加载，而无需 com 互操作的开销。
这是一个简单的示例： http://cc.codegear.com/Item/22688
Could not load file or assembly 'RGiesecke.DllExport.Metadata, Version=1.0.0.0, Culture=neutral, PublicKeyToken=ad5f9f4a55b5020b' or one of its dependencies. The system cannot find the file specified.我使用这个包是因为它有[DllExport]注释。问题在这里。 - dialex