Вызов функции из неуправляемой dll: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
===Библиотека, написанная и откомпилированная на Delphi=== | |||
<source lang="Delphi">library NativeDll; | |||
function add(a,b: integer): integer; stdcall; | |||
begin | |||
Result := a+b; | |||
end; | |||
exports | |||
add; | |||
begin | |||
end. | |||
</source> | |||
===Основная программа на PascalABC.NET=== | |||
<source lang="Delphi">function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // объявление внешней функции | |||
begin // основная программа | |||
writeln(add(2,3)); | |||
end. | |||
</source> | |||
== Ссылки == | == Ссылки == | ||
*[[Особенности языка: продвинутый уровень]] | *[[Особенности языка: продвинутый уровень]] | ||
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] | *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] |
Текущая версия от 21:45, 15 января 2010
Библиотека, написанная и откомпилированная на Delphi
library NativeDll;
function add(a,b: integer): integer; stdcall;
begin
Result := a+b;
end;
exports
add;
begin
end.
Основная программа на PascalABC.NET
function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // объявление внешней функции
begin // основная программа
writeln(add(2,3));
end.