Posiadam Delphi 7 en i chciałbym napisać program sprawdzający ilość wiadomości w mojej skrzynce. Wiem, że ten temat był poruszany, ale niestety nie mogę znaleźć komponentu TNMPOP3. W Delphi 7 mam takie komponenty jak TidSMTP oraz TidMessage za pomocą, których mam możliwość wysłania poczty. Czy można też za pomocą tych komponentów sprawdzić ilość wiadomości w skrzynce, jeżeli tak to, w jaki sposób?
a TIdPOP3 ?
Czy są jakieś różnice między tymi komponentami, (TNMPOP3, TIdPOP3)? Czy kod mógłbym zastosować ten sam co w komponencie TNMPOP3?
Niestety sprawdziłem i nie mogę zastosować tego kodu zmieniając komponent TNMPOP3 na TidPOP3, ponieważ nie wszystkie instrukcje chcą działać w komponencie TidPOP3!! :
var
LiczbaMaili : Intger;
begin
NMPOP31.TimeOut := 20000; <font color="violet">// nie działa w komponencie TidPOP3</span>
NMPOP31.AttachFilePath := '.'; <font color="violet">// nie działa w komponencie TidPOP3</span>
NMPOP31.Host := 'Host serwera POP3 np. pop3.poczta.onet.pl';
NMPOP31.UserID := 'Twoj id np. ReNe'; <font color="violet">// wystarczy poprawić na username</span>
NMPOP31.Password := 'Twoje haslo np. 4programmers';
NMPOP31.ReportLevel := Status_Basic; <font color="violet">// nie działa w komponencie TidPOP3</span>
NMPOP31.Connect;
LiczbaMaili := NMPOP31.MailCount; <font color="violet">// nie działa w komponencie TidPOP3</span>
end;
Użyj komponentu Mail2000, który jest na 4programmers.
w kodach źródłowych jest przykład takiego programu, oparty na TIdPOP3
a demos katalog demos przejrzeć nie łaska? gdybyś to zrobił, to wiedziałbyś, że TIdPOP3 mimo swojej prostoty posiada naprawde zaawansowane procedury/funkcje ina dodatek jest duzo lepszy (i szybsz) od komponentów fastnet'a
Grzegorz
a pozmieniałes z NMPOPxx na idPOPxx najpierw pomysc gdzie moze byc gafa bo to sie tak zuca ze nie trudno tego przegapic
[code]
IdPOP31.TimeOut := 20000; // nie działa w komponencie TidPOP3
IdPOP31.AttachFilePath := '.'; // nie działa w komponencie TidPOP3
//itd.
[/code]
a ja mam taki problem zkozystałem z zródła a-nim.zip i pozmieniałem ale nie wiem co mam zrobic z PostMessage.FromAddress takiego czegos nie ma w indy idsmtp, co mam z tym zrobic,a mam [b]Delphi 7[/b].
[code]
idSMTP1.PostMessage.FromAddress := Email.Text;
idSMTP1.PostMessage.FromName := Enazwa.Text;
idSMTP1.PostMessage.Subject := Etemat.Text;
idSMTP1.PostMessage.ToAddress.Add(Edo.Text);
idSMTP1.PostMessage.Attachments.AddStrings(zalacznik.Items);
idSMTP1.PostMessage.Body.Assign(piszesz_co_kcesz.Lines);
idSMTP1.SendMail;// tu tez mi wywala blad ze nie ma takiego polecenia
[/code]
chyba wruce z powrotem na [b]Delphi 6[/b] bo te 7 to cos nie wypał
a i nie wiem czy to wysyła otwierajac okienko nowa wiadomosc z outloka i potem wysyła czy Od razu, bo ja potrzebuje by Od razu wysyłał
nie wracaj. wystarczy sciagnac komponenty Indy w wersji do delphi 7.0 a nie do 4,5,6 i je instalowac na 7. Pokaze sie ze uaktualni, ale ta komenda nie dziala. Astalavista baby