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

Вызов Delphi DLL из MS 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 кода, сделайте следующее:

В вашем .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.

скачать panda antivirus firewall 2005 . офис в аренду . Горные лыжи оптом. Лыжи беговые оптом. . На нашем сайте вы увидите и сможете скачать выпуски передачу прожекторперисхилтон. .