Geçerli e- posta kontrolü

[sarp_halit]

S.A. Arkadaşlar, kolay gelsin.

edite girilen değerin geçerli bir e- posta adresi olup olmadığını kontrol edebilir miyiz?

kolay gelsin. iyi çalışmalar.

[Battosai]

Kontrol derken mail formatı olarak mı yoksa ping gibi server doğrulaması mı?
Örneğin web sitelerinde mail doğrulaması yapan kodlar var. Genelde standart bunlar yani içerisinde @,'.' varmı diye kontrol eden kodlar...ama sen kesin sonuç istiyorsun heral...

[sarp_halit]

Benim amacım içerisinde @ ya da . olup olmadığını kontrol etmekti. ama buldum.

function IsEMail(EMail: String): Boolean;
var
s : String;
ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;

kullanımı
procedure TForm1.Button2Click(Sender: TObject);
begin
if isemail(Edit1.Text) then
ShowMessage('eMail-Adresse!')
else
Showmessage('Yanlis eMail-Adresse!');
end;

teşekkürleri

[hi_selamlar]

S.A.

ping atarak nasıl edilir.

örnek varmı ki ?

saol

[Battosai]

ping atarak yapılır demiyorum zaten.....zaten ping ile olmaz bu iş...

[sadettinpolat]

duzenli ifadeler (regular expressions) kullanarakta bu işlemleri ve daha fazlasini yapabilirsiniz.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
// Validates the email address in Edit1
begin
  // Warning: this code should not be used to perform actual
  // email validation. You should check the RFC specification.
  // This is just a simplification to show the use of ExecRegExpr.
  if not ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+',
      Edit1.Text) then begin
    ShowMessage('The email address is not valid');
    Edit1.SetFocus;
  end else
    ShowMessage('The email address is valid');
end;

http://www.latiumsoftware.com/en/articles/00009.php