我一直在寻找到使用一些.NET code，从一个Delphi程序中，我需要使用.NET程序集和predefined函数（我已经支持常规的DLL），使我的程序扩展性。

I was looking into using some .NET code from within a Delphi program, I will need to make my program extensible using .net assemblies and predefined functions (I already support regular DLLs).

在很多网上搜索，我发现托管VCL 的，但我不准备支付250 $什么我需要的，我也发现了一些新闻组与code，它是不完整的，是行不通的。

After a lot of searching online, I found Managed-VCL, but I'm not ready to pay $250 for what I need, I also found some newsgroups with code that's incomplete and doesn't work.

我使用的是2007年德尔福为Win32。我可以用什么来动态地从组装predefined参数执行一个功能？

I'm using Delphi 2007 for win32. What can I use to dynamically execute a function from an assembly with predefined parameters?

是这样的：

procedure ExecAssembly(AssemblyFileName:String; Parameters: Variant);

我只想补充一点，我需要能够加载任意的程序集（也许所有在一个特定的文件夹中的程序集），所以建立一个C＃包装可能无法正常工作。

I just want to add that I need to be able to load an arbitrary assemblies (maybe all the assemblies in a specific folder), so creating a C# wrapper may not work.

推荐答案

在绝地code库（JCL） - 无 - 有一个JclDotNet.pas，包含一类TJclClrHost，可能做你想要什么：

In the Jedi Code Library (JCL) - free - there is a JclDotNet.pas, containing a class TJclClrHost, probably doing what you want:

  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;