Советы по Delphi

         

Простой пример DLL


Вот ДЕЙСТВИТЕЛЬНО простейшая Delphi 2.0 DLL:

    library MyDll;
uses Windows;
function SomeFunc(I: Integer): Integer; stdcall; begin if Odd(I) then Result := 3 * I + 1 else Result := I div 2; end;


exports SomeFunc;
begin end.

И вот модуль импорта, который вы можете включить в любой проект, которому необходим доступ к функциям DLL:

    unit MyDllImport;
interface
uses
Windows;
function SomeFunc(I: Integer): Integer; stdcall;
implementation
function
SomeFunc; external 'mydll.dll';
end.

-Steve Schafer [000948]



Содержание раздела