Question

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).

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.

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

Something like:

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

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.

Answer 1

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;