AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Checklistbox/Pop3 - Error Message ?
Thema durchsuchen
Ansicht
Themen-Optionen

Checklistbox/Pop3 - Error Message ?

Ein Thema von c4st0rtr0y · begonnen am 16. Feb 2005 · letzter Beitrag vom 16. Feb 2005
Antwort Antwort
Seite 1 von 3  1 23      
c4st0rtr0y

Registriert seit: 12. Feb 2005
18 Beiträge
 
#1

Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 01:31
nabend,
also folgendes. schreib grad etwas an einem kleinem mail tool und habe folgendes prob. wenn ich meine mails abrufe (erstmal nur die header) und in eineChecklistbox schreiben möchte, bekomm ich jedesmal den fehler "ERR-Message Number out of range" und zusätzlich sind alle mails die einen Anhang beinhalten doppelt eingetragen. :/ weis nich mehr weiter hab scho div. sachen ausprobiert bzw hier geschaut aber nichts passendes gefunden.
Delphi-Quellcode:
procedure TForm1.ffnen1Click(Sender: TObject);
var
i:integer;

begin
for i := 1 to pop1.MessageCount do
begin
pop1.RetrieveHeader(i, Message1);
checklistbox1.Items.Add(Message1.Subject);
Message1.Clear;

end;
end;
infos:
pop1 wäre die pop-kompo
message1 der parser
checklistbox1 = checklistbox
benutze eine kompo die der indy sehr ähnelt/CIS, an ders aber nicht liegt
delphi 7

ps: wäre es möglich das die checklistbox nur bestimmte mails anzeigt die z.b. das subject "News" enthalten bzw nen anhang besitzen?

thx 4 help + info
  Mit Zitat antworten Zitat
chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 01:37
hi,

kann ich nicht soviel zu sagen, probier dochmal erstmal das, vllt zählen die cis komps ja anders:

for i := 0 to pop1.MessageCount - 1 do
Zitat:
ps: wäre es möglich das die checklistbox nur bestimmte mails anzeigt die z.b. das subject "News" [..]
sollte so klappen:
if Message1.Subject = 'Newsthen checklistbox1.Items.Add(Message1.Subject) zum anhang kann ich dir nichts sagen weil ich nicht mit den komponenten arbeite.
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat
c4st0rtr0y

Registriert seit: 12. Feb 2005
18 Beiträge
 
#3

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 01:49
thx,
also die fehlermessage kommt nicht mehr. allerdings wird die letzte mail nicht angezeigt und die mails mit anhang sind doppelt inner checklistbox :/
  Mit Zitat antworten Zitat
chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:05
hi,

sind es die clever internet suite componenten? CIS oder ICS?

also das hier sollte eigentlich funktionieren:

for i := pop1.MessageCount - 1 down to 0 do wieso nimmst du, wenn du D7 hast nicht einfach die indy?
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat
c4st0rtr0y

Registriert seit: 12. Feb 2005
18 Beiträge
 
#5

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:13
ja genau die clever ... naja die indy kompo möchte soi garnicht auf mein gmail postfach zugreifen. das scheint wohl an indy zu liegen :/ würd auch sonst indy lieber nehmen da es viel mehr beispiele gibt da die kompos sich im code dann ja doch etwas unterscheiden. naja ich probier mal grad die sachen thx
  Mit Zitat antworten Zitat
chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#6

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:21
hi,

gmail .. naja ich denke dann liegt es an ssl, ohne das geht es nicht.


nochmal zu dem oben .. ich glaube ich weiss warum es nicht geht ..

mach es mal so:

MessageParser: TclMessageParser;

Delphi-Quellcode:
procedure TForm1.ffnen1Click(Sender: TObject);
var i:integer;

begin
 for i := pop1.MessageCount -1 downto 0 do
  begin
   pop1.RetrieveHeader(i);
   checklistbox1.Items.Add(MessageParser.Subject)
  end
end;
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat
c4st0rtr0y

Registriert seit: 12. Feb 2005
18 Beiträge
 
#7

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:30
hmm...ja bei den CIS iss halt SSL sehrschön integriert. also mit den verschiedenen beispielen da unten wie auch das aktuelle von dir (Chris) kommen die mails zwar wunderbar in die checkliste rein allerdings werden die mails die einen anhang besitzen und komischerweise nur die, doppelt eingetragen. ka woran das wohl liegen könnte. ich meine ist ja nicht so schlimm wenn man doppelte einfach rausfiltern könnte ?.


procedure TForm1.ffnen1Click(Sender: TObject);
var
i:integer;
begin
pop1.Server := labelededit1.Text;
pop1.Port := StrToInt(labelededit2.text);
pop1.UserName := labelededit3.Text;
pop1.Password := maskedit1.Text;
pop1.TimeOut := 20000;
pop1.UseSSL := true ;
pop1.Open;
//for i := 0 to pop1.MessageCount -1 do
//for i := pop1.MessageCount - 1 to 0 do
begin
for i := pop1.MessageCount -1 downto 0 do
begin
pop1.RetrieveHeader(i);
checklistbox1.Items.Add(Message1.Subject);
end;
end;
end;
//begin
//pop1.RetrieveHeader(i, Message1);
//if Message1.Subject = 'News vom 16.02.05' then checklistbox1.Items.Add(Message1.Subject);
//checklistbox1.Items.Add(Message1.Subject);
//Message1.Clear;
//end;
[/delphi]
  Mit Zitat antworten Zitat
chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#8

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:45
hi,

du kannst das einfügen doppelter einträge im voraus verhindern.

z.b. hiermit:

if checklistbox1.Items.IndexOf(Message1.Subject) = -1 then checklistbox1.Items.Add(Message1.Subject); ob das so im sinne des erfinders ist sei mal dahingestellt.


probier das mal, ich hab mich gerade mal etwas schlau gemacht:

checklistbox1.Items.AddObject(Message1.Subject, Pointer(i));
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat
c4st0rtr0y

Registriert seit: 12. Feb 2005
18 Beiträge
 
#9

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:51
hm....funzt leider beides nüschte hat evtl. die checklistbox nen hauweg ? weil irgendwas stimmt da ja wohl net kann ja net sein das da allet doppelt kommt was nen anhang hat...
  Mit Zitat antworten Zitat
chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#10

Re: Checklistbox/Pop3 - Error Message ?

  Alt 16. Feb 2005, 13:58
hi,

wa??

if checklistbox1.Items.IndexOf(Message1.Subject) = -1 then checklistbox1.Items.AddObject(Message1.Subject, Pointer(1)) MUSS klappen!
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz