首先要导入组件.
一、打开import component 对话;
二、选择import a type library ;
三、找到ms script control1.0组件;
四、添加致工程中。
具体源码如下:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "MSScriptControl_OCX.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//TScriptControl *sc=new TScriptControl(this);
//sc= TScriptControl->Create(nil);
//sc->Language="VBScript";
//OleVariant result=sc->Eval(WideString(Edit1->Text).c_bstr());
//ShowMessage(result);
//sc->Free();
TScriptControl *ScriptControl1 = new TScriptControl(this);
ScriptControl1->Language =WideString("VBscript");//当然了,只要改一改,执行jscript脚本也是一样可以的。。。
TVariant result = ScriptControl1->Eval(WideString(Edit1->Text.Trim()));
WideString msg = result ;
ShowMessage(msg);
delete ScriptControl1 ;
ScriptControl1 = NULL ;
}
//在此要感谢BCB小酒馆, 椰汁西米露 小鳗鱼