Zugriff auf PSafeArray über Late Binding

[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.

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