Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ DLL \ Вызов Delphi DLL из MS Visual C++

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

Название: Вызов Delphi DLL из MS Visual C++
Дата публикации: 2004-05-24 (2782 Прочтено)

 
 

 

Page generation 0.034 seconds