DLL

[BaronTreep]

В принципе можно заключить что имена Делфи не искажает, но это скорее вредит чем приносит пользу.

Теперь разобрался, согласен. Экспортировать перегруженные функции можно, но нужно их поименовать, т.е. фактически убрать весь эффект от перегрузки.

[Stilet]

т.е. фактически убрать весь эффект от перегрузки.

Не пробовал, но возможно в BPL перегрузка позволена...

[JTG]

Угу, в хелпе так и написано

When you export an overloaded function or procedure from a dynamically loadable library, you must specify its parameter list in the exports clause. For example,

exports
  Divide(X, Y: Integer) name 'Divide_Ints',
  Divide(X, Y: Real) name 'Divide_Reals';

[Stilet]

Угу, в хелпе так и написано

А-а-а да да... Припоминаю:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   procedure tb(b:TBitmap); external 'Project1.dll';
    function A(x : integer; y : integer) : integer; overload; external 'Project1.dll'  name 'a1';
    function A(x : integer) : integer; overload; external 'Project1.dll' name 'a2';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

 caption:=inttostr(a(10,3)+a(10));
end;

end.

library Project1;
uses
  Graphics,
  SysUtils,
  Classes;

{$R *.res}
  procedure tb(b:TBitmap);
  begin
   if b<>nil then b.FreeImage;
  end;

function A(x : integer; y : integer) : integer; overload;
begin
   A := x + y;
end;

  function A(x : integer) : integer; overload;
begin
   A := x;
end;
  exports A(x : integer; y : integer) name 'a1',
          a(x : integer) name 'a2';
begin
end.

[counter]

Вобщем еще такой вопрос...

в DLL есть класс диалога (MFC) и его ресурс и функция которая строит этот диалог

DLL_EXPORT void DoDialog()
{
	AFX_MANAGE_STATE(::AfxGetStaticModuleState());
	nDlg=new CNameDialog();
	nDlg->DoModal();
}

Вызываю функцию из основной программы - все нормально, но вот когда дело доходит до DoModal прога вылетает и ссылается на вот это

BOOL CObject::IsKindOf(const CRuntimeClass* pClass) const

в objcore.cpp

и диалог не появляется (до OnInitDialog дело даже не доходит), но когда собираю Release, то все прекрасно работает...

В чем может быть проблема?

[BaronTreep]

Если использовать технологию MFC extension DLL, то нужно объявлять с помощью AFX_EXT_CLASS, а не DLL_EXPORT.

Вот пример: http://www.firststeps.ru/mfc/steps/r.php?303

Но такой диалог можно будет вызвать только из других приложений MFC (к слову о переносимости).