Вызов 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.