Da habe ich (mit wenig Zeit) natürlich versucht, aber mir fällt das etwas schwerer als Dir und die mitgelieferten Beispiele hatte ich nicht gefunden.
Ich bin jetzt aber etwas weiter.
Aus dem String "TsoGuid($2F21204) as IsoGuid" extrahiere ich zunächst den Pointer um dort das Interface abzuholen.
Ich weiß nicht, ob der Pointer auf das Objekt oder das Interface verweist. Beide versuchten Casts funktionieren jedoch nicht.
Debugging ist etwas schwierig, da das ja zur Designtime läuft.
Hier mal ein Auszug (auf Grund der Versuche etwas chaotisch).
Delphi-Quellcode:
var
P: Integer;
S, SR:
string;
Adr: Integer;
lGuid: IsoGuid;
tmpGuid: TsoGuid;
O: TObject;
CodeSite.Send(Expression + '
- ' + TypeName + '
- ' + EvalResult);
// AUSGABE: Guid - IsoGuid - TsoGuid($2F21204) as IsoGuid
if (TypeName = '
IsoGuid')
then
begin
Result := '
IsoGuid! => ' + EvalResult;
SR := EvalResult;
P := Pos('
(', SR);
S := Copy(SR, 1, P - 1);
SR := Copy(SR, P + 1);
if (S = '
TsoGuid')
then
begin
P := Pos('
)', SR);
S := Copy(SR, 1, P - 1);
SR := Copy(SR, P + 1);
Adr := StrToInt(S);
if (SR = '
as IsoGuid')
then
begin
// O := TObject(Adr);
// tmpGuid := TsoGuid(Adr);
// if Supports(tmpGuid, IsoGuid, lGuid) then
// Result := '---> IsoGuid'
// else
// Result := ':-( ' + IntToHex(Adr, 8) + ' - ' + EvalResult;
// Result := ':-( ' + O.ClassName;
Result := IsoGuid(Adr).AsString;
end;
end;
Exit;
end;
Kann mir jemand nochmal einen Tipp zu dem korrekten Cast geben?
Falls ich zum Ziel komme fasse ich das dann gern für Interessenten hier zusammen.