objectGUID auslesen

[cherry]

Hallo

Ein paar Jährchen zu spät, aber dennoch...
Wollte eben daselbe tun und habe leider nichts brauchbares im Internet gefunden...

Ich kompletier den Thread mal, damit der nächste bereits eine Antwort findet...

Habe das Problem so gelöst:

Delphi-Quellcode:

function VariantGUIDToStr(VarGUID: Variant): String;
var
  I: Integer;
  ByteGUID: array[0..15] of byte;
begin
  result := '';
  if VarIsArray(VarGUID) then
  begin
    if VarArrayHighBound(VarGUID,1) = 15 then
    begin
      for I := VarArrayLowBound(VarGUID,1) to VarArrayHighBound(VarGUID,1) do
        ByteGuid[I] := VarGUID[I];
      result := GUIDToString(TGUID(ByteGUID));
    end;
  end;
end;

Vielleicht kennt ja jetzt einer eine schönere Lösung?

Gruss