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