SMTP verify işlemi hk

[deltas]

Bir mail programı hazırlıyorum. Maili yollamadan önce kontrol yapmak istiyorum. Ve aşşağıdaki kodu yazıcınca derleme sırasında şu hata mesajını veriyor.

Kod: Tümünü seç

if SMTP.Verify(Edit1.Text) then
   ShowMessage(Edit1.Text+' verified')
 else
   ShowMessage(Edit1.Text+' not verified');

Hata mesajı:..........

[Error] MainUnit.pas(63): Type of expression must be BOOLEAN

Teşekkür ederim....
Muhabbetle....

[ender_arslanturk]

Merhaba

Kod: Tümünü seç

if SMTP.Verify(Edit1.Text)=true then 
ShowMessage(Edit1.Text+' verified') 
else 
ShowMessage(Edit1.Text+' not verified'); 

Şeklinde deneyebilirmisiniz.....

Saygılar,

[deltas]

[Error] MainUnit.pas(63): Incompatible types: 'String' and 'Boolean'

Bu sefrede bu hatayı aldım.. Hata satırı:

Kod: Tümünü seç

if SMTP.Verify(Edit1.Text)=true then 

[miskin]

Kod: Tümünü seç

function TIdSMTP.Verify(AUserName: string): string;
begin
  SendCMD('VRFY ' + AUserName, [250, 251]);    {Do not Localize}
  Result := LastCmdResult.Text[0];
end;

VRFY komutunun cevabini asagidaki gibi ögrenebilirsin

ShowMessage(SMTP.Verify(Edit1.Text))

[deltas]

Gönderdiğiniz fonksyon çalışmıyor. Uses' herhangi bişey mi eklememiz lazım?

[miskin]

özür dilerim aciklamalarim yeterli degildi dalginligima gelmis. Code Indy nesnesinin verify funksiyonu smtp VRFY komutunu gönderdikten sonra gelen cevabi string olarak veriyor.

Kod: Tümünü seç

ShowMessage(SMTP.Verify(Edit1.Text));

Adres icin verilen cevabi böyle ögrenebilirsiniz.

[deltas]

hocam çalışmadı. hotpop smtp olarak kullanıyorum.mail yolluyor. ama verify işlemini yapmıyor.

[miskin]

Eger elinizde kaynak Kode varsa, verify funksiyonunun nerde deklare edildigine bakin. Hotpop la simdiye kadar hic ugrasmadim bilemeyecegim.
RFC de VRFY komutu önerilmis ama her provider bunu desteklemiyormus, Anlatilana göre VRFY kötü emeller icin de kullanilabiliyormus, o yüzden her provider desteklemiyor deniyor.
Amacin verfy komutunun sonucunu görmekse Telnet üzerinden SMTP komutlarini gec. googlede bu konu ile ilgili bircok aciklama var 'telnet smtp`'

[deltas]

Boşver hocam aslında kod çalışsaydı; belki bazı insanların zaralı amaçla kullanacakları bi program yazacaktım. vazgeçtim zaten. Aslında vazgeçmedemedim de altından çıkamadım. maillist check olayına takılayım demiştim. Ama dediğin gibi bazı insanlar bunu zaralı amaçla kullanabilirler. Ben olaya beyaz olarak bakmıştım. Webmasterler için check olayı hazırlayayım demiştim. PHP takılırım artık. O daha iyi olur. bazı forumlarada eklenti yaparım. (:( )

Teşekkür ederim.