Использование библиотеки на C# в Delhi

[Crococo]

Доброго времени суток. Столкнулась с необходимостью использования библиотек написанных на C# в Delphi. Необходимо включить в библиотеку форму и вызывать эту форму из Delphi. Может у кого-нибудь есть подобный опыт. Буду очень признательна за любую помощь.

[Streletz]

Как использовать в Delphi-программе функции из DLL, написанной на C#

[MrCold]

Использование управляемых библиотек в неуправляемом коде , вполне реальная задача.Но Придется заниматься правкой IL-кода. Смотрите статьи на подобии этой
http://www.codeproject.com/Articles/...anaged-methods.
На Delphi не программирую, но для С++ вот вам вполне рабочий пример.
Простейшая библиотека написана на C#.
После некоторых "махинаций" она готова к использованию и в С++, и в С#.

using System;

    public static class CSharpClass
    {
        public static void ShowMessageBox()
        {
            System.Windows.Forms.MessageBox.Show("Hello from C Sharp!");
        }

        public static void ShowForm()
        {
            System.Windows.Forms.Form form = new System.Windows.Forms.Form();
            form.Text = "Hello from C Sharp!";
            form.ShowDialog();
            form.Close();
        }
    }

Вызов в С++

#include <iostream>
#include <Windows.h> 
 
typedef void ( WINAPIV * LPFN ) ( ); 


int main()
{
	HINSTANCE hMyDLL = LoadLibrary("DLLCSharpMessageBox.dll"); 
	if (NULL == hMyDLL) 
		std::cout << "LoadLibrary failed\n"; 
	else
	{
		LPFN fnName = (LPFN)GetProcAddress( hMyDLL, "ShowMessageBox" );
		if (NULL == fnName) 
			std::cout << "GetProcAddress ShowMessageBox failed\n"; 
		else
		{                                                         
			fnName();  
		}
		fnName = (LPFN)GetProcAddress( hMyDLL, "ShowForm" );
		if (NULL == fnName) 
			std::cout <<  "GetProcAddress ShowForm failed\n"; 
		else
		{                                                         
			fnName();  
		}
		FreeLibrary( hMyDLL );
	}
	system("PAUSE");
	return EXIT_SUCCESS;
}

Вызов в С#

using System;

    class Program
    {
        static void Main(string[] args)
        {            
            CSharpClass.ShowMessageBox();
            CSharpClass.ShowForm();
            Console.ReadKey();
        }
    }

В обоих случаях сначала появится месседжбокс, затем форма.
Библиотеку приложил.

[Crococo]

Сообщение от Streletz

Как использовать в Delphi-программе функции из DLL, написанной на C#

Спасибо, но вопрос был именно в вызове формы.
Уже получилось

[Crococo]

MrCold, спасибо, попробую, у меня получилось следующим образом:

test.dll на C#
к библиотеке подключила форму Form1

namespace test
{
public interface IMyInterface
{
void FormShow();
}

[ClassInterface(ClassInterfaceType.N one)]
public class TestClass : IMyInterface
{
public void FormShow()
{
Form Form1 = new Form1();
Form1.ShowDialog();
}

}
}

код на Delphi

procedure TfrmTest.btn3Click(Sender: TObject);
var
_Ref: IMyInterface;
begin
_Ref := CreateComObject(CLASS_TestClass) as IMyInterface;
_Ref.FormShow();
end;