torbi71 - Sa 21.07.07 23:41
Titel: "Range Check Error" bei einfacher Imap-Funktion
Hi,
bekomme ständig bei dieser Imap-Funktion einen "Range Check error".
Hab alles mögliche schon probiert, finde aber den Fehler leider nicht.
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:
| procedure getTicket(mailbox:String);
var
TheFlags: TIdMessageFlagsSet;
TheUID: string;
i,mcount: integer;
begin
Form1.IdImap41.SelectMailBox(mailbox); mcount:=Form1.IdIMap41.MailBox.TotalMsgs;
if(mcount>0) then
begin
for i:=1 to mcount do
begin
Form1.IdImap41.GetUID(i,TheUID);
Form1.IdImap41.UIDRetrieveFlags(TheUID, TheFlags)
end;
end;
end; |
Für jede Hilfe schon Danke im vorraus.
Gruß Torben