Вызов Delphi DLL из Visual C++. Вариант 2

Written on 26 Октября 2007.

Во-первых, создайте в 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.