doo_round.dll не найдена точка входа
Добавлено: 19 ноя 2008, 14:07
скачал с сиго сайта doo_round.dll,
зарегил в базе 2 удф но матюкается что не найдена точка входа.
Хелп!
с dll раньше не работал.
Вот исходник.
зарегил в базе 2 удф но матюкается что не найдена точка входа.
Хелп!
с dll раньше не работал.
Вот исходник.
Код: Выделить всё
library doo_round;
function round_math (var Value : Double) : Double; cdecl; export;
begin
result := trunc (value) + trunc (frac (value)*2);
end;
function round_to_MIN_CU (var value, min_cu:double) : Double; cdecl; export;
var
a : double;
begin
if min_cu = 0 then result := value
else begin
a := value/min_cu;
result := round_math (a) * min_cu;
end;
end;
exports
round_math, round_to_MIN_CU;
begin
System.IsMultiThread:=True;
end.