أذكار المسلم القرآن الكريم صيد الفوائد الدُرر السنية
قناة المغاربية Echourouk TV إذاعة أدرار المحلية Ennahar TV
France 24 Sky News al-jazeera BBC


try another color scheme:

جديد مواضيع منتديات الواحة / alwahatech newest threads
إضغط علي شارك اصدقائك او شاركى اصدقائك لمشاركة اصدقائك!


روابط تهمك القرآن الكـريم الصوتيات الفلاشـات الالعاب اليوتيوب الزخرفـة إعلانـات قروب الطقس الإخبـار P A ! n مـركز تـحميل
العودة   alwahatech > ˆ~¤®§][©][ قســــم التكنولوجيــــا ][©][§®¤~ˆ > واحـة لغـات البرمجـة


واحـة لغـات البرمجـة مخصص للغات البرمجة فيجوال بيسيك , فيجوال سي ++ , دلفي , أكسيس , أوراكل , الاسمبلي ...الخ


جديد منتدى واحـة لغـات البرمجـة

لدالة في دلفي لمعرفة ip للجهاز الذي تستخدمه عندما تتصل بالانترنت

بسم الله الرحمن الرحيم والسلام عليكماليوم معي دالة لمعرفة:ip للجهاز الذي تستخدمه عندما تتصل بالانترنت للحصول على IP للجهاز الذي تستخدمه عندما تتصل بالانترنت يجب أ ن نستدعي

إنشاء موضوع جديد إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
 
قديم 04-20-2008, 09:38 AM   #1
معلومات العضو
alwadheh


آعجبنيً: 0
تلقي آعجاب مرة واحدة في مشاركة واحدة
$ 82  




صورتك المفضلة MyMMS




Thumbs up لدالة في دلفي لمعرفة ip للجهاز الذي تستخدمه عندما تتصل بالانترنت








بسم الله الرحمن الرحيم
والسلام عليكماليوم معي دالة لمعرفة:ip للجهاز الذي تستخدمه عندما تتصل بالانترنت


للحصول على IP للجهاز الذي تستخدمه عندما تتصل بالانترنت يجب أ ن نستدعي بعض التوابع API الموجودة في الوحدة Winsock
سوف ننشأ تابع GetIPFromHost الذي سوف يستدعي عدد من توابع API للحصول على IP
ولكن قبل استخدام توابع WinSock functions يجب أن يكون عندنا جلسة (session)
يتم إنشاء هذه الجلسة (session) بالتابعWSAStartup وفي النهاية نستدعي التابعSACleanup لإنهاء استعمال مقابس ويندوزWindows (Sockets)
والاّن ضع زر وضع 2 Edit على الفورم وأنشىء التابع التالي GetIPFromHost في implementation

uses Winsock;
function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
Else
begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN :WSAErr:='WSAENetDown';
WSAEINPROGRESS :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
Edit1.Text := Host;
Edit2.Text := IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);
end;

