Вызов Delphi DLL из MS Visual C++

Советы » DLL » Вызов Delphi DLL из MS Visual C++

Во-первых, создайте в Delphi простую DLL:

{ Начало кода DLL }

library MinMax;

function
 Min(X, Y: Integer): Integer; export;
begin

  if
 X < Y then

    Min := X
  else

    Min := Y;
end
;

function
 Max(X, Y: Integer): Integer; export;
begin

  if
 X > Y then

    Max := X
  else

    Max := Y;
end
;

exports


  Min index
 1,
  Max index
 2;

begin

end.

{ Конец кода DLL }

Затем, для вызова этих функций из вашего C кода, сделайте следующее:

В вашем .DEF-файле добавьте следующие строки:

IMPORTS
  Min  =MINMAX.Min
  Max  =MINMAX.Max

Объявите в вашем C-приложени прототип функций, как показано ниже:

    int FAR PASCAL Min(int x, y);
    int FAR PASCAL Min(int x, y);

Теперь из любого места вашего приложения вы можете вызвать функции Min и Max.

Вызов Delphi DLL из MS Visual C++

Другое по теме:

Категории

Статьи

Советы