Советы по Delphi

         

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


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

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


  • Содержание раздела