Überwachte Ausdrücke optimieren?

[stahli]

Ich nutze folgendes Interface:

Delphi-Quellcode:

  IsoGuid = interface
    ...
    property TS1: TDateTime read _get_TS1 write _set_TS1;
    property TS2: TDateTime read _get_TS2 write _set_TS2;
    property C: LongWord read _get_C write _set_C;
    property AsString: String read get_AsString write set_AsString;
  end;

In den überwachten Ausdrücken wird nur der Klassenname und die Speicheradresse angegeben.
Man kann auch keine Members aufklappen.

Gibt es vielleicht eine Möglichkeit, die Darstellung für mein Interface in den überwachten Ausdrucken zu optimieren?
Mich würden regelmäßig bestimmte Werte interessieren (oder zumindest einer).

Es wäre cool, wenn man so eine Art Template definieren oder Attribute festlegen könnte, um die gewünschte Darstellung zu erreichen (ohne das ständig neu schreiben zu müssen).

[Mavarik]

Du kannst Dir mit der ToolsAPI einen eigenen Viewer bauen...

Mavarik

[jaenicke]

Das Stichwort sind Visualizer:
http://docwiki.embarcadero.com/RADSt...er_Visualizers

[stahli]

Danke für die Info.

Ich habe mir das gestern mal angesehen.
Aber irgendwie ist Erstellung eigener Visualizer nur halb erklärt.
http://docwiki.embarcadero.com/RADSt...sualisierungen
http://edn.embarcadero.com/article/40268

Einige vollständigere Beispiele gibt es im Netz jedoch. Z.B. hier:
http://www.petronet.ir/documents/101..._2010_Handbook


Mir ist allerdings grundsätzlich unklar, ob man diese überhaupt für Interfaces realisieren kann.
Was müsste man denn als Typ angeben, damit der passende Visualizer benutzt wird?
"TMyGuid($2F31204) as IMyGuid" geht ja nicht.

Weiß jemand zufällig, ob/wie man das für Interfaces/Klassen lösen kann?

[himitsu]

Im Notfall kannst du vermutlich IInterface als Typ verwenden können und machst dann intern ein

Delphi-Quellcode:

if Supports

.
Wenn das trifft, dann deine Anzeige und sonst bildest du die Default-Anzeige nach, falls du den Original-Visualizer nicht aufrufen kannst.

[Stevie]

Zitat:

Zitat von stahli (Beitrag 1344013)

Mir ist allerdings grundsätzlich unklar, ob man diese überhaupt für Interfaces realisieren kann.
Was müsste man denn als Typ angeben, damit der passende Visualizer benutzt wird?
"TMyGuid($2F31204) as IMyGuid" geht ja nicht.

Weiß jemand zufällig, ob/wie man das für Interfaces/Klassen lösen kann?

Wenn du dir den von dir selber verlinkten Artikel, die Kommentare in der ToolsAPI.pas zu IOTADebuggerVisualizer und eventuell mal
die mitgelieferten Visualizer angeschaut hättest, wüsstest du, dass die unterstützten Types über ihren TypeName angegeben werden. ;)

[stahli]

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.

[Stevie]

Du brauchst nix casten. Benutz die OTA. Wie das geht kannst du in den mitgelieferten Visualizers für z.B. TStrings sehen.
Kann man fast 1 zu 1 kopieren.

[TiGü]

Warum nicht einfach in den überwachten Ausdrücken das schreiben:
TsoGuid(Guid), wobei Guid deine Interface-Instanz ist.
Ist zwar so hart hingecastet, aber zum schnellen Debuggen, um die Werte der Member-Variablen zu prüfen reicht es doch?!?

[stahli]

@Stevie
Vielen Dank. Schaue ich mir heute Abend an.

@TiGü
Die Guid verwende ich andauernd in meinem Projekt.
Da ist es hilfreich, wenn die IDE den Inhalt automatisch korrekt anzeigt.
Scheint ja auch so, dass es lösbar ist.