Using C# Library in Delphi XE
Как да си напишем Service на .NET и да го ползваме в Delphi XE
Ще започна с един прост пример "Hello World", който онагледява целия процес при изграждането на Dynamic-link library
2. Изтрийте файла class1.cs
3. Създайте нов interface: ITest.cs
4. Създайте нов class : Test.cs
5. Добавете следния код в ITest.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
namespace HelloWorld
{
public interface ITest
{
[ComVisible(true)]
string HelloWorld();
}
}
6.Добавете следния код в Test.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
namespace HelloWorld
{
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class Test : ITest
{
public Test()
{
}
[ComVisible(true)]
public string HelloWorld()
{
return "Hello World";
}
}
}
7.Отворете файла AssemblyInfo.cs и променете [assembly: ComVisible(false)]
на [assembly: ComVisible(true)]
8.Компилирайте
9.Отворете с administrator command prompt на Visual Studio и регистрирайте вашата dll-ка
regasm [target path] /tlb:HelloWorld.tlb
Тarget path e пътя до вашата dll-ка пример: (D:\Projects\HelloWorld\\HelloWorld\bin\Debug\HelloWorld.dll)
Използване на Dll в Delphi
1.Изберете Component - Import component - import type library.Изберете Next
2. Изберете (потърсете) HelloWorld от списъка - Изберете Next
3.Изберете отметка "Generate Component Wrappers"
4.Изберете отметка "Create Unit"
Създайте нов проект добавете в uses HelloWorld_TLB
Добавете файла създаден в .net HelloWorld.dll в Debug\Win32
Ето и кода в Delphi
unit HelloWorld;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, HelloWorld_TLB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
ftest: TTest;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ftest := TTest.Create(nil);
ShowMessage(ftest.HelloWorld);
end;
end.
Резултат
Надявам се да съм бил полезен!
