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

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

1 إجابة واحدة

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

يمكنك إستعمال 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

 

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

اسئلة متعلقة

+5 تصويتات
4 إجابة
سُئل يوليو 12 في تصنيف vcl بواسطة Ahmed02dz (410 نقاط) | 126 مشاهدات
0 تصويتات
2 إجابة
سُئل سبتمبر 11 في تصنيف vcl بواسطة Yamada Fakir (1,330 نقاط) | 40 مشاهدات
+3 تصويتات
3 إجابة
سُئل سبتمبر 4 في تصنيف vcl بواسطة Yamada Fakir (1,330 نقاط) | 97 مشاهدات
+3 تصويتات
2 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

282 سؤال
487 إجابة
866 تعليق
177 مستخدم