Советы по Delphi


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


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

library MyDll;
usesWindows;
function SomeFunc(I: Integer): Integer; stdcall;beginif Odd(I) then Result := 3 * I + 1else Result := I div 2;end;
exportsSomeFunc;
beginend.

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

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

-Steve Schafer [000948]




Начало  Назад  Вперед



Книжный магазин