{-----------------------------------------------------------------------------
 Unit Name: v72Unit
 Author: Tony Domigan
 Purpose: Test DXLIB receiving and returning of Director lists
 History: 09May02
-----------------------------------------------------------------------------}

Unit v72Unit;

Interface

Uses DXClasses, Windows;

Type
  Tv72=Class(TDXScript)
  Protected
    Procedure ExecuteFunction(FunctionIndex:Cardinal; Const ArgList:IDXArgList;
      Const Result:IDXValue); override;
  Public
    Class Procedure GetScriptInfo(Var ScriptInfo:TDXScriptInfo); override;
    Class Procedure InitializeClass(Const Info:TDXInitializeClassInfo); override;
  End;

Implementation

Const
  CLSID_Script:TGUID='{52C58061-6335-11D6-9137-004F4900150E}';

Class Procedure Tv72.GetScriptInfo(Var ScriptInfo:TDXScriptInfo);
Begin
  ScriptInfo.MessageTable:='xtra v72'#10+
    // Add method declerations here
    '* myListMethod inputList String'#10+
    '* myDelphiList'#10+
    '* mylinearListMethod inputList String'#10;
End;

Class Procedure Tv72.InitializeClass(Const Info:TDXInitializeClassInfo);
Begin
End;

Procedure Tv72.ExecuteFunction(FunctionIndex:Cardinal;
  Const ArgList:IDXArgList; Const Result:IDXValue);
Procedure myListMethod(inputList : String);
Begin
  // do something to it and return it to Director
  inputList:='[#a:"1",#b:"2",#c:"3",#d:"FOUR"]';
  Result.Text:=inputList;
End;
Procedure myDelphiList;
Begin
Result.Text:='[#a:"1",#b:"TWO",#c:"3"]';
End;
Procedure myLinearListMethod(inputList : String);
Begin
  // I will just return a dummy result
  Result.Text:='[9,8,7,6]';
End;
Begin
  Case FunctionIndex Of
  0: myListMethod(argList[0].Text);
  1: myDelphiList;
  2: myLinearListMethod(argList[0].Text);
  End;
End;

Initialization
  RegisterDXClass(Tv72,CLSID_Script);
End.
 
//Generated 09May02 by DOMAJ