DLL

[BaronTreep]

А в Делфи с этим все в порядке, разработчики позаботились за имена функций.

А в Дельфи вообще можно экспортировать перегруженные функции? Например такой код:

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

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

exports A(x : integer) name 'A';
exports A(x : integer; y : integer) name 'A';

прокатывает, НО линковщик создает разные функции в асме - A и A_0. Спрашивается - как их вызывать?

[Stilet]

Оч просто:
ДЛЛ

library Project1;

uses
  SysUtils,
  Classes;

{$R *.res}
  function A(x : integer) : integer; overload;
begin
   A := x;
end;

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

  exports а(x : integer),A(x : integer; y : integer);
begin
end.

Проект:

unit Unit1;

interface

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

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

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 caption:=inttostr(a(10)+a(10,3));
end;

end.

Между прочим это выльется в вот такой казус, (см. в приложении)

[profi]

Если я не ошибаюсь (хотя могу ошибиться) в Borland C++ проблема с импортированием перегруженных функций.

[BaronTreep]

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

Тем не менее если вызывать эти функции из другого языка (из Си того же) то могут возникнуть неудобства (почему "они" говорят, что на Дельфи мол нельзя писать dll). В статье, по ссылке выше, как раз об этом говорилось.

Про code_export_A IDA говорит иначе. Может отладчик Дельфи специально прикидывается))

[counter]

ууух.. как тут много уже написали...

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

extern "C" ____stdcall __declspec(dllexport ) int MyFunc(); -вот так все должно работать.

вот так как раз таки и не хочет работать : пишет "missing function header (old-style formal list?)"

спасибо всем за полезную информацию

рабочий вариант такой

#ifndef BUILD_APP
    #define DLL_EXPORT __declspec(dllexport)
#else
    #define DLL_EXPORT __declspec(dllimport)
#endif

extern "C" DLL_EXPORT int MyFunc();

вызов

_pF=(pFunc)::GetProcAddress(hMod,"MyFunc");

[Stilet]

в Дельфи тоже имена искажаются при перегрузке.

Посмотри на мой скрин. Где там искажения? Или Олли показывает неверно по твоему?

[BaronTreep]

extern "C" __declspec(dllexport ) int MyFunc(...);

это правильный способ завернуть C++ код в С-обвертку, я думаю.

Хотелось бы вернуться к Дельфям, потому что:

Если я не ошибаюсь (хотя могу ошибиться) в Borland C++ проблема с импортированием перегруженных функций.

А в примере выше caption:=inttostr(a(10)+a(10,3)); (по идее 23) дает 36. Что-то не так!

Если верить дебагеру Дельфи:

exports A(x : integer) name 'A';
exports A(x : integer; y : integer) name 'A';;

function A(x : integer) : integer; overload; external 'Project1.dll' name 'A';
function A(x : integer; y : integer) : integer; overload; external 'Project1.dll' name 'A';

Неправильно работает.

Если верить IDA:

exports A(x : integer) name 'A';
exports A(x : integer; y : integer) name 'A';

function A(x : integer) : integer; overload; external 'Project1.dll' name 'A';
function A(x : integer; y : integer) : integer; overload; external 'Project1.dll' name 'A_0';

Тоже.

Единственное что остается - ВРУчную замангалить имена (исказить), т.е. взять на себя роль линковщика (как в СИ, где вышеприведенный код работает правильно). Короче так:

exports A(x : integer) name 'A';
exports A(x : integer; y : integer) name 'A_';

function A(x : integer) : integer; overload; external 'Project1.dll' name 'A';
function A(x : integer; y : integer) : integer; overload; external 'Project1.dll' name 'A_';

[BaronTreep]

Так что IDA врет? Чем тогда объяснить неверный ответ в caption?

[Stilet]

дает 36. Что-то не так!

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

[profi]

missing function header (old-style formal list?)

Дааа... нужно обновлять свою литературу, а то устарела