SMScript component

SMScriptExecutor component
This is a wrapper for MS Script Control which allow to execute any script for VBScript, JavaScript languages (and any other registered language).
250K	Last updated: July 29, 2004
D3-D2005, CB3-6, BDS2006/2007/2009/2010/XE/XE2/XE3/XE4/XE5/XE6/XE7/XE8	Freeware (with sources): smscript.zip

MS ScriptControl:
http://download.microsoft.com/download/winscript56/Install/1.0/W982KMeXP/EN-US/sct10en.exe must be installed on Win 98, ME and NT 4.0 (in MS Windows 2000 and MS Windows XP is installed by default)

TSMScript 16426 bytes

For example, if you have the script function in VB-script and want to retrieve a result in delphi, you may do it so:

var
  dbl: Double;
begin
  dbl := yourTSMScriptExecutor.Run('Area', 15, 3);
end;

where function body is:

Function Area(Length As Double, Width As Double)
    Area = Length * Width
End Function