Überwachte Ausdrücke optimieren?

[Stevie]

Zitat von stahli:

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.

[stahli]

Ich komme so leider auch nicht weiter.

Den Formularvisualizer möchte ich nicht nutzen. Nur den StringReplacer.

Über OTA ermittle ich den aktuellen Thread.
Über CurThread.Evaluate(Expression...) wird der Ausgabetext ermittelt.
Das ergibt aber den ungewollten "TsoGuid($2FB1204) as IsoGuid".

Im folgenden Code wird der Text erfolgreich abgerufen, nur, dass ich den eben nicht ändern kann:
Gewünscht wäre: IsoGuid.AsString

Zitat:

Guid - IsoGuid - TsoGuid($2FB1204) as IsoGuid
-1
-2
-3
-4a "TsoGuid($2FB1204) as IsoGuid"
-5
--

Delphi-Quellcode:

    CodeSite.Send(Expression + ' - ' + TypeName + ' - ' + EvalResult);
    // Guid - IsoGuid - TsoGuid($2F21204) as IsoGuid
    if (TypeName = 'IsoGuid') then
    begin
      Result := 'IsoGuid! => ' + EvalResult;
      CodeSite.Send('-1');
      if Supports(BorlandIDEServices, IOTADebuggerServices, DebugSvcs) then
        CurProcess := DebugSvcs.CurrentProcess;
      if CurProcess <> nil then
      begin
        CodeSite.Send('-2');
        CurThread := CurProcess.CurrentThread;
        if CurThread <> nil then
        begin
          CodeSite.Send('-3');
          repeat
          begin
            Done := True;
            EvalRes := CurThread.Evaluate(Expression, @ResultStr, Length(ResultStr), CanModify, eseAll, '', ResultAddr,
              ResultSize, ResultVal, '', 0);
            case EvalRes of
              erOK:
                begin
                  Result := ResultStr;
                  CodeSite.Send('-4a "' + Result + '"');
                end;
              erDeferred:
                begin
                  CodeSite.Send('-4b');
                  FCompleted := False;
                  FDeferredResult := '';
                  FDeferredError := False;
                  FNotifierIndex := CurThread.AddNotifier(Self);
                  while not FCompleted do
                    DebugSvcs.ProcessDebugEvents;
                  CurThread.RemoveNotifier(FNotifierIndex);
                  FNotifierIndex := -1;
                  if not FDeferredError then
                  begin
                    if FDeferredResult <> '' then
                      Result := FDeferredResult
                    else
                      Result := ResultStr;
                  end;
                end;
              erBusy:
                begin
                  CodeSite.Send('-4c');
                  DebugSvcs.ProcessDebugEvents;
                  Done := False;
                end;
            end;
            CodeSite.Send('-5');
          end
          until Done = True;
        end;
      end;
      CodeSite.Send('--');

Also müsste CurThread.Evaluate irgendwie überschrieben werden. Aber dann müsste die als einziges bekannte Adresse ja auch in das Interface-Object gecastet werden.
Dann könnte ich das aber doch auch gleich (wie im vorigen Beitrag) in Visualizer direkt tun - nur dass das dort (noch) nicht funktionierte.

Sorry, ist etwas schwierig für mich.

[Stevie]

CurThread.Evaluate(Expression+'.AsString', ...

[stahli]

Oha, so einfach. Also funktioniert das über die RTTI.
Jetzt erschließt sich mir auch, was ich gestern an eigenartigen Beispielen gefunden hatte.

Muss dann heute Abend nur noch funktionieren.