ActiveScripting in Delphi - Parameter auslesen

**tableD**

Hallo,
ich habe eine ActiveScripting Componente instaliert (ActiveScript) die direkt auf dem ScriptingHost basiert, daher muss man die Komponente nicht unbedingt kennen um hier vielleicht eine Antwort herauszubekommen. In der Componente kann man ein Objekt mit Namen im ActiveScripting registerieren sodass man auf dieses Im Script zugreifen kann (z.B. application.getExeName).
Es gibt die Funktion

markieren

Code:

			function TActiveAppInfo.Invoke(DispID: Integer; const IID: TGUID;

  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,

  ArgErr: Pointer): HResult;

type

  PVariantArray = ^TVariantArray;

  TVariantArray = array[0..65535] of Variant;

  PIntegerArray = ^TIntegerArray;

  TIntegerArray = array[0..65535] of Integer;

...

Sollte doch schon von der MS ScriptingControl bekannt sein. Meine Frage ist ob man (Parms is vom Typ TVariantArray) auch weiter Elemente dieses Arrays auslesen kann, bislang kann ich mit diesem Befehl

markieren

Code:

PVariantArray(Parms.rgvarg)^[0])

nur das Erste Elemente( also den Ersten Parameter) auslesen. Wenn es im Script heißt

application.showmessage( parameter1, parameter2 )

wird nur parameter1 übergeben, ich möchte aber gern noch weitere Parameter nutzen können. Wie geht das? .. weiß wieder mal ein schwieriges Thema aber muss sein.
Freue mich über sinnvolle Antworten.

ActiveScripting in Delphi - Parameter auslesen

ActiveScripting in Delphi - Parameter auslesen

Forumregeln