Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Как написать DLL...   Найти похожие ветки 

← →
DSR   (2002-03-06 13:21) [0]

Пытался разобраться с написанием DLL с помощью справки...
Но не работает... ругается постоянно... типа не нашел DLL
и вообще если нашел то не нашел нужную функцию...
Дайте пример написания DLL библиотек на Дельфи и как к ним
обращаться...

---

← →
MBo ©   (2002-03-06 14:14) [1]

статья Кариха на этом сайте

---

← →
SergeySA   (2002-03-06 16:20) [2]

Статья конечно хороша. Но не понимаю в чём сложность
Пробывал писать по примеру из справки. Получилось без проблем.
Открываешь File->New->выбираешь DLL.
Затем читай Writing DLLs из справки. Там пример есть.

Вызов примерно так

объвляешь вначале
function MessageBoxMY(HWnd: Integer;
Text, Caption: PChar; Flags: Integer):
Integer; stdcall; external "user32.dll" name "MessageBoxA";

а затем в проц. и ф-циях пишишь
MessageBoxMY(параметры);

А DLL потом закинь в .\windows\system\ там точно все
найдут эту dll.

---

← →
Tosov ©   (2002-03-06 20:00) [3]

>типа не нашел DLL
DLL желательно поместить в каталог в виндой (Windows) или в Windows\System или в каталог с программой.

>и вообще если нашел то не нашел нужную функцию
Скорее всего не вынес ее в exports


//DLL:
library mydll;

uses
Windows;

{$R *.res}

function MyFunction1(Param:Integer):Integer;stdcall;
var
V1:Integer;
begin
V1:=2*Param;
Result:=V1;
end;

function MyFunction2(Param:Integer):Integer;
var
V1:Integer;
begin
V1:=2*Param;
Result:=V1;
end;

exports
MyFunction1,MyFunction2;
end.


В программе

interface
...
function MyFunction1(Param:Integer):Integer;stdcall;external "mydll.dll";

function MyFunction2(Param:Integer):Integer;external "mydll.dll";

...

implementation
MyFunction1(10);


---

Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c