Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS