Solved: Adding VBScript and JavaScript to Delphi 7 (Active Script)

Add a TWebBrowser and run it from there.

ASKER

ginsonic,
- Don't take this the wrong way, but I don't see how that comment helps me at all. Could you elaborate or provide some sample code? I do appreciate it though.

everyone else,
- Basically what I am looking for is something that I can do...

procedure DisplayString(S:String);
begin
Form1.Memo1.Lines.Add(S);
end;

function Blah : string;
begin
result := 'Blah';
end;

In a script...

Sub Event_UserTalk(Username, Flags, Message, Ping)
DisplayString "Hi "&Username&" Hi!"
Call DisplayString("My favorite word is "&Blah&"!")
End Sub

entrapnet

p/s: if you are using windows 98 and below, you should go and download windows script host in www.microsoft.com

(base on delphi 7)
1) click component/import active-x component/Microsoft Script control 1.0/install.
2) put MSScriptControl_TLB under your uses section. Put in the function below to your program

function SMT_MCCScript(FunctionName : String; FunctionParam : String) : integer;
var
ScriptControl : TScriptControl;
ScriptCode : TStringList;
ScriptText : String;
ScriptFilename : TextFile;
ProcessFile : Boolean;
varScriptControl : Variant;
LoadedScript : TStringList;
begin
Result := TargetUnit;

ScriptControl := TScriptControl.create(application);
ScriptControl.Language := 'VBScript';
ScriptControl.Reset;
ScriptCode := TStringList.Create;

Scriptcode.Clear;
ScriptCode := ExportToStringList(TargetUnit);

AssignFile(ScriptFilename,extractfilepath(application.ExeName) + localsetting + '.mcc');
{$I-}
ProcessFile := false;

if fileexists(extractfilepath(application.ExeName) + 'kenny.mcc') then
begin
FileMode := 0;
reset(ScriptFileName);
ProcessFile := true;
end
else
begin
showmessage('need keny.mcc included with your exe file');
application.terminate;
end;

' to load the vb script into the system
LoadedScript := TStringList.create;
LoadedScript.Clear;
if ProcessFile then
begin
while not eof(ScriptFilename) do
begin
readln(ScriptFilename, ScriptText);
LoadedScript.add(ScriptText);
end;
close(ScriptFilename);
end;
{$I+}

ScriptCode.AddStrings(LoadedScript);
ScriptCode.SaveToFile('c:\mcc_script_debug.txt');
ScriptControl.AddCode(ScriptCode.Text);

varScriptControl := ScriptControl.ControlInterface;
try
varScriptControl.Run(FunctionName);

except

'if the function is not exist... create a template for it

if ScriptCode.IndexOf(' function ' + functionname) = -1 then
begin
AssignFile(ScriptFilename,extractfilepath(application.ExeName) + localsetting + '.mcc');
{$I-}
append(ScriptFilename);
writeln(ScriptFilename,'');
writeln(ScriptFilename,' function ' + functionname);
writeln(ScriptFilename,' end function');
writeln(ScriptFilename,'');
flush(ScriptFilename);
close(ScriptFilename);
{$I+}
end;
end;

end;

3) create kenny.mcc into the same folder where you exe located (usually the same place with your source code)
4) copy this command into the kenny.mcc file

function test
msgbox("hello world!")
end fucntion

5) save kenny.mcc file
6) put a button into your delphi program
7) under your button command... type this

SMT_MCCScript('test','');

8) please take note... this is modified version from the original which I used over my project. Please do drop me an email so that I can update any mistake along the way.

entrapnet

oh yeah... my email is kennyk@teleplan-my.com