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

Советы » DLL » Вызов Delphi DLL из MS Visual C++

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com