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

Во-первых, создайте в 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 кода, сделайте следующее:

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

    IMPORTS
    Min  =MINMAX.Min
    Max  =MINMAX.Max

  2. Объявите в вашем C-приложени прототип функций, как показано ниже:
     int FAR PASCAL Min(int x, y); int FAR PASCAL Min(int x, y);
  3. Теперь из любого места вашего приложения вы можете вызвать функции Min и Max.
 
Следующая статья »