Вызов кода на C# из программы на Delphi

Обычно решают противоположную задачу - вызов внешних модулей (DLL, COM), написанных на C++, Delphi и т.п., из программы на C#. У меня же возникла необходимость вызвать из программы написанной на Delphi функцию библиотеки, написанной на C#. В этом посте я расскажу о том, как это делается.

Итак, нужно сделать на C# COM объект, к которому затем мы сможем обращаться из нашей программы на Delphi.

  1. В Visual Studio создаем новый проект New/Project/Visual C#/Class Library.

  2. В свойствах проекта на вкладке Application жмем кнопку “Assembly Information” и отмечаем “Make assembly COM-visible”.

  3. В свойствах проекта на вкладке Build отмечаем Register for COM interop.

  4. Для регистрации библиотеки вместо regsvr32 нужно использовать regasm. Вызов будет типа такого:

    regasm.exe vcomclasslibrary.dll /tlb:vcomclasslibrary.tlb

    regasm.exe обычно расположен тут:

    c:\Windows\Microsoft.NET\Framework\v2.0.50727\

  5. Код на C#: 


    using System;
    using System.Drawing;
    using System.Runtime.InteropServices;
    namespace VCOMClassLibrary
    {
     [ComVisible(true)]
     public interface IVCOMInterface
     {
       string LoadImageFromStream(System.IO.Stream stream);
     }
     [ComVisible(true), ClassInterface(ClassInterfaceType.None)]
     public class VCOMClass : IVCOMInterface
     {
       public string LoadImageFromStream(System.IO.Stream stream)
       {
         Image img = Image.FromStream(stream);
         //put code to load image here
         return "OK";
       }
     }
    }

  6. В проекте на Delphi импортируем VCOMClassLibrary (Project/Import Type Library). Пример вызова (в котором я заодно показал как передавать Stream): 


    procedure TForm1.Button1Click(Sender: TObject);
    var
     cls: IVCOMInterface;
     Stream: IStream;
     FileStream: TFileStream;
    begin
     cls := CreateComObject(CLASS_VCOMClass) as IVCOMInterface;
     FileStream := TFileStream.Create('c:\temp\1.jpg', fmOpenRead);
     Stream := TStreamAdapter.Create(FileStream, soOwned) as IStream;
     cls.LoadImageFromStream(Stream);
     FileStream.Free;
    end;

===
Перепечатка материалов блога разрешается с обязательной ссылкой на blog.coolsoftware.ru