spCalc_func

Адрес этой странички : http://spcalc.narod.ru/spcalc_func_dll.htm
spCalc.exe
Простой программируемый калькулятор.

Интерпретатор скриптов.

ВНИМАНИЕ !
Прежде, чем читать этот документ, крайне рекомендуется детально ознакомиться с документом :
"Библиотека скриптов FastScript 1.4. Руководство разработчика" ( http://spcalc.narod.ru/download/fs14_ru_rtf.zip ).

Список процедур и функций

Внешние процедуры и функции (подгружаемые из DLL)

Начиная с версии 1.35 появилась возможность вызывать внешние процедуры и функции из DLL-модулей.
При этом, экспортируемые процедуры и функции должны быть сформированы определенным образом.

Все входные и выходные параметры процедур и функций загружаемых DLL-модулей
должны передаваться, как массив типа VARIANT (см. пример ниже).
Все функции должны возвращать результат типа VARIANT (см. пример ниже).
Значения выходных параметров (после выполнения функции) можно прочитать,
используя функция SYS_ProcFuncDLL_GetResult.

Загрузить DLL-модуль (макс. кол-во загруженных модулей = 4)
function SYS_LoadDLL(NumDLL : integer; DLL_FileName : string) : boolean;

NumDLL – внутренний порядковый номер (0..3) в буфере для загружаемых DLL-модулей.
DLL_FileName – полное имя файла загружаемого модуля.
Возвращаемое значение: TRUE, если успешно
После загрузки модуля можно обращаться к его процедурам и функциям по этому номеру (см. ниже).
Пример:
      if SYS_LoadDLL(0,'MyDLL_001.dll') then begin
      …
      …
   end;

Выгрузить DLL-модуль
function SYS_UnLoadDLL(NumDLL : integer) : boolean;

NumDLL – внутренний порядковый номер (0..3) в буфере для загружаемых DLL-модулей, соответствующий выгружаемому модулю.
Возвращаемое значение: TRUE, если успешно
Пример:
SYS_UnLoadDLL(0);

Вызов процедуры из загруженного DLL-модуля
function SYS_CallProcDLL(NumDLL : integer;
ProcName: string;
Var Params : Variant) : boolean;

NumDLL – внутренний порядковый номер (0..3) в буфере для загружаемых DLL-модулей.
ProcName – имя вызываемой процедуры.
Params – передаваемые в вызываемую процедуру входные и выходные параметры.
Возвращаемое значение: TRUE, если успешно
Пример:
SYS_CallProcDLL(0,'HelloWorld', ['Privet!']);

Вызов функции из загруженного DLL-модуля
function SYS_CallFuncDLL(NumDLL : integer;
FuncName: string;
Var Params : Variant) : variant;

NumDLL – внутренний порядковый номер (0..3) в буфере для загружаемых DLL-модулей.
FuncName – имя вызываемой функции.
Params – передаваемые в вызываемую процедуру входные и выходные параметры.
Возвращаемое значение: то, что вернет вызываемая функция …

Прочитать значения выходных параметров последней выполненной процедуры (функции) из DLL-модуля.
function SYS_ProcFuncDLL_GetResult(NumParam : integer) : variant;

NumParam –порядковый номер (начиная с 0-ля) параметра (нумерация в том же порядке, как и ВСЕ переданные процедуре (функции) параметры (как входные, так и выходные).
Возвращаемое значение: значение параметра (если NumParam выходит за пределы актуальности, то возвращаемое значение = UnAssigned)

Пример простого модуля DLL (MyDLL_001.dll).

library MyDLL_001; uses Dialogs, SysUtils, Classes; {$R *.RES} procedure MyShowMessage(var Params: Variant); //Демонстрация "Hello World" //procedure MyShowMessage(sMess : string); //Вызов функции: // MyShowMessage(['Privet !']); Var Sx : string; begin Sx:=Trim(Params[0]); if length(Sx)<=0 then Sx:='Hello World'; ShowMessage(Sx); end; function X_div_Y(var Params: Variant) : variant; //X разделить на Y //function X_div_Y(X,Y : real; Var Res : real) : boolean; //Вызов функции: // X_div_Y([5,10,Xres]); begin Result:=false; Params[2]:=0.0; //Xres if (Params[1]*1.0)<>0 then begin //Y Result:=true; Params[2]:=(Params[0]*1.0/(Params[1]*1.0)); //Res := X/Y; end; end; function Calc_XY(var Params: Variant) : variant; //Сумма квадратов двух чисел //function Calc_XY(X,Y real) : real; //Вызов функции: // Calc_XY([2.1,3.7]); begin Result:=(1.0*Params[0]*Params[0])+(1.0*Params[1]*Params[1]); end; function GetMin2(var Params: Variant) : variant; //Выбрать минимальное из двух чисел //function GetMin2(X1,X2 : real) : real; //Вызов функции: // GetMin2([2.1,3.7]); begin Result:=Params[0]*1.0; if (Params[0]*1.0)>(Params[1]*1.0) then Result:=Params[1]*1.0; end; function GetMax2(X1,X2 : real) : real; //Выбрать максимальное из двух чисел //function GetMax2(var Params: Variant) : variant; //Вызов функции: // GetMax2([2.1,3.7]); begin Result:=Params[0]*1.0; if (Params[0]*1.0)<(Params[1]*1.0) then Result:=Params[1]*1.0; end; exports MyShowMessage, X_div_Y, GetMin2, GetMax2, Calc_XY; begin end.

Пример работы с MyDLL_001.

#language PascalScript Var V : variant; X1,X2,Xres : real; BEGIN if SYS_LoadDLL(0, 'MyDLL_001.dll') then begin SYS_CallProcDLL(0,'MyShowMessage', ['Privet! Как дела ?']); //--------------------------- X1:=32.1; X2:=12.5; ShowMessage('GetMin2='+FloatToStr(SYS_CallFuncDLL(0,'GetMin2', [X1,X2]))); ShowMessage('GetMax2='+FloatToStr(SYS_CallFuncDLL(0,'GetMax2', [X1,X2]))); ShowMessage('Calc_XY='+FloatToStr(SYS_CallFuncDLL(0,'Calc_XY', [X1,X2]))); //--------------------------- //--------------------------- Xres:=0; if SYS_CallFuncDLL(0,'X_div_Y',[5,10,Xres]) then begin Xres:=SYS_ProcFuncDLL_GetResult(2)*1.0; ShowMessage('X_div_Y='+FloatToStr(Xres)); end else begin ShowMessage('Функция X_div_Y: Ошибка входных данных'); end; //--------------------------- end else begin ShowMessage('Ошибка загрузки модуля: '+'MyDLL_001.dll'); end; END.