Подключить DLL из c# в Delphi

@Илья888 · Регистрация: 09.04.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
Столкнулся с непонятной для меня задачей
Суть такова, есть проект на Delphi большой и не переписываемый на c#. Так сложилось
я сам пишу на c#
Поэтому задача использовать библиотеки с шарпов в делфи
Весь Инет перегуглил
из найденного собрал такое

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
 
using System.Drawing;
using System.Net.Sockets;
 
namespace LibForDelphi
{
    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("C8D80BAE-83B0-4312-A72D-29044EDACBA1")]
    public interface ILauncher
    {
        void launch();
        string Hello(string str);
        int Add(int a, int b);
    }
 
    [ClassInterface(ClassInterfaceType.None), Guid("23008950-183C-4EB2-85E8-DAD5E49E3096"), ProgId("Test.ComObjFromCCharp")]
    public class Launcher : ILauncher
    {
 
        public string Hello(string str)
        {
            return str + '\n' + str;
        }
 
        public int Add(int a, int b)
        {
            return a + b;
        }
 
        public void launch()
        {
            Console.WriteLine("Hello world");
 
        }
 
    }
}

Сборка СОМ видима

код в делфи, в консоли

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils,
  LibForDelphi_TLB in 'C:\Users\User\Documents\Embarcadero\Studio\22.0\Imports\LibForDelphi_TLB.pas';
 var   name : string;
var test: ILauncher;
begin
  try
     test := CoLauncher.Create;
  test.launch;
  Writeln(test.Hello('Ololo'));
  Writeln(test.Add(5, 13));
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn(name);
end.

При запуске выдает ошибку:

EOleSysError: Класс не зарегистрирован, ClassID: {23008950-183C-4EB2-85E8-DAD5E49E3096}
Зарегистрировать пытался через regsvr, не вышло
Как зарегистрировать этот класс??!

Verevkin · 04.04.2024, 13:24

Сообщение от Илья888

При запуске выдает ошибку

Если написать запускающий exe не на delphi, а на шарпе, ошибка пропадёт?

Someone007 · 04.04.2024, 17:07

Сообщение от Илья888

Как зарегистрировать этот класс??!

https://learn.microsoft.com/en... s-with-com

@Илья888 · 11.04.2024, 14:34 **[ТС]**

Зарегистрировал с помощью regasm
теперь ошибки выглядят так

@t232006 · 28.04.2024, 15:17

На самом деле я тоже много кого спрашивал, так и не получил ответа. Могу с уверенностью сказать следующее: если пишете на фреймворке, то там особо проблем нет, а если в коре или не дай бог в стандарте, то бесполезно. Решил следующим образом: реализовал программу на C# в консольном исполнении и запустил в делфи с помощью ShellExecute.

@krapotkin · 28.04.2024, 15:56

по сабжу ничего не скажу.
видел, что люди делают связку, но не более того. подробности не успел понять

а вот shellexec немного избыточно, через запуск explorer...

проще CreateProcess

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
unit RunProgramUnit;
 
interface
  procedure RunProgram(cmdStr:string; Wait:Boolean; ShowWindow:Word);
 
implementation
uses
  windows, sysutils, dialogs;
 
procedure RunProgram(cmdStr:string; Wait:Boolean; ShowWindow:Word);
var si:TStartupInfo;
  pi:TProcessInformation;
  s:string;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb := SizeOf(si);
  si.dwFlags:=STARTF_USESHOWWINDOW;
  si.wShowWindow := ShowWindow;
  s:=cmdStr;
  UniqueString(s);
  getlasterror;
  if not CreateProcess(nil, PChar(S), NIL, NIL, False, 0, NIL, NIL, si, pi) then
    showMessageFmt('Error %d. %s',[getlasterror,SysErrorMessage(getlasterror)]);
 
  if wait then
    WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;
 
 
end.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Илья888 7 / 7 / 0 Регистрация: 09.04.2013 Сообщений: 121
	11.04.2024, 14:34 [ТС]
	Зарегистрировал с помощью regasm теперь ошибки выглядят так Миниатюры 0

@t232006 4 / 4 / 0 Регистрация: 09.12.2022 Сообщений: 297
	28.04.2024, 15:17
	На самом деле я тоже много кого спрашивал, так и не получил ответа. Могу с уверенностью сказать следующее: если пишете на фреймворке, то там особо проблем нет, а если в коре или не дай бог в стандарте, то бесполезно. Решил следующим образом: реализовал программу на C# в консольном исполнении и запустил в делфи с помощью ShellExecute. 0