Fehlerbehandlung komisch

[Changer]

Servus Zusammen,

wie es sich ja für ein sauber gecodetes Programm gehört muss auch in meines eine anständige Fehlerbehandlung. Das mit dem try ist ja bereits aus anderen Sprachen bekannt, sollte also kein Problem sein...dachte ich.
Nach etwas nachschlagen im Delphi-Buch bin ich dann bei try...except bzw. try...finally gelandet.
So ist dann unten stehender Code-Block entstanden.

Delphi-Quellcode:

while not IBQuery1.Eof do
begin
     try
         vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;
         verwendet := IBQuery1.FieldByName('INST_PROGR').AsInteger;
         lblVerwendet.Caption := 'Verwendete Lizenzen: '+IntToStr(verwendet);
         edLiz.Text := IntToStr(vorhanden);
         IBQuery1.Next;
      except

         //KOLLEKTIVER BOCKMIST!!!!!!!!!!!!!!!!!!!!!
         ShowMessage('kollektiver Bockmist');

      end;
end;

Nur funktioniert das wohl nicht richtig.
Einerseits wird der except-Block IMMER durchlaufen, ob eine Exception auftritt oder nicht. Genau dasselbe mit finally!
Weiterhin fängt der try....except-Block wohl nicht alle Fehler ab. Mal kommt die Message hoch, mal kommt ein Delphi-Fehler hoch. Nach welcher Regel hab ich noch nicht rausgefunden :-(

Kann mir wr mehr dazu sagen??

Grüße
Changer

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Luckie]

Exceptionen werden im Debugger immer ausgelöst, es se denn man hat sie bei den Projekt Optionen abgeschaltet. Starte die Exe mal aus dem Explorer raus.

[Changer]

Sorry hätte ich dazu schreiben sollen, ich habe das Programm aus dem Explorer heraus aufgerufen

[Sourcemaker]

Hallo,

das der Except-Code ohne Exception aufgerufen denke ich nicht.
Erweitere deinen Code um folgende Zeilen:

Delphi-Quellcode:

on E: Exception do 
   ShowMessage('kollektiver Bockmist: '+E.Message);

Dann solltest du sehn ob wirklich Exceptions auftauchen.

Finally wird hingegen immer ausgeführt das ist der Sinn abschließen sicher zu stellen das bestimmter Code ausgeführt wird.


Gruß

Frank

[Changer]

ja die fehlermeldung kenne ich. aber ich wollte eben diese meldung abfangen, da das programm zwar die meldung ausspuckt, das ergebnis aber dennoch richtig ist (hängt mit der db zusammen)

