Fehler: ''No such message'' bei indy

[Spurius]

Hallo,
ich bekomme bei folgendem Code den oben genannten Fehler.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdPOP3, StdCtrls, IdMessage, ComCtrls;

type
  TForm1 = class(TForm)
    ....
    IdMessage1: TIdMessage;
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  intindex: integer;
  itm : tlistitem;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 pop.Host := 'pop.gmx.net';
 pop.Username := '11260803';
 pop.Password := '922244';
 pop.connect;

 label1.caption := inttostr(pop.CheckMessages);
 label2.caption := inttostr(pop.RetrieveMailBoxSize div 1024);
 pop.RetrieveHeader(intindex,idmessage1);

end;

end.

Was mach ich falsch?
Gruß
Spurius

[Spurius]

Kann mir wirklich niemand helfen? :shock:

[mirage228]

Hi,

sag ma in welcher zeile wird die exception ausgelöst wird!

mfG
mirage228

[Spurius]

In der Zeile mit pop.retrieveHeader...
Wenn ich das weglasse, kommt der Fehler nicht.
Gruß
Spurius

[mirage228]

ist intindex ein VAR Parameter?

Wenn nicht, ist intindex anscheinend nirgends definiert und könnte irgendeinen wert enthaltne...

mfG
mirage228

[Duffy]

Hallo Spurius,

Zitat:

Zitat von Spurius

Fehler: ''No such message'' bei indy

ist keine Fehlermeldung, sondern der Hinweis das keine Nachrichten vorhanden sind.

Du mußt also die Exception, Indy ist da sehr freizügig, mit einem Exception Block try ... except abfangen.

Delphi-Quellcode:

try
   label1.caption := inttostr(pop.CheckMessages); 
   label2.caption := inttostr(pop.RetrieveMailBoxSize div 1024); 
   pop.RetrieveHeader(intindex,idmessage1); 
  except
    // hier müssen die richtigen Fehler abgefangen werden ...
  end;

bye
Claus

[Spurius]

Hallo,
es geht jetzt.
Ich hab das retrieven der header in einer for-schleife untergebracht.
Gruß
Spurius