Exception richtig behandeln

**Jens Hartmann**

Zitat von Luckie:

Zerleg deine Methode HTMLErzeugenMBSerie in mehrere einzelne. Schon die try-except-Blöcke zeigen, dass dies besser wäre. Dann kommst du auch mit den try-except-Blöcken nicht durcheinander.

Aber was soll ich da noch zerlegen. Eigendlich habe ich die doch schon komplett Zerlegt.
Der Aufbau ist ja folgendermaßen..

zusammenfalten · markieren

Delphi-Quellcode:

			Button.Click;

  //HTMLErzeugen wird aufgerufen

  //HTMLErzeugen erstellt die Datei aus einer Datenbank

  //und ruft anschließend die Funktionen

  //Drucken

  //Speichern

  //Senden

  //Öffnen

  //hintereinander auf.

Hinter diesen einzelnen Funktionen, zumindstend hinter Save und EMail sind ja schon Funktionen hinter verborgen. und Öffnen und Drucken sind ja nur ShellExecute Anweisungen.

zusammenfalten · markieren

Delphi-Quellcode:

			{HTML-Datei für MB-Serie erstellen} 

procedure THTMLExportForm.HTMLErzeugenMBSerie; 

Var 

  slHTML : TStringList; 

  i : integer; 

  mrResult: Integer; 

  FileName : String; 

begin 

  try 

    try 

      slHTML := TStringList.Create; 

      slHTML.Add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"'); 

      slHTML.Add('<html>'); 

      slHTML.Add('<head>'); 

      slHTML.Add('<link rel="stylesheet" type="text/css" href="MB.css"'); 

      slHTML.Add('<Style type="text/css"></style>'); 

      slHTML.Add('<title>Protokolldatei</title>'); 

      slHTML.Add('</head>'); 

      slHTML.Add('<body>'); 

      slHTML.Add('<img src= ".\Kopf1.bmp" width= "900" height= "150" align= "rigth" alt= "Titel" >'); 

      slHTML.Add('<h1 style="color:#FFFFFF; background-color:#000080; align= "right">Firma hartmann & uebach Nachrichtentechnik GmbH</h1>'); 

      slHTML.Add('<h1 style="color:#000080;">Objekt: ' 

                 +QryVorgabe.FieldByName('KUNDEOBJEKT').AsString+'</h1>'); 

      slHTML.Add('<table border="0" style="border-collapse:separate;"'+ 

                 'width="100%" style="'+ 

                 'border-left:5px solid #000080;border-right:5px solid #000080;'+ 

                 'border-top:5px solid #000080;border-bottom:5px solid #000080;>'); 

      slHTML.Add('<tr>'); 

      slHTML.Add('<th align="left">Protokolldatei vom '+DateTimeToStr(Now)+'</th>'); 

      slHTML.Add('<th align="left">ID</th>'); 

      slHTML.Add('<th align="left">LfdNr</th>'); 

      slHTML.Add('<th align="left">Datum</th>'); 

      slHTML.Add('<th align="left">Uhrzeit</th>'); 

      slHTML.Add('<th align="left">Ereignis</th>'); 

      slHTML.Add('<th align="left">Teilnehmer</th>'); 

      slHTML.Add('<th align="left">Bereich</th>'); 

      slHTML.Add('<tr>'); 

      for i := 0 to QryHTML.RecordCount -1 do 

        begin 

          slHTML.Add('<tr class="' + QryHTML.FieldByName('Ereignis').AsString + '">'); 

          slHTML.Add('<td>'); 

          slHTML.Add(IntToStr(QryHTML.FieldByName('ID').AsInteger)); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(IntToStr(QryHTML.FieldByName('LfdNr').AsInteger)); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(DateToStr(QryHTML.FieldByName('Datum').AsDateTime)); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(TimeToStr(QryHTML.FieldByName('Uhrzeit').AsDateTime)); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(QryHTML.FieldByName('Ereignis').AsString); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(QryHTML.FieldByName('Teilnehmer').AsString); 

          slHTML.Add('</td>'); 

          slHTML.Add('<td>'); 

          slHTML.Add(QryHTML.FieldByName('Bereich').AsString); 

          slHTML.Add('</td>'); 

          slHTML.Add('</tr>'); 

          QryHTML.Next; 

        end; 

      slHTML.Add('</table>'); 

      slHTML.Add('</body>'); 

      slHTML.Add('</html>'); 

    except 

      on e : Exception do begin 

        TForm1.Servicememo.Lines.Add(e.Message); 

      raise; 

      end; 

    end; 

    try 

      FileName := SaveHTML(slHTML); 

    except 

      on e : Exception do begin 

        e.Message := 'Datei konnte nicht gespeichert werden'#13#10+e.Message; 

      raise; 

      end; 

    end; 

    try 

      if AnzeigenCheckBox.Checked then 

        ShellExecute(Application.Handle, 'open', PAnsiChar(FileName), nil, nil, SW_ShowNormal); 

    except 

      on e : Exception do begin 

        e.Message := 'Datei konnte nicht geöffnet werden'#13#10+e.Message; 

      raise; 

      end; 

    end; 

    try 

      if VersendenCheckBox.Checked then 

        SendMail(FileName); 

    except 

      on e : Exception do begin 

        e.Message := 'Datei konnte nicht als E-Mail versendet werden'#13#10+e.Message; 

      raise; 

      end; 

    end; 

    try 

      if DruckenCheckBox.Checked then 

        ShellExecute(handle, 'print', PAnsiChar(FileName), '', '', SW_HIDE); 

    except 

      on e : Exception do begin 

        e.Message := 'Datei konnte nicht gedruckt werden'#13#10+e.Message; 

      raise; 

      end; 

    end; 

  finally 

    slHTML.Free; 

  end; 

end;

Exception richtig behandeln

Re: Exception richtig behandeln

Forumregeln