Hilfe fehler bei imap und Indy

[saschab]

Hallo zusammen,
habe folgendes Problem mit den Indy Kompos (TIDIMAP4).

Ich kann eine Verbindung zu meinem IMAP server aufbauen, kann auch die Mailbox listen, aber wenn ich ein RetriveallHeaders mache kann ich danach nicht auf die TIdMessageCollection zugreifen dann semmelt sich mein programm mit nem Fehler weg.

Delphi-Quellcode:

var   messi             : TIdMessageCollection;
      mailboxlist : TStringList;
begin
    mailboxlist := TStringList.Create;
    imap.MailBoxSeparator := '.';
    imap.ListMailBoxes(mailboxlist);
    memo1.Lines.AddStrings(mailboxlist);
    imap.SelectMailBox('INBOX');
    imap.RetrieveAllHeaders(messi);
    // Hier semmelt er sich weg.
    IdMessage1 := messi.Messages[1];
end;

Fehlermeldung siehe Anhang:

vielleicht kann mir ja jemand helfen.

[fkerber]

Hi!

Kann es sein, dass du messi auch zuerst createn musst (also ähnlich der Stringlist)?


Ciao Frederic

[saschab]

Hi,
weis nicht werde es morgen mal probieren. Aber schonmal danke.

[fwsp]

ich kram nun einen sehr alten beitrag wieder aus, aber der wurde nie beantwortet und ich bräuchte nun auch die lösung^^

Delphi-Quellcode:

function imapConnect: Boolean;
var
  IdMsgCollection: TIdMessageCollection;
begin
  ...
  IdMsgCollection := TIdMessageCollection.Create();
  ...
end;

im Create möchte er etwas übergeben haben. ich hab leider nicht verstanden was. auf der indy-seite ( http://www.indyproject.org/docsite/h...ollection.html ) finde ich keine informationen (die ich verstehe -.-). kann mir jmd helfen?

[Thomas Horstmann]

Hallo,

Delphi-Quellcode:

var
iLoop       : Integer ;
iPriority   : String ;
iCollection : TIdMessageCollection ;
begin
{ Anlegen }
iCollection := TIdMessageCollection.Create(TIdMessageItem) ;
{ Header holen }
IdIMAP4.RetrieveAllHeaders(iCollection) ;
{ Schleife über Messages/Header }
for iLoop := 0 to iCollection.Count-1 do
  begin
  { Prüfen }
    case iCollection.Messages[iLoop].Priority of
    mpHighest : iPriority := 'Highest' ;
    mpNormal  : iPriority := 'Normal' ;
    mpLow     : iPriority := 'Low' ;
    mpLowest  : iPriority := 'Lowest' ;
    end ; // case
  end ; // for 
{ Freigeben }
iCollection.Free ;
end ;

Hoffe es hilft...

Viel Spass
Tom

[fwsp]

ja, das hilft. danke.