Parameter übergeben per OLEVariant

[Dumpfbacke]

Hallo Leute,
ich möchte ein Programme mittels Delphi steuern. Dieses wird mit einer importierten TLB gemacht und funktioniert auch zum Teil. Ich habe jeodch einen Aufruf den ich nicht hinbekomme.

Delphi-Quellcode:

TCOMAppObj.RunMacro(sessionId: Integer; const macroName: WideString; parmCount: Integer; 
                              var parmList: OleVariant);

Ich versuche es mittels

Delphi-Quellcode:

var
Parameter: OLEVariant;
begin
 //Hier tragen wir den Parameter ein. Es ist nur einer
 Parameter := 'Auto';
 arObjekt.RunMacro(sessionId, 'ja', 1, Parameter);

Ich bekomme von den anderen Programm dann die Fehlermeldung:
Imcoming parameter list is not an array of strings.
Kann mir jemand hier eventuell erklären wie ich es machen kann ?

Tanja

[Sailor]

Du mußt das Array zuerst erstellen:

Parameter := VarArrayCreate([0,0],varVariant);
Parameter[0] := 'String'

[Dumpfbacke]

Zitat:

Zitat von Sailor (Beitrag 1246228)

Du mußt das Array zuerst erstellen:

Parameter := VarArrayCreate([0,0],varVariant);
Parameter[0] := 'String'

Nein das geht leider auch nicht. Immer noch die selbe Fehlermeldung

[Bernhard Geyer]

Gibts Beispielcode (in VBS/VB.NET/...) für diese Funktion?

[Dumpfbacke]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1246233)

Gibts Beispielcode (in VBS/VB.NET/...) für diese Funktion?

Nein leider nicht

[Sailor]

Was sagt denn der Debugger zum Inhalt von Parameter?
Und was ist nach einer Zuweisung
x := Parameter[0]
in x zu finden?

[Dumpfbacke]

Dake liebe Leute,
ich habe es nun hinbekommen. Fals jemand hier auch einmal das Problem hat. Hier die Lösung

Delphi-Quellcode:

 Parameter := VarArrayCreate([0,0],varOLEStr);
 Parameter[0] := 'Typ = Auto';