AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Audit sagt "Anweisung nicht erreicht". Wieso?

Ein Thema von TurboMagic · begonnen am 18. Feb 2021 · letzter Beitrag vom 19. Feb 2021
Antwort Antwort
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.629 Beiträge
 
Delphi 10.3 Rio
 
#1

Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 18. Feb 2021, 17:02
Hallo,

warum meint hier das Autit (SU), die kommentierte Zeile wäre nicht erreichbar?

Delphi-Quellcode:
function TMyClass.Parse(var Answer : TBytes;
                        var Paket : TBytes): Byte;
var
  PaketSize : Byte;
  ByteCount : Byte;
begin
  ByteCount := GetReceivedByteCount;

  try
    PaketSize := ByteCount + cMinPaketSize;
  except
    On E:Exception do
    begin
      log.SendException(cCategory, 'Überlauf bei Berechnung der Paketgröße: '+
                        e.Message, e);
// Hier sagt er, das würde nicht erreicht:
// Die Exception wird dich abgefangen und somit bearbeitet.
       PaketSize := 255;
    end;
  end;
Ist das ein False positive?
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.695 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 18. Feb 2021, 17:59
Vielleicht meint er "nicht garantiert erreicht". Die Exception könnte sich ja auch von was anderem als Exception ableiten...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.487 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 18. Feb 2021, 19:35
Ja, per se können Exception-Klassen auch von was Anderem abstammen (in der System.pas ist das als TObject deklariert), aber praktisch stammen (normalerweise) alle Exceptions von Exception ab.

Delphi-Quellcode:
  try
    raise TStringList.Create;
  except
    on E: Exception do
      ShowMessage('ja ' + E.ClassName);
    else // bzw. on E: TObject do
      ShowMessage('ne ' + ExceptObject.ClassName);
  end;
Von alleine passiert sowas aber nicht.
Muß schon wer böswillig eine "falsche" Klasse/Instanz erstellen.
Auch System-Exception werden von der System und SysUtils immer nur in Delphi-Exceptions konvertiert.

PS: Eine "Exception" aus z.B. einer DLL ist nicht mit der "Exception" in der EXE kompatibel ... es sind unterschiedliche Typen (TypeInfo/RTTI), welche nur "zufällig" gleich heißen. (außer bei Verwendung von Laufzeitpackages)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (18. Feb 2021 um 19:41 Uhr)
  Mit Zitat antworten Zitat
mensch72

Registriert seit: 6. Feb 2008
828 Beiträge
 
#4

AW: Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 18. Feb 2021, 23:09
"PaketSize := ByteCount + cMinPaketSize;"

Wo soll denn da überhaupt eine Exception herkommen ???

-> in all meinen DelphiCode schlägt eine "BYTE" Variable bei "Überlauf" stets ohne eine Exception einfach um, heißt es bleiben nur die unteren 8Bit bleiben übrig.
-> wenn das per Default nicht so wäre, hätten zig CRC und Verschlüsselungsalgos ein Problem, denn da ist SHL/SHR mit absichtlichem BitShift teils ins leere was völlig normales

Delphi-Quellcode:
if (Integer(ByteCount)+cMinPaketSize) > 255 then begin
// log.SendException(cCategory, 'Überlauf bei Berechnung der Paketgröße');
    PaketSize := 255;
end else begin
    PaketSize := ByteCount + cMinPaketSize;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.574 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 19. Feb 2021, 00:06
Kannst du das an einem Minimalbeispiel reproduzieren?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
venice2

Registriert seit: 5. Dez 2019
Ort: Köln
681 Beiträge
 
Delphi 2010 Architect
 
#6

AW: Audit sagt "Anweisung nicht erreicht". Wieso?

  Alt 19. Feb 2021, 00:12
was willst du denn nun abfangen ByteCount oder PaketSize?

Falls PaketSize dann gehört diese zeile
PaketSize := ByteCount + cMinPaketSize;
über try
Nur so nebenbei.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 00:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf