Hostowanie CLR w Delphi za pomocą/bez JCL - przykład

Question

Czy ktoś może zamieścić tutaj przykład jak hostować CLR w Delphi? Przeczytałem podobne tutaj question, ale nie mogę używać JCL, ponieważ chcę go hostować w Delphi 5. Dziękuję.

---

EDIT: Ten article o hosting CLR w Fox Pro wygląda obiecująco, ale nie wiem, jak uzyskać dostęp do clrhost.dll z Delphi.

---

Edit 2: daję się na Delphi 5 wymogu. Teraz próbuję JCL z Delphi 7. Ale znowu nie mogę znaleźć żadnego przykładu. Oto co mam do tej pory:

Mój zespół C#:

namespace DelphiNET 
{ 
    public class NETAdder 
    { 
     public int Add3(int left) 
     { 
      return left + 3; 
     } 
    } 
} 

Mam przygotował go do DelphiNET.dll.

Teraz chcę używać tego zestawu z Delphi:

uses JclDotNet, mscorlib_TLB; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    clr: TJclClrHost; 
    ads: TJclClrAppDomainSetup; 
    ad: TJclClrAppDomain; 
    ass: TJclClrAssembly; 
    obj: _ObjectHandle; 
    ov: OleVariant; 
begin 
    clr := TJclClrHost.Create(); 
    clr.Start; 
    ads := clr.CreateDomainSetup; 
    ads.ApplicationBase := 'C:\Delhi.NET'; 
    ads.ConfigurationFile := 'C:\Delhi.NET\my.config'; 
    ad := clr.CreateAppDomain('myNET', ads); 
    obj := (ad as _AppDomain).CreateInstanceFrom('DelphiNET.dll', 'DelphiNET.NETAdder'); 
    ov := obj.Unwrap; 
    Button1.Caption := 'done ' + string(ov.Add3(5)); 
end; 

To kończy się błędem: EOleError: Variant nie odwoływać się do obiektu automatyzacji

ja nie pracowałem z Delphi za długa czas więc siedzę tutaj ...

---

Rozwiązanie: T tutaj był problem z widocznością COM, która nie jest domyślnie. Jest to prawidłowa NET:

namespace DelphiNET 
{ 
    [ComVisible(true)] 
    public class NETAdder 
    { 
     public int Add3(int left) 
     { 
      return left + 3; 
     } 
    } 
} 

---

Ważna uwaga:

Podczas pracy z .NET z Delphi, ważne jest wywołanie Set8087CW($133F); na początku programu (czyli przed Application.Initialize;). Delphi domyślnie włączył wyjątki zmiennoprzecinkowe (zobacz this), a CLR ich nie lubi. Kiedy miałem je włączone, mój program dziwnie się zawiesił.

Answer 1

Klasa musi być niewidoczna. Które może nie być prawdą, jeśli masz ComVisible (fałsz) dla całego zespołu.

klas .NET będzie kompatybilny IDispatch domyślnie, więc próbka powinna działać dobrze, jeśli klasa jest naprawdę comvisible ..

Ale rozebrać go do minimum pierwszy. Umieść plik exe w tym samym folderze co zestaw .Net i pomiń plik konfiguracyjny i bazę aplikacji.

Zanim coś się pomyli, wyjątek się tu wydarzy, prawda?

ov := obj.Unwrap; 

Answer 2

Proszę bardzo:

program CallDotNetFromDelphiWin32; 

{$APPTYPE CONSOLE} 

uses 
    Variants, JclDotNet, mscorlib_TLB, SysUtils; 

var 
    Host: TJclClrHost; 
    Obj: OleVariant; 
begin 
    try 
    Host := TJclClrHost.Create; 
    Host.Start; 
    WriteLn('CLRVersion = ' + Host.CorVersion); 

    Obj := Host.DefaultAppDomain.CreateInstance('DelphiNET', 'DelphiNET.NETAdder').UnWrap; 
    WriteLn('2 + 3 = ' + IntToStr(Obj.Add3(2))); 

    Host.Stop; 
    except 
    on E: Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
end. 

Uwaga: Zakłada się, że typ DelphiNET.NETAdder i metoda ADD3 w DelphiNet.dll to ComVisible. Dzięki Robert.

Aktualizacja:

Przy użyciu odbicia nie trzeba atrybut ComVisible. Następny przykład działa nawet bez ComVisible.

Assm := Host.DefaultAppDomain.Load_2('NetAddr'); 
T := Assm.GetType_2('DelphiNET.NETAdder'); 
Obj := T.InvokeMember_3('ctor', BindingFlags_CreateInstance, nil, null, nil); 
Params := VarArrayOf([2]); 
WriteLn('2 + 3 = ' + IntToStr(T.InvokeMember_3('Add3', BindingFlags_InvokeMethod, nil, Obj, PSafeArray(VarArrayAsPSafeArray(Params))))); 

Answer 3

Oto kolejna opcja.

To jest kod C#. I nawet jeśli nie chcesz używać my unmanaged exports, to nadal będzie to opisywać w jaki sposób używać mscoree (rzeczy do przechowywania CLR) bez przechodzenia przez IDispatch (IDispatch jest dość wolny).

using System; 
using System.Collections.Generic; 
using System.Text; 
using RGiesecke.DllExport; 
using System.Runtime.InteropServices; 

namespace DelphiNET 
{ 

    [ComVisible(true)] 
    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)] 
    [Guid("ACEEED92-1A35-43fd-8FD8-9BA0F2D7AC31")] 
    public interface IDotNetAdder 
    { 
     int Add3(int left); 
    } 

    [ComVisible(true)] 
    [ClassInterface(ClassInterfaceType.None)] 
    public class DotNetAdder : DelphiNET.IDotNetAdder 
    { 
     public int Add3(int left) 
     { 
     return left + 3; 
     } 
    } 

    internal static class UnmanagedExports 
    { 
     [DllExport("createdotnetadder", CallingConvention = System.Runtime.InteropServices.CallingConvention.StdCall)] 
     static void CreateDotNetAdderInstance([MarshalAs(UnmanagedType.Interface)]out IDotNetAdder instance) 
     { 
     instance = new DotNetAdder(); 
     } 
    } 
} 

To jest deklaracja interfejsu Delphi:

type 
    IDotNetAdder = interface 
    ['{ACEEED92-1A35-43fd-8FD8-9BA0F2D7AC31}'] 
    function Add3(left : Integer) : Integer; safecall; 
    end; 

Jeśli używasz eksportu niezarządzanymi, można to zrobić tak:

procedure CreateDotNetAdder(out instance : IDotNetAdder); stdcall; 
    external 'DelphiNET' name 'createdotnetadder'; 

var 
    adder : IDotNetAdder; 
begin 
    try 
    CreateDotNetAdder(adder); 
    Writeln('4 + 3 = ', adder.Add3(4)); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

Kiedy dostosować próbkę Larsa, że ​​będzie wygląda tak:

var 
    Host: TJclClrHost; 
    Obj: IDotNetAdder; 
begin 
    try 
    Host := TJclClrHost.Create; 
    Host.Start(); 
    WriteLn('CLRVersion = ' + Host.CorVersion); 

    Obj := Host.DefaultAppDomain 
       .CreateInstance('DelphiNET', 
           'DelphiNET.DotNetAdder') 
       .UnWrap() as IDotNetAdder; 
    WriteLn('2 + 3 = ', Obj.Add3(2)); 

    Host.Stop(); 
    except 
    on E: Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
end. 

W tym przypadku oczywiście można usunąć klasę "UnmanagedExports" z kodu C#.