Wie kann man von der Indy- IdMessage Komponente den MSG-Text in einem TMemo anzeigen lassen?

Kann dir zwar nicht sagen wie man dies Speziell abfängt aber ich hab' da eine Routiene die ich immer mal wieder gerne einsetze.

zusammenfalten · markieren

Delphi-Quellcode:

type
  ...
    procedure Fehlerhandler(Sender: TObject; E: Exception);
  private
  ...

implementation

procedure TForm1.Fehlerhandler(Sender: TObject; E: Exception);
var nachricht : string;
begin
  ShowMessage('Es trat folgender Fehler auf:' + #13 + #13 + E.Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := Fehlerhandler;
end;

Is vielleicht nicht die beste Lösung aber zumindest ein Anfang

Nein, jetzt haben wir uns falsch verstanden. Ich meinte nicht die Fehler sondern EMailtext. Ich habe mich da dumm ausgedrückt.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
intIndex:Integer;
begin
If POP.Connected Then POP.Disconnect;
POP.Connect;
POP.Retrieve(ListBox1.ItemIndex + 1, IdMessage1);
Caption := IntToStr(ListBox1.ItemIndex); Exit;
if IdMessage1.MessageParts.Items[intIndex] is TIdText then
begin
   Memo1.Lines.Clear;
   Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
end;
If POP.Connected Then POP.Disconnect;
end;

Hai smart,

Du must in einer Schleife die einzelnen Messageparts durchlaufen. Zur Zeit wird die Variable intIndex bei deinem Code ja nicht verwendet Ausserdem hast Du da ein schönes Exit mitten in deinem Code stehen

markieren

Code:

procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
  intIndex:Integer;
begin
  If POP.Connected Then POP.Disconnect;
  POP.Connect;
  POP.Retrieve(ListBox1.ItemIndex + 1, IdMessage1);
  Caption := IntToStr(ListBox1.ItemIndex); [b]Exit[/b];
  if IdMessage1.MessageParts.Items[intIndex] is TIdText then // intIndex ist nicht gesetzt.
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
  end;
  If POP.Connected Then POP.Disconnect;
end;

Hi Sharky!

Ich werde warnsinnig! Da habe ich doch tatsächlich „Exit“ übersehen und suche schon einige Stunden warum der Code nicht läuft. Da fällt einem nichts mehr zu ein. Vielen Dank für Dein Hinweis. Jetzt klappt es. Aber bitte.... nicht lachen.