DLL

← →
deadcdrom © (2003-07-25 07:22) [0]

Понимаю, что вопрос идиотский, но как создать DLL и использовать функцию в нее зашитую.

← →
Caligula (2003-07-25 11:09) [1]

Вот так:
1. Создаешь библиотеку library.dll
2. Дописать: функцию
function HexToDec(Hex: Integer): Boolean; stdcall
3. В конце дописать:
exports HexToDec

в программе вызова в типах объявляешь (вызов статический)
type
function Dlls(Hex: Integer): Boolean; stdcall;external "library.dll" name "HexToDec";

.
.
.

begin
...
Dlls(-1);
...
end;

если вызывать динамически то

type
DLLs=function(Hex: Integer): Boolean; stdcall;
EDLLLoadError = class(Exception);

.
.
.
основной блок

procedure ....
var LibHandle:THandle;
ShowDLL:DLLs;
R:boolean;
begin
LibHandle:=LoadLibrary("library.dll");
try
if LibHandle=0 then
raise EDLLLoadError.Create("?????????? ????????? ??????????!");
@ShowDLL:=GetProcAddress(LibHandle,"HexToDec");
if not (@ShowDLL=nil) then
begin
R:=ShowDLL(-1);
IF R=TRUE THEN ... ELSE ....
end
else
RaiseLastWin32Error;
finally
end;

end;

DLL Найти похожие ветки