Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

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

 
Mr tray   (2006-05-12 00:06) [0]

Доброе утро/день/вечер. Первый раз сталкиваюсь с DLL. Читал хелп. Делаю так, как понял. Но чего то функция выдает не то, что нужно.
library Project2;
uses
 SysUtils, Classes;
function func(x:integer):integer;stdcall;
begin
 func:=x*11;
end;
exports
 func name "func"; {А нужен ли вообще name "func", а то что с ним, что без него - ничего не меняется}
{$R *.res}
begin
end.


program Project1;
{$APPTYPE CONSOLE}
uses
 SysUtils, Windows;
type
 Tfunc=function(x:integer):integer;
const
 mydll="Project2.dll";
var
 hnd:THandle;
 func:tfunc;
 s:string;
begin
 { TODO -oUser -cConsole Main : Insert code here }
 getdir(0,s);
 hnd:=loadlibrary(pchar(s+"\"+mydll));
 @func:=GetProcAddress(hnd, "func");    
 writeln(func(1));
 FreeLibrary(hnd);
 readln;
end.

выдает 13696188. а должен 11.


 
Eraser ©   (2006-05-12 00:13) [1]


> Mr tray   (12.05.06 00:06)


> type
>  Tfunc=function(x:integer):integer;

type
 Tfunc=function(x:integer):integer; stdcall


 
Mr tray   (2006-05-12 00:17) [2]

ПАСИБ!


 
Джо ©   (2006-05-12 01:03) [3]

> {А нужен ли вообще name "func", а то что с ним, что без
> него - ничего не меняется}

Не обязателен. Нужен, если хочешь экспортировать функцию под другим именем, отличным от того, какое она имеет.



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

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

Наверх




Память: 0.47 MB
Время: 0.044 c
2-1147137605
MAXHO
2006-05-09 05:20
2006.05.28
Вопрос по TTreView


2-1147193334
BAngel
2006-05-09 20:48
2006.05.28
свой указатель мышки


2-1147248805
mctarik
2006-05-10 12:13
2006.05.28
Как сие оптимизировать? ИМХО!


1-1145653640
Leonardo
2006-04-22 01:07
2006.05.28
Как определить есть ли в переменной типа TIcon сама иконка


15-1146147292
Виталий Панасенко
2006-04-27 18:14
2006.05.28
Сканер штрих-кода Symbol LS 2208 USB