Вызов ShowMessage из DLL в Lasarus

@DLAntonio · Регистрация: 01.03.2011

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

Переношу DLL проект с Делфи на Лазаря, столкнулся с такой проблемой. Лазарус не видит окна ShowMessage из проектов DLL, говорит Error: Identifier not found "showmessage"
. Кто нибудь знает как с этим бороться, а то я уже весь интернет облазил???

Пример кода в Делфи:

Delphi

library Project2;
 
uses
  Classes,
  Dialogs;
 
{$R *.res}
 
//------------------------------------------------------------------------------
procedure Message1();
begin
  ShowMessage('Окно сообщения');
end;
//------------------------------------------------------------------------------
Exports
 Message1;
//------------------------------------------------------------------------------
begin
end.

Тот же код в Лазаре:

Delphi

library project1;
 
{$mode objfpc}{$H+}
 
uses
  Classes, Dialogs;
  { you can add units after this }
//------------------------------------------------------------------------------
procedure Message1; export;
begin
  ShowMessage('Окно сообщения');
end;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
//------------------------------------------------------------------------------
Exports
 Message1;
//------------------------------------------------------------------------------
begin
end.

@afiskon · 02.03.2011, 17:44

Не могу сказать, в чем проблема, но вообще-то нехорошо, когда в dll реализуются интерфейсы GUI вместо логики. Может, вам при переносе это исправить?

@DLAntonio · 02.03.2011, 21:11 **[ТС]**

Согласен, что использование интерфейсов в DLL не есть правила хорошего тона. В моем случае DLL - является расширением для сторонней программы и реализует как часть логики, так и недостающую часть интерфейса. По этому приходится "изобретать велосипед". Мне кажется проблема должна решаться как-то, очень просто, вопрос как именно? Lazarus очень похож на Delphi, а значит должна быть и возможность вызова окон из DLL.

@Alex7777 · 09.03.2011, 23:28

Раз используете DLL, значит, пишете под Windows. Так?
И если не нужна (к примеру) кроссплатформенность, почему бы вместо ShowMessage не использовать что-нибудь вроде Application.MessageBox(...) или просто обёртку для виндовой MessageBox()? Оно опирается на Windows API, должно работать бы...

@mss · 10.03.2011, 11:11

Воспользуйся готовым инструментом автоматического портирования Delphi-проекта в lazarus-проект

@Yukirin · 29.09.2016, 23:50

Добавьте uses Interfaces

@afiskon 65 / 53 / 4 Регистрация: 06.09.2010 Сообщений: 254
	02.03.2011, 17:44	2
	Не могу сказать, в чем проблема, но вообще-то нехорошо, когда в dll реализуются интерфейсы GUI вместо логики. Может, вам при переносе это исправить? 0

@DLAntonio 0 / 0 / 0 Регистрация: 01.03.2011 Сообщений: 3
	02.03.2011, 21:11 [ТС]	3
	Согласен, что использование интерфейсов в DLL не есть правила хорошего тона. В моем случае DLL - является расширением для сторонней программы и реализует как часть логики, так и недостающую часть интерфейса. По этому приходится "изобретать велосипед". Мне кажется проблема должна решаться как-то, очень просто, вопрос как именно? Lazarus очень похож на Delphi, а значит должна быть и возможность вызова окон из DLL. 0

@Alex7777 10 / 0 / 0 Регистрация: 13.02.2011 Сообщений: 8
	09.03.2011, 23:28	4
	Раз используете DLL, значит, пишете под Windows. Так? И если не нужна (к примеру) кроссплатформенность, почему бы вместо ShowMessage не использовать что-нибудь вроде Application.MessageBox(...) или просто обёртку для виндовой MessageBox()? Оно опирается на Windows API, должно работать бы... 0

@mss 2649 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.03.2011, 11:11	5
	Воспользуйся готовым инструментом автоматического портирования Delphi-проекта в lazarus-проект 0

@Yukirin 0 / 0 / 0 Регистрация: 05.10.2015 Сообщений: 1
	29.09.2016, 23:50	6
	Добавьте uses Interfaces 0

Опции темы