g]hgm td ]gtd gluvtm ip gg[ih. hg`d jsjo]li uk]lh jjwg fhghkjvkj





reputation



  رد مع اقتباس
 
 

 
قديم 04-20-2008, 09:41 AM   #2
افتراضي








لا يمكنكم مشاهدة باقي المشاركات لأنك زائر ..
إذا كنت مشترك مسبقاً معنا ..  فقم بتسجيل الدخول بعضويتك المُسجل بها للمتابعة و إذا لم تكن كذلك فيمكنك تسجيل عضوية جديدة مجاناً ( من هنا )









  رد مع اقتباس
 
 
 
قديم 04-24-2008, 11:56 AM   #3
Smile








لا يمكنكم مشاهدة باقي المشاركات لأنك زائر ..
إذا كنت مشترك مسبقاً معنا ..  فقم بتسجيل الدخول بعضويتك المُسجل بها للمتابعة و إذا لم تكن كذلك فيمكنك تسجيل عضوية جديدة مجاناً ( من هنا )









  رد مع اقتباس
 
 
إنشاء موضوع جديد إضافة رد

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
كتب دلفى,جافا وإعلام آلي Amine واحـة لغـات البرمجـة 15 04-22-2012 12:29 PM
للمهتمين بالانترنت عبر الأقمار amine128 واحـــــة الفضـائيـــــات 0 03-19-2009 03:19 PM
أرقـــــــام الأخطــاء في الاتصال بالانترنت ومعانيها Xavi 6 واحة اخبار التقنية 2 01-21-2009 11:38 PM
برنامج خطير تستخدمه الشرطه الاميركيه لتركيب الصور البشري خطي onimusha واحة الكمبيوتر و البرامج 1 11-16-2008 07:45 PM
مقدمة إلى لغة دلفى nagati واحـة لغـات البرمجـة 1 04-25-2008 10:44 AM


الساعة الآن 09:34 PM.


Powered by Alwaha® Version
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Adsense Management by Losha

new notificatio by 9adq_ala7sas
أقسام المنتدى

ˆ~¤®§][©][ القسم العـــــــام ][©][§®¤~ˆ || واحـة المواضيع العــامة || ˆ~¤®§][©][ قســــم التربية والتعليم ][©][§®¤~ˆ || واحة الضيافة والترحيب || واحة الدين الاسلامي || واحة التعليم المتوسط || واحة التعليم الثانوي || واحة اللغة العربية و اللغات الاجنبية الأخرى || ˆ~¤®§][©][ قســــم التكنولوجيــــا ][©][§®¤~ˆ || واحة اخبار التقنية || واحة الكمبيوتر و البرامج || واحة التصميم والغرافيكس || واحة الصيانة وحلول مشاكل الحاسوب || ˆ~¤®§][©][ قســــــم بــــــلادي ][©][§®¤~ˆ || واحة التعريف بمناطق الوطن || واحة السياحة المحلية || ˆ~¤®§][©][ القســــم الرياضـــي ][©][§®¤~ˆ || واحة كرة القدم العربية || واحة الرياضة العامة || واحة المسابقات والاعلانات || ˆ~¤®§][©][ قــســــــــم الإدارة ][©][§®¤~ˆ || واحـة العــاب الفيديــو || واحة برامج الحماية || واحة البرامج المشروحة || واحة برامج الفيديو والصوتيات || واحة برامج الانترنت والمحادثة || واحة البحوث العلمية || واحة برامج وملحقات التصميم || واحة كرة القدم العالمية || واحة لقطات الفيديو والصور والتصاميم الرياضية || واحة التصميم ثلاثي الابعاد || واحة دروس الفوتوشوب وكل اصدارات Adobe || واحة الفلاش والسويتش وبرامج الانمي || واحـة لغـات البرمجـة || واحة العاب اكس بوكس والبلايستيشن || واحة العاب الكمبيوتر || واحة الاستفسارات و استقبال الإقتراحات || واحة الجوالات MP3 MP4 Ipod Ipad || واحة الدوري الاسباني || واحة الدوري الانجليزي || واحة الدوري الايطالي || واحة الدوريات الاوروبية الاخري || واحة المناظر الطبيعية || واحة الاثار والقصور القديمة || واحة الصناعة التقليدية || واحة صناعة الفخار والسعف والجلد || واحة تعليم الصناعة التقليدية || واحة تاريخ وتراث المنطقة || واحة تاريخ المنطقة || واحة التراث الثقافي للمنطقة || واحة صور المنطقة || واحة صور وسط المدينة || واحة صور قصور المدينة || واحة اللغة الانجليزية || واحة اللغة الفرنسية || واحة اللغات الاجنبية الاخرى || واحـــــة الفضـائيـــــات || ˆ~¤®§][©][ نــــادي الواحــــــة ][©][§®¤~ˆ || واحة الالغاز والنكت || واحة الصور والغرائب || واحة السنما العربية والعالمية || واحة ملفات التورنت || واحة القرآن الكريم وعلومه || واحة السنة والسيرة النبوية || واحة الصوتيات والمرئيات || واحة المسائل الاسلامية العامة || واحة البيع والشراء والتبادل || واحة اخبار الوطن || واحة الثقافة العامة || ˆ~¤®§][©][ قسم الأسرة و المجتمع ][©][§®¤~ˆ || واحة الأسرة || واحة الافلام الوثائقية || واحة الاثاث و الديكورات و الأشغال اليدوية || واحة المرأة والطفل || واحة الديكورات و الأشغال اليدوية || مطبخ الواحة || واحة المواضيع المكررة || واحة اخبار وصور السيارات || واحة الجهاز المحمول PSP || واحة الـ EURO || واحة مشجعي وعشاق الاندية || واحة الكتب الالكترونية || واحة الأزياء المحلية || واحة الألـعـاب الأولــمــبــيــة Beijing 2008 || واحة رمضان || واحة الانمي || واحة القنوات الفضائية || واحة الشفرات || واحة الأجهزة الرقمية || واحة التعريف بالثانويات || واحة التعريف بالمتوسطات || واحة الارشادات والنصائح الصحية || واحة طلبات البرامج || واحة أنظمة التشغيل || ˆ~¤®§][©][ القســم الادبــي ][©][§®¤~ˆ || واحة الشعر والادب العربي || واحة التاريخ || واحة القصص والمقالات الادبية || واحة الشعر الشعبي || واحة الحوار والنقاش الهادف || واحة شهادة البكالوريا || واحة شهادة التعليم المتوسط || ˆ~¤®§][©][ القسم الجامعي ][©][§®¤~ˆ || واحة القانون || واحة البحوث والمقالات || واحة الاستشارات القانونية || واحة جديد القانون || واحة أخبار المحاكم || واحة القنوات الرياضية || اخبار الواحة || المطبخ الرمضاني || كوزينة رمضان || واحة كأس العالم || واحة كأس افريقيا || واحة اللغة العربية || واحة جامعة التكوين المتواصل || كلية الطب ، البيولوجيا و البيطرة || كلية العلوم الإجتماعية و الإنسانية || كلية العلوم الإقتصادية والتجارية || كلية الهندسة المعمارية والإلكترونية || كلية الإعلام الآلي والرياضيات || واحة السياحة العالمية || واحة الأطباق الرئيسية || واحة المقبلات و السلطات || واحة الحلويات و المعجنات || واحة المشروبات || واحة كتب الطبخ || واحة الحلى و الكريمات || واحة الرياضة الجزائرية || واحة محاربي الصحراء ( الفنوك ) || كرة القدم الجزائرية القسم الاول والثاني || مطبخ الواحة الخاص || واحة المواضيع المميزة || واحة المواضيع المميزة || واحة أدم || واحة الرسم و الخط العربي || واحة قانون العلاقات الاقتصادية الدولية || واحة التقنيات البنكية || واحة أخبار العالم || واحة التعليم الإبتدائي || واحة فيديوهات اليوتيوب || واحة كوبا أمريكا 2011 || واحة الفضاء الجامعي || واحة الشيرينغ || واحة طلبات الإشتراك بالسيرفر الـ cccam || المنتدى التحضيري || منتدى الاطوار الاولى || منتدى السنوات الرابعة و الخامسة || واحة الحدائق و النباتات المنزلية || واحة EURO 2012 || كلـــية اللغـــات الأجنبية || واحة التعليم العام ||


RSS RSS 2.0 XML MAP HTML

- جميع المشاركات المكتوبة تعبر عن وجهة نظر صاحبها ،، و لا تعبر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى -