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

Видеокурс программиста и крэкера 5D 2O17
(актуальность: декабрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

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

БОЛЬШОЙ FAQ ПО DELPHI



Простой шаблон для Delphi DLL

Пример DLL

Без модулей

Во-первых, "скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:


 {---------------------DLLFRAME.DPR--------------------------}
 library Dllframe;
 
 uses WinTypes;
 
 function  GetString : string ; export ;
 begin
 
 Result := 'Привет из DLL!' ;
 end;
 
 exports
 
 GetString;
 
 begin
 end.
 {-----------------------------------------------------------}
 

Теперь напишем вызывающую программу и сохраним ее как DLLCALL.DPR:


 {---------------------DLLCALL.DPR---------------------------}
 program Dllcall;
 
 uses
 
 Dialogs;
 
 {$R *.RES}
 
 function GetString : string ; far ; external 'DLLFRAME' ;
 
 begin
 
 MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
 end.
 {-----------------------------------------------------------}
 

С модулями

Код вызывающей программы, сохраните ее как DLLCALL.DPR:


 {---------------------DLLCALL.DPR---------------------------}
 program Dllcall;
 
 uses
 
 Dialogs;
 
 {$R *.RES}
 
 function GetString : string ; far ; external 'MyDLL' ;
 begin
 MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
 end.
 {-----------------------------------------------------------}
 

"скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:


 {---------------------DLLFRAME.DPR--------------------------}
 library Dllframe;
 
 uses DLLUnit;
 
 exports
 
 GetString;
 
 begin
 end.
 {-----------------------------------------------------------}
 

Модуль, который мы сохраняем как dllunit.pas:


 {---------------------dllunit.pas--------------------------}
 
 unit DLLUnit;
 interface
 
 uses WinTypes;
 
 function GetString: string; export;
 
 implementation
 
 function GetString: string;
 begin
 
 GetString := 'Привет из DLL!' ;
 end ;
 
 begin
 end.
 {-----------------------------------------------------------}
 




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



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



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


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