چک کردن جیمیل با دلفی

[The.Ghost]

با سلام خدمت تمام دوستان عزیز.
یک سئوالی دارم این که به چه صورت میشه اکانت جیمیل خودم را چک کنم و ببینم که آیا ایمیل برام آمده است یا نه؟؟؟ البته با دلفی.
با تشکر فراوان.

[lord_viper]

با کامپوننتهای tidpop3 و idmessage و IdSSLIOHandlerSocketOpenSSL میتونین به سرورهایی که سرتیفیکیشن بر مبنای ssl دارن وصل بشین

کد:

idpop31.username:=name;
idpop31.password:=pass;
idpop31.port:=995;
idpop31.host:='pop.gmail.com';


idpop31.UseTLS:=utUseImplicitTLS;
idpop31.Autologin:=True;
idpop31.authtype:=atUserPass;

procedure TForm1.btn1Click(Sender: TObject);
var
i,j:Integer;
begin
IdPOP31.ConnectTimeout:=300000;
IdPOP31.Connect;
if IdPOP31.Connected then
begin
i:=IdPOP31.CheckMessages;
Caption:=IntToStr(i);
if i>0 then
begin
for j := 1 to i do
begin
IdPOP31.Retrieve(j,IdMessage1);
lst1.Items.Add(IdMessage1.Subject);
end;
end
else
ShowMessage('new mail not found');
end;
end;

کد با xe3 نوشته شده
سرعت واکشی ایمیلهاها از سرور یه کم پایین هست

[The.Ghost]

سلام خیلی ممنون.
فقط این کد های بالا ایمیل های جدید را نمایش میدهند من اگه بخواهم همیشه تمام ایمیل ها را نمایش بدم باید چه کار کنم؟
این کد ایمیلی که نمایش داده را دوباره دیگه نمایش نمیده و مقدار CheckMessages همیشه صفر است تا ایمیل جدیدی بیاید.
برای این که ایمیل های خوانده شده هم دوباره نمایش بدم باید چه کار کنم؟؟

با تشکر فراوان

[lord_viper]

من خودم زیاد با pop3 کار نکردم قطعا متدهایی برای این کار داره
یه سرچی بزنین شاید بد نباشه