Zugriff auf PSafeArray über Late Binding

[Dawn87]

Hallo,

ich binde ein COM-Objekt über Late Binding (also über CreateOleObject()) ein. Dieses COM-Objekt enthält eine Funktion die ein PSafeArray zurückgibt.

Wenn ich dieses Array zwischenspeichern möchte um darauf zuzugreifen, erhalte ich den Fehler "Inkompatible Typen: PSafeArray und Variant".

Mein Code sieht folgendermaßen aus:

Delphi-Quellcode:

var
  f: PSafeArray;
begin
  f := FComObj.GetToolList;
end;

wobei FComObj vom Typ OleVariant ist und das COM-Objekt darstellt.

Hat jemand eine Idee wie ich an die Inhalte vom SafeArray komme?

Grüße
Dawn

[mkinzler]

Delphi-Quellcode:

var
  f: OleVariant;
begin
  f := FComObj.GetToolList;
end;

[Dawn87]

Hallo,

erst einmal vielen Dank für deine Antwort.

Was ich vielleicht noch erwähnen sollte:

Ich möchte u. A. mit SafeArrayGetElement() auf die Inhalte des Arrays zugreifen. Diese Funktion erwartet eine Variable vom Typ PSafeArray. Wenn ich nun das Array in einem OleVariant unterbringe, fehlt noch eine Typenkonvertierung. Daran scheiter ich gerade.

Hast Du vielleicht noch einen Tipp?

Grüße
Dawn

[mkinzler]

Funktioniert ein Cast

Delphi-Quellcode:

  f := PSafeArray(FComObj.GetToolList);

?

[Bummi]

ich habe keine Ahnung von Deinem Comobj, etwas in der Art

FComObj.GetToolList.SafeArrayGetElement()

oder

SafeArrayGetElement(FComObj.GetToolList,xxx)

geht nicht ?

PSafeArray klingt nach Pointer ...

[Dawn87]

Lösung:

Folgende Funktion schafft Abhilfe:

Delphi-Quellcode:

function VariantToSafeArray(const Arr: OleVariant): PSafeArray;
begin
    Assert(TVarData(Arr).VType=varArray);

    Result:=PSafeArray(TVarData(Arr).VArray);
end;

Gefunden auf:
http://www.experts-exchange.com/Prog..._20178900.html

[himitsu]

Besser noch VarArrayAsPSafeArray, gefunden in der Unit Variants. :wink:

Oder SafeArrayGetElement und Co. (Unit VarUtils und sie fangen alle mit SafeArray... an)