» Главная
eXcode.ru » Статьи » Delphi/Pascal » Большой FAQ по Delphi » Файловая система » DLL и PlugIns
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 9





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


К началу статьи





Добавил: MadvEXДата публикации: 2005-09-07 00:58:34

Рейтинг статьи:0.00 [Голосов 0]Кол-во просмотров: 5479
Оцените статью:

Комментарии читателей

Всего комментариев: 1

2018-01-13 14:19:38
Kanvqkg
Платим за лайки! - Выплаты ежедневно!

Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.

Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и зарабатывать за это деньги.

Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

достаточно просто зарегистрироваться на нашем сервисе. > http://click-likes.tk/ <

Вывод заработанных средств ежедневно в течении нескольких минут.
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Каким способом вы подключены к интернету
Dial-Up
26% (59)
ISDN
1% (2)
Выделенная линия
27% (61)
ADSL
32% (71)
Спутниковый интернет
2% (5)
GPRS-интернет
8% (17)
Другое
4% (9)

Проголосовало: 224
Долгое время существовала гипотеза, что если миллион обезьян посадить за пишущие машинки, то по теории вероятности через некоторое время они напечатают "Войну и мир". Теперь, с развитием Интернета, мы знаем, что это не так...
Рейтинг: 0/10 (0)
Посмотреть все анекдоты