Bug Report per Mail

[sandraeberlein]

Wie realisiere ich am besten einen Bug report, dem es dem user ermöglicht mir ne bug mail zu schreiben? ähnlich Windows XP bug dings? :D

mfg,
Erhard

[Matze]

Schau dir mal die Ereignisse der TApplicationEvents-Komponente an. Dort kannst du Fehler abfangen, den Fehler in einem Dialog dann anzeigen lassen, auf dem ein Link zur E-Mail an dich ist etc.

[turboPASCAL]

TApplicationEvents -> Memo1

Delphi-Quellcode:

try
 ...
except
  on EZeroDivide do SetMsgZeroDivide;
  ...
  on EMathError do SetMsgMathError;
end;

Eine Mail per Shellexecute versenden (über OL bzw OE).

Delphi-Quellcode:

//uses Shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  Mail, Betreff, Txt: String;
begin
  // Text aus Memo1 (Bug-Report)
  Txt := Stringreplace(Memo1.Text,#13#10,'%0D',[rfreplaceall]); 
  Mail := '[e-mail]';  // Zu Adresse
  Betreff := 'Report';

  ShellExecute(Handle,'open', 
    PChar('mailto:' + Mail + '?Subject=' + Betreff + '&Body=' + Txt), nil, nil, 0);
end;

[Meflin]

Moin,

schau dich mal nach den MadSHI Komponenten um.
Die bringen auch eine Funktion mit (keine Komponente, du findest es dann unter Projekt oder so), mit der man jede beliebige Anwendung mit einem äußerst komfortablen derartigen Bugreport austatten kann. Kann man auch alles selber genau einstellen, bei einer Exception erscheint ein userfreundlicher Dialog, den der dann nur noch mit Senden absegnen muss.

MAcht wirklich einen soliden EIndruck, das Teil ;)