Ĺadny brzuch
begin
IdPop3.Connect;
il_wiadomosci := idpop3.CheckMessages;
for j := 0
to wiadomosci
do
idpop3.Retrieve(wiadomosci, idmessage);
listbox1.items.add(idmessage.Sender.Address);
Co w tym jest źle ? Po pierwsze nie chce mi pobierać adresów nadawców, a po drugie kiedy zamiast idMessage.Sender.Address dam idMessage.Subject pobiera tylko temat pierwszej wiadomosci :huh:
..
for j := 0 to il_wiadomosci-1 do
begin
idpop3.Retrieve(j,idmessage);
listbox1.items.add(idmessage.Sender.Address);
end;
...
Użytkownik Cyrkiel edytował ten post 26 czerwiec 2006, 11:01
..
for j := 0 to il_wiadomosci-1 do
begin
idpop3.Retrieve(j,idmessage);
listbox1.items.add(idmessage.Sender.Address);
end;
...
Czy na pewno masz utworzony obiekt idmessage? Spróbuj przy każdej iteracji utworzyć go i zwolnić :)
Czy na pewno masz utworzony obiekt idmessage? Spróbuj przy każdej iteracji utworzyć go i zwolnić :)
Przed pobieraniem wsadziłem idmessage.create i ... wywaliło access violation :Jumpy:
idmessage := TIdMessage.Create(); idpop3.Connect; il_wiadomosci := idpop3.CheckMessages; for j := 0 to wiadomosci-1 do begin idpop3.Retrieve(j,idmessage); listbox.items.add(idmessage.Sender.Address); idmessage.Free;
Access violation at 0000000. Read of address 0000000
idmessage := TIdMessage.Create(); -> tworzysz W PĘTLI (czyli po for j := 0 to wiadomosci-1 do begin)
idmessage := TIdMessage.Create(); -> tworzysz W PĘTLI (czyli po for j := 0 to wiadomosci-1 do begin)
idpop3.Connect; il_wiadomosci := idpop3.CheckMessages; for j := 0 to wiadomosci-1 do begin idmessage := TIdMessage.Create(); idpop3.Retrieve(j,idmessage); listbox.items.add(idmessage.Sender.Address); idmessage.Free;
@down:
Ajajaj, pomyliłem się. Wydawało mi się, że "białe miejsca", czyli nie rozumiesz.
Polecam sprawdzić w Memo, czy jest cokolwiek dodawane (czyli np. ' ', ' ', a nie '')
Użytkownik pbnan edytował ten post 26 czerwiec 2006, 11:56
Tak, dokładnie ten kod. Przy pobieraniu adresów są puste miejsca, a tematy bez problemu pobiera :>
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Co w tym jest źle ? Po pierwsze nie chce mi pobierać adresów nadawców, a po drugie kiedy zamiast idMessage.Sender.Address dam idMessage.Subject pobiera tylko temat pierwszej wiadomosci :huh:
..
for j := 0 to il_wiadomosci-1 do
begin
idpop3.Retrieve(j,idmessage);
listbox1.items.add(idmessage.Sender.Address);
end;
...
Użytkownik Cyrkiel edytował ten post 26 czerwiec 2006, 11:01
..
for j := 0 to il_wiadomosci-1 do
begin
idpop3.Retrieve(j,idmessage);
listbox1.items.add(idmessage.Sender.Address);
end;
...
Czy na pewno masz utworzony obiekt idmessage? Spróbuj przy każdej iteracji utworzyć go i zwolnić :)
Czy na pewno masz utworzony obiekt idmessage? Spróbuj przy każdej iteracji utworzyć go i zwolnić :)
Przed pobieraniem wsadziłem idmessage.create i ... wywaliło access violation :Jumpy:
idmessage := TIdMessage.Create(); idpop3.Connect; il_wiadomosci := idpop3.CheckMessages; for j := 0 to wiadomosci-1 do begin idpop3.Retrieve(j,idmessage); listbox.items.add(idmessage.Sender.Address); idmessage.Free;
Access violation at 0000000. Read of address 0000000
idmessage := TIdMessage.Create(); -> tworzysz W PĘTLI (czyli po for j := 0 to wiadomosci-1 do begin)
idmessage := TIdMessage.Create(); -> tworzysz W PĘTLI (czyli po for j := 0 to wiadomosci-1 do begin)
idpop3.Connect; il_wiadomosci := idpop3.CheckMessages; for j := 0 to wiadomosci-1 do begin idmessage := TIdMessage.Create(); idpop3.Retrieve(j,idmessage); listbox.items.add(idmessage.Sender.Address); idmessage.Free;
@down:
Ajajaj, pomyliłem się. Wydawało mi się, że "białe miejsca", czyli nie rozumiesz.
Polecam sprawdzić w Memo, czy jest cokolwiek dodawane (czyli np. ' ', ' ', a nie '')
Użytkownik pbnan edytował ten post 26 czerwiec 2006, 11:56
Tak, dokładnie ten kod. Przy pobieraniu adresów są puste miejsca, a tematy bez problemu pobiera :>