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

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

 
 
 

Советы по delphi \ Файловая система \ DLL \ Простой шаблон для Delphi DLL

Простой шаблон для 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. 
{-----------------------------------------------------------}

Название: Простой шаблон для Delphi DLL
Дата публикации: 2004-05-24 (2733 Прочтено)

 
 

 

Page generation 0.032 seconds