mein problem ist folgendes:
eigentlich sollte der try-except-block ja ALLE exceptions abfangen, oder???
nichts desto trotz fängt er, obwohl die fehlermeldung exakt dieselbe ist, nicht alle fehler ab :-(

by the way, die fehlermeldung lautet "arithmetic exception, numeric overflow, or string truncation. Cannot transliterate character between character sets."

die werte die ich aus der db auslese sind integer, die variablen in die ich diese werte reinschreibe ebenso, deswegen verstehe ich auch den fehler nicht!

[Sourcemaker]

Was mir auf jedenfall bei deinen Code auffällt das wenn ein Fehler auftritt kein weiteres Next aufgerufen wird so das Eof nie kommt.

Ansonsten versuche den Code weiter zu reduzieren um den eigentlichen Fehler einzukreisen bzw. im Debugger hinterhersteppen und die Feldinhalte anzeigen lassen.

Gruß

Frank

[Changer]

so das IBQuery1.Next; hab ich jetzt eingefügt, hatte es doch tatsächlich vergessen gehabt.
Den Fehler hab ich jetzt soweit verfolgt dass er alle Werte korrekt ausliest und dann im try-block bei IBQuery1.Next; seine exception wirft...
aber warum....kein plan *seufz*

[Sourcemaker]

Okay, dann würde ich bei meinen Vorschlag bleiben und den Code weiter reduzieren also nur die Schleife mit Next wenn das klappt den Code
Stück für Stück komplettieren.

[markon]

vielleicht hilfts weiter..

Delphi-Quellcode:

         adoquery1.DisableControls;
         adoquery1.First; {Zeiger auf 1ten Datensatz stellen}
         position:=0;
         while not adoquery1.Eof do
           begin
            position:=position+1;                                       // nur zum test
            memo1.lines.add(inttostr(position));                        // nur zum test
            array1[position]:= adoquery1.FieldByName('Name').AsString;  // nur zum test
            adoquery1.Next;  {Satzzeiger eins weiter setzen}
           end;
         adoquery1.EnableControls;

:dance:

[Changer]

ich poste jetzt am besten mal die ganze prozedur und schreib dazu wie weit ich mit dem debugger gekommen bin. also:

Delphi-Quellcode:

//ein entschlossener Doppelklick auf die installierten Programme sollte hier
//dann die vorhandenen und verwendeten Lizenzen zum Programm anzeigen
procedure TfrmChange.lbInstProgDblClick(Sender: TObject);

var querystring : string;
    vorhanden, verwendet : integer;
begin
   IBQuery1.SQL.Clear;

   querystring := 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = '+
                  QuotedStr(lbInstProg.Items[lbInstProg.ItemIndex]);
   IBQuery1.SQL.Text := querystring;
   IBQuery1.Open;
   while not IBQuery1.Eof do
   begin
     try

         vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;
         verwendet := IBQuery1.FieldByName('INST_PROGR').AsInteger;
         lblVerwendet.Caption := 'Verwendete Lizenzen: '+IntToStr(verwendet);
         edLiz.Text := IntToStr(vorhanden);
         IBQuery1.Next;

      except

         IBQuery1.Next;

      end;

   end;

end;

bin jetzt soweit gekommen, als dass ich denke dass der fehler nicht im try-except-block auftritt sondern weiter oben bei der zuweisung des querystrings.
in der zeile "IBQuery1.SQL.Text := querystring;" enthält querystring den wert 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = 'Adobe Acrobat 5.0'' IBQuery1.SQL.Text hingegen enthält nach dieser zuweisung den wert 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = 'Adobe Acrobat 5.0''#$D#$A
das sind delphi bzw. interbase-steuerzeichen (#$D#$A) oder?? denn wenn ich diese in der debugger-session entferne dann wird die halbe zuweisung mit gelöscht. kann es sein dass diese steuerzeichen meinen fehler verursachen??

gruß
changer

[edit=Sharky]Code-Tags in Delphi-Tags geändert. Mfg, Sharky[/edit]

[Sharky]

Zitat:

Zitat von Changer

....das sind delphi bzw. interbase-steuerzeichen (#$D#$A) oder?? ....

Hai Changer,

#$D und #$A sind ASCII-Steuerzeichen.

$0D steht für Carriage Return
$0A steht für Linefeed

Das bedeutet also ersteinmal nur das am ende deiner SQL-Anweisung ein "Zeilenumbruch" kommt. Das sollte aber keine Probleme machen.

[Changer]

hmmm, dann bin ich mit meinem latein jetzt wirklich am ende :-(

[Schubi]

Und wie wärs mit einzelanweisung?
Also oben VOR dem Fehler mit F5 einen Haltepunkt setzen und dann wenn das Programm dort angekommen ist mit F7 jede einzelne anweisung bis zum Fehler einzeln ausführen.

[Memo]

Bau es doch mal ein wenig um.

Delphi-Quellcode:

procedure TfrmChange.lbInstProgDblClick(Sender: TObject);

var vorhanden, verwendet : integer;
begin
   IBQuery1.SQL.Clear;
   IBQuery1.SQL.ADD('SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = ');
   IBQuery1.SQL.ADD('QuotedStr(lbInstProg.Items[lbInstProg.ItemIndex]');
   IBQuery1.Open;
   while not IBQuery1.Eof do
   begin
     try
         vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;
         verwendet := IBQuery1.FieldByName('INST_PROGR').AsInteger;
         lblVerwendet.Caption := 'Verwendete Lizenzen: '+IntToStr(verwendet);
         edLiz.Text := IntToStr(vorhanden);
         IBQuery1.Next;
      except
         IBQuery1.Next;
      end;
   end;
end;

Ich glaube mich dunkel zu erinnern mit diesen Steuerzeichen auch schonmal ein Problem gehabt zu haben.

[Changer]

@schubi: über die einzelanweisungen und den debugger bin ich ja auf diese steuerzeichen gekommen

ich befürchte ich muss die irgendwie umwandeln oder so...

[Memo]

Zitat:

Zitat von Changer

ich befürchte ich muss die irgendwie umwandeln oder so...

Ja das musst du, wenn du es gerne kompliziert magst.
Ich sehe in deinem Code keinen Grund, den Weg uber eine Variable zu gehen und diese dann wiederum der Query zuzuweisen. Die Zuweisung zu querystring ist so über wie Ratten im Keller und verursacht nebenbei diesen hübschen Effekt, der wieder muss mit nochmehr Code(z.B. Stringreplace) ausgeputzt werden. Warum machst du es dir selbst so schwer?

[Changer]

Zitat:

Zitat von Memo

Warum machst du es dir selbst so schwer?

weil ich erst seit grob 3-4 wochen delphi bzw. pascal code und mir sowas in anderen sprachen noch nicht unter gekommen ist ;-)
aber ich werde deinen rat mal beherzigen!!!

was ich aber immer noch nicht verstehen ist warum der try-except-block nicht jeden fehler abfängt sondern nur sporadisch. ich kann da keine regel dahinter erkennen...?

[matthiasl]

Hallo,

kann es sein, daß dein ganzes Programm wesentlich mehr macht, als diese eine Prozedur...? Ich hatte mal ein Problem, wo Exceptions immer auf dem Bildschirm aufgetaucht sind, oder eben garnicht!! Da hatte ich gerade vorher ein unfangreiches Logging-System bei Application.OnException fertiggestellt. Sonst hätte ich bei der Situation aufgegeben. Es war nicht nachvollziehbar.

Was macht dein Programm vorher... Assembler? Interrupts? Timer?
Kann alles zu dem von dir beschriebenen Problem führen...

mfg...
...Matthias

[Changer]

Ja was macht mein Programm vorher *überleg*
Also es startet und stellt eine Verbindung zu einer Interbase-DB her. Dort liest es alle Usernamen. alle Rechnernamen, alle Betriebssysteme und alle Seriennummern aus, sund trägt diese in ComboBoxen ein. Weiterhin ist da noch eine ComboBox die die Prozessoren enthält (P4, 3, 2, ...) Da kann mann dann ne Suchabfrage über die ComboBoxes formulieren, also zB "zeig mir alle Rechner mit P4 Prozessor die noch Windows NT installiert haben". Dieses Suchergebnisse werden in einer ListBox dargestellt.
Nach einem Doppelklick auf einen bestimmten Rechner geht eine neue Maske hoch die in zwei Karteireiter unterteilt ist. Auf der einen Seite werden sämtliche bekannten Hardwaredaten über den Rechner angezeigt, sowie die aktuelle IP und der angemeldete User ermittelt. Diese Daten lassen sich ändern, drucken, speichern, etc. Der andere Karteireiter zeigt die auf diesem Rechner installierten Programme, ebenfalls in einer Listbox, an. Nach einem Doppelklick auf eines der installierten Programme liest mein Tools aus der Datenbank die Anzahl der Rechner aus, die dieses Programm installiert haben, sowie die Anzahl der vorhandenen Lizenzen für dieses Programm. Genau an dieser Stelle kommt dann auch der Fehler hoch.
Die SQL-Abfragen sind korrekt, das hab ich in der Konsole überprüft, also kann es daran nicht liegen!
Ich bin im Debug-Mode sauber durchgestept und kann aber kein Fehler finden der die Exception an dieser Stelle auslösen könnte :-(

[Tyrael Y.]

Hi,

guck ich falsch oder wurde IBQuery1 nie erzeugt???


Gruß

Tyrael

[Memo]

Zitat:

Zitat von Changer

was ich aber immer noch nicht verstehen ist warum der try-except-block nicht jeden fehler abfängt sondern nur sporadisch. ich kann da keine regel dahinter erkennen...?

Delphi-Quellcode:

vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;

Ich tippe auf sowas hier.
Bist du dir sicher, dass dort auch wirklich immer etwas rauskommt oder kommt es vor, dass auch mal nichts im Feld steht(das verursacht eine Exception, NICHTS zuzuweisen). Das erklärt auch das sporadische Auftauchen der Exception.
Teste das mal aus, in dem du diese Zeilen in einen eigenen Try/Except-Block packst.

[Changer]

Shice, jetzt wo du es sagst, die Datenbank ist ja noch gar net vollständig gefüllt!! Da stehen ja noch NULL-Werte drin!!!!
Boah ich könnt Dich knutschen (jedenfalls wenn du ne sehr attraktive Frau bist :D )
Das werd ich dann mal gleich austesten gehen!!!!

Tausend Dank nochmal!!!!