Einzelnen Beitrag anzeigen

tableD

Registriert seit: 8. Okt 2003
24 Beiträge
 
#1

ActiveScripting in Delphi - Parameter auslesen

  Alt 21. Sep 2004, 15:08
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
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
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.
- - Einbildung ist auch 'ne Bildung - -
  Mit Zitat antworten Zitat