كيف أبرمج برنامج للتحقق من رقم ip

[فارس المطر]

[FONT="Arial"]السلام عليكم أعضاء ومشرفي دلفي

أنا بصدد برمجة برنامج الهدف منه التحقق من رقم IP
بعد ادخال أقسام IP الاربعة في Edit1.2.3.4 واخيار صنف الشبكة a او b او c
كما في الصورة 1

كود :

http://www.mobdi3ine.net/uploads/1431078288862.jpg

نتيجة التحقق تظهر في label

كود :

http://www.mobdi3ine.net/uploads/1431077365621.jpg

[onexite]

PHP كود :

try
if StrToInt(Edit1.Text) >255 then Edit1.Font.Color:=clRed else Edit1.Font.Color:=clGreen;
if StrToInt(Edit1.Text) in [0..127] then
Caption:= 'Classe A';
if StrToInt(Edit1.Text) in [128..191] then
Caption:= 'Classe B';
if StrToInt(Edit1.Text) in [192..223] then
Caption:= 'Classe C';
if StrToInt(Edit1.Text) in [224..239] then
Caption:= 'Classe D';
if StrToInt(Edit1.Text) in [240..255] then
Caption:= 'Classe E';
except
end; 


[فارس المطر]

[B]
شكرا للمشرف الغالي بدأت تتضح الرؤية
لكن أخي يجب تحديد صنف الشبكة أولا فيradio button A او B او C
ثم إدخال رقم الايبي أجزاء 196.255.1.5
الجزء الاول في edit 1 مثلا 196
الجزء الاول في edit 2 مثلا 255
الجزء الاول في edit3 مثلا 1

الجزء الاول في edit4 مثلا 5
ثم التحقق[/B]

[فارس المطر]

نوع الشبكة A 255.0.0.0
نوع الشبكة B 255.255.0.0
نوع الشبكة C 255.255.255.0

عند كتابة رقم ايبي في Edit4 Edit3 Edit2 Edit1
نتحقق من نوع الشبكة

كود :

http://www.mobdi3ine.net/uploads/1431106123453.jpg

[bassem_43]

السلام عليكم
اظن الموضوع تم التطرق اليه هنا
http://www.delphi4arab.net/forum/showthr...?tid=11916
بالتوفيق