delphi4arab منتديات دلفي للعرب
كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ (/showthread.php?tid=372)



كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - Delphawi - 01-01-2009

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله تعالى وبركاته ...

لدي مثلاً موقع http://www.google.com
فكيف أعرف إذا ما كانت كلمة "بحث متقدم" موجودة في هذه الصفحة أم لا ؟

وجزاكم الله خيراً ...


كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - hanipino - 02-01-2009

ممكن استخراج كود HTML فى ListBox مثلا و البحث عن تلك الكلمة (برمجيا) . مجرد راءى فقط . ... اذا كانت هذه الصفحة (TWebBrowser) فى برنامجك .


كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - Delphawi - 02-01-2009

شكراً أخي ... لكن ممكن كود يشرح هذه الطريقة ؟


كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - hanipino - 02-01-2009

هنا مثال بسيط عن كيفية استخراج رقم IP من احد المواقع المتخصصة فى منحه . Smile
هنا


كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - Delphawi - 02-01-2009

شكراً أخي ... لكن هل هناك طريقة أقصر ؟

أنا فكرت في الحلول التالية , لكنني لا أدري الطريقة الصحيحة لتنفيذها , ف****ا أن تدلني عليها :
1- تحميل الصفحة ,,, وضعها كنص في Memo ,,, البحث عن الكلمة .
2- الاتصال بالصفحة نفسها ومعرفة الكلمة المرادة .
3- فتح الصفحة في WebBrowser ,,, الحصول على كود الصفحة ووضعه في Memo ,,, البحث عن الكلمة .

وجزاكم الله خيراً ...


كيف أعرف بوجود كلمة ما في صفحة على الانترنت ؟ - mourad39 - 12-01-2009

السلام عليكم
يجب تصفح الصفحة المطلوبة في مكون WebBrowser1 ثم القيام بإستخراج أكود الـ HTML لتلك الصفحة في مكون memo1 ثم البحث عن الكلمة في الـ memo1
إليك الكود الذي يقوم بإستخراج اكواد الـ HTML لصفحة معينة تم تصفحها لكن قبل ذلك يجب إضافة الوحدة MSHTML مع الوحدات في uses أعلى محرر الكود في دلفي
ثم هذا هو الكود لإستخراج HTML و وضعه في الـ memo1
PHP كود :
Memo1.text :=  (WebBrowser1.document as IHTMLDocument2).body.innerHTML; 
موفق ...