Calling Fun With Parameters from Script

Comments

• johnw

  March 2005 edited 2:33AM

  Veeresh,
  I'm not really sure exactly what you are trying to do but I'll try to help. I'm new at this too. You must first add a handler method that will be called when your function is encountered in script. Then, when you call AddMethod() you must pass the handler as the second parameter. Try this. If you get comfused e-mail me and I'll send you code.
  
  //

  ---

  
  //In .h file in the __published: section add thses lines:
  
  Variant __fastcall VeereshScriptFunctionHandler(TObject *Object, TMetaClass *MetaClass, AnsiString FunctionName, Variant &Params);
  
  
  //In the public: section add this:
  
  void CPPFunc(AnsiString s,int nInteger);
  
  
  
  //

  ---

  
  //in .cpp file add these things:
  
  //before you call fsScript1->Compile() and fsScript1->Execute()
  //add this line:
  
  fsScript1->AddMethod("function CPPFUNC (s:String, i:Integer):void",VeereshScriptFunctionHandler,NULL,NULL);
  
  
  //Then add your handler function definition:
  
  Variant __fastcall TForm1::VeereshScriptFunctionHandler(TObject *Object, TMetaClass *MetaClass, AnsiString FunctionName, Variant &Params)
  {
  if(FunctionName== "CPPFUNC")
  {
  AnsiString str=Params.GetElement(0);
  int nInteger=Params.GetElement(1);
  CPPFunc(str,nInteger);
  }
  
  
  }
  //

  ---

  void TForm1 :: CPPFunc(AnsiString str,int nInteger)
  {
  str+=", "+IntToStr(nInteger);
  ShowMessage(str);
  }
  //

  ---

  
  
  
  //Finally, your script will look like this:
  
  {
  
  cppfunc("hello world", 9);
  
  
  }