über pop3 Mails abfragen?

[gandime]

Hi,
ich habe mach ziemlich nah am Indy Beispiel gehalten:

Delphi-Quellcode:

  POP.Host:='pop.web.de';
  POP.Username:='aaa';
  POP.Password:='bbb';
  POP.Connect;
  if pop.Connected then
  begin
    i_mails:=POP.CheckMessages;
    if i_mails > 0 then
    begin
      sl_mail:=tstringlist.create;
      for I := 1 to i_mails do
      begin
        Msg.Clear;
        POP.RetrieveHeader(i,Msg);
          Msg.MessageParts.Count;
          for ii := 0 to Pred(Msg.MessageParts.Count) do
          begin
            application.processmessages;
            if Msg.MessageParts.Items[ii] is TIdText then
            begin
//              Memo1.Lines.Clear;
              Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);
            end;
          end;
      end;
    end
    else
    begin

    end;
  end;
end;

Wo ist mein fehler?
Im Beispiel funktioniert es einwandfrei und bei meinem Code landet in dem Memo nicht!

mfg
gandime

[tr909]

probier mal das hier.

Delphi-Quellcode:

Msg.MessageParts.Count > 0 then 
for ii := 0 to Pred(Msg.MessageParts.Count) do 
begin
   application.processmessages;
   if Msg.MessageParts.Items[ii] is TIdText then
   begin
//   Memo1.Lines.Clear;
     Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);
   end;
end
else begin
 memo1.Lines.AddString(IdMsg.Body);
end;

in deinem Fall wird die schleife ja nicht ausgeführt, wenn Msg.MessageParts.Count = 0 ist.

Gruß
tr909

[dominikkv]

Der Delphi-Debugger eignet sich hierfür hervorragend.
Einfach einen Breakpoint am Anfang der prozedure setzen (zB bei POP.Host:='pop.web.de';), dann das Programm über Delphi starten und die Aktion ausführen das du bei der Procedure landest.
Beim Breakpoint wird nun automatisch angehalten und du kannst schrittweise mit F8 die Befehle ausführen.

[gandime]

jetzt hab ich noch nen anderen fehler:

Delphi-Quellcode:

for ii := 0 to Pred(Msg.MessageParts.Count) do

Pred(Msg.MessageParts.Count)=0

vorher wurde aber

Delphi-Quellcode:

Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);

ausgelöst


ich hab in meiner Procedure schon überall Breakepoints;-)

edit:

Delphi-Quellcode:

Msg.Body.count=0

ich verstehe einfach nicht was ich anders als in der Demo von indy mache....

edit2:
Fehler gefunden :-D
man nehme den Befehl zum mail abfragen :-D

Delphi-Quellcode:

POP.Retrieve(i,Msg);

und nicht

Delphi-Quellcode:

POP.RetrieveHeader(i,Msg);