Передача параметров в dll Опции

[Гость]

Доброго времени суток. В функцию из dll пытаюсь впихнуть цикл. Количество итераций определяется переданным из программы целочисленным параметром. Функция dll должна возращать результат типа double. Выглядит все это примерно так:

function MyFunc(Period: Integer): Double; StdCall;
var
  Sum: Double;
begin
	  for i := 1 to Period do
		begin
		  Sum := Sum + GetData;
		end;
	  Result := Sum;
end;

GetData - другая функция, которая подключается к БД и вытаскивает оттуда значение типа doudle. Все вроде работает (подключение к БД из dll и т.д.), но параметр Period передается как-то непонятно. Пример: при задании в основной программе этому параметру цифры 5 в dll он передается как 1244664.

Подскажите, пожалуйста, как можно разобраться с этим глюком

[volvo]

Сорри, так что ж ты хочешь? Ты ж не указал, что при передаче параметров в функцию используется StdCall, вот и получаешь бред в стеке

Опиши функцию вот так:

...
function MyFunc(Period: Integer): Double; StdCall; external 'Project1.dll'; { Перед Implementation }

implementation
...

и все заработает (у меня на тестовом проекте, по крайней мере, отработало).

Сообщение отредактировано: volvo - 6.07.2008 18:54