hallo.
ich hatte gestern hier schon eine frage gestellt. leider scheinen indy komp.nicht sehr einfach zu sein oder? kennt sich hier wirklich keiner mit idpop3 aus?
ich habe folgenden code.
wenn ich das mit einem edit mache, fragt der rechner auch nicht die 2,3,4 email ab. bei der eingabe von 1 geht alles. bei 2,3,..nicht mehr. weshalb.
bin am verzweifeln! danke
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure TForm1.Button1Click(Sender: TObject);
var FMsgCount: integer;
var intIndex: integer;
var i: integer;
begin
memo1.Clear;
idPOP31.Host := 'pop.mail.de';
idPOP31.Username := 'mustermann@provider.de';
idPOP31.Password := 'xyzpasswort';
idPOP31.Connect;
FMsgCount := idPOP31.CheckMessages;
label2.Caption:=inttostr(FMsgCount);
idPOP31.Retrieve(strtoint(edit1.text), IdMessage1);
for intIndex := 0 to Pred(IdMessage1.MessageParts.Count) do begin
if (IdMessage1.MessageParts.Items[intIndex] is TIdAttachment) then
begin
memo1.lines.add(TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename);
end;
end;
idpop31.disconnect;
end;
end. |
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
Moderiert von Tino: Umsch-Taste im Titel aktiviert.
