easyDelphi Q&A
+1 تصويت
35 مشاهدات
سلام في بعض الحالات يقوم المستخدم بادخال بريد الكتروني و اريد التاكد من وجوده و بعدها يتم التخزين.

شكرا
سُئل في تصنيف vcl بواسطة (3,390 نقاط) | 35 مشاهدات
 

1 إجابة واحدة

+1 تصويت
أفضل إجابة

يمكنك إستعمال Regular Expression

function TForm1.IsMatch(const Input, Pattern: string): boolean;
begin
  Result := TRegEx.IsMatch(Input, Pattern);
end;
function TForm1.IsValidEmailRegEx(const EmailAddress: string): boolean;
const
  EMAIL_REGEX = '^((?>[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+\x20*|"((?=[\x01-\x7f])'
             +'[^"\\]|\\[\x01-\x7f])*"\x20*)*(?<angle><))?((?!\.)'
             +'(?>\.?[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+)+|"((?=[\x01-\x7f])'
             +'[^"\\]|\\[\x01-\x7f])*")@(((?!-)[a-zA-Z\d\-]+(?<!-)\.)+[a-zA-Z]'
             +'{2,}|\[(((?(?<!\[)\.)(25[0-5]|2[0-4]\d|[01]?\d?\d))'
             +'{4}|[a-zA-Z\d\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|\\'
             +'[\x01-\x7f])+)\])(?(angle)>)$';
begin
  Result := IsMatch(EmailAddress, EMAIL_REGEX);
end;

للإستعمال

if IsValidEmailRegEx(Edit1.Text) then
    ShowMessage('البريد صحيح')
  else
    ShowMessage('البريد غير صحيح');
كود مأخوذ من
http://delphiprogrammingdiary.blogspot.com/2016/01/how-to-check-for-valid-email-address-in.html

 

تم الرد عليه بواسطة (5,470 نقاط)
مختارة بواسطة
for valid Email address format
نعم الكود يتحقق من شكل الايمايل ان كان صحيح او خطاء ولكن هل هدا الايمال موجود فعلا هدا هو المطلوب
لأعتقد أن هناك طريقة تفعل ذلك، لذلك عندما تريد التسجيل في أي موقع وبعد ملئ إستمارة التسجيل يتم إرسال لك بريد فيه رابط بغرض التأكد من وجود العنوان الذي وضعته في إستمارة التسجيل
لا بل هناك عدة طرق لمعرفة ما إن كان هذا الأيمايل موجود أم لا من بينها "DNS MX record query"
شكرا لك، في الحقيقة طرح نفس السؤال في احد المنتدبات الخاصة ب C# وكان الرد (وكان مصنف كأفضل إجابة) أنه لا يمكن ذلك  وبقي هذا الجواب في رأسي
أتقصد لا يمكن ذلك ’؟

اسئلة متعلقة

+4 تصويتات
4 إجابة
سُئل يوليو 12 في تصنيف vcl بواسطة Ahmed02dz (390 نقاط) | 87 مشاهدات
+3 تصويتات
2 إجابة
0 تصويتات
2 إجابة
سُئل منذ 2 أيام في تصنيف vcl بواسطة Yamada Fakir (240 نقاط) | 42 مشاهدات
+1 تصويت
1 إجابة
سُئل أغسطس 11 في تصنيف vcl بواسطة Faycal Benmerghid (130 نقاط) | 36 مشاهدات
+1 تصويت
2 إجابة
سُئل أغسطس 7 في تصنيف vcl بواسطة KHALED (3,390 نقاط) | 45 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

162 سؤال
327 إجابة
527 تعليق
104 مستخدم