السلام عليكم
عندي سؤال بالنسبة لـ WebBrowser
عند إستخدام WebBrowser في مشروعي وفتح صفحة انترنت ولتكن صفحة ×
ولكن ضمن هذه الصفحة × يوجد متحول
أريد بكل بسطاطة أخذ هذه القيمة من WebBrowser لوضعها في متحول في الدلفي لاستخدامها
بطريقة أخرى
يوجد موقع أريد فتحة عن طريق WebBrowser وعند فتحة يظهر لي رقم
أريد أخذ هذا الرقم لوضعه في متحول في الدلفي
أرجوا أن يكون سؤالي واضحاً
وشكراً لكم...
سؤالك واضح ولكن أفضل أن تخبرنا أين هذا المتحول بالضبط أو ضع الصفحة التي تريد (قراءة متحولات منها , حتى كتابة متحولات فيها , ضغط زر )
طيب المتحول موجود في صفحة الانترنت واسمه XTXT مثلاً
أريد الحصول عليه عن طريق الدلفي بأي طريقة ممكنة
لاتهم الطريقة بقدر كيف أقدر أحصل عليه من صفحة الانترنت
يارب يكون حدا فهم علي
هذا المثال أظن سيجاوب عن سؤالك
فيه إسناد قيمة للصفحة وأخذ قيمة منها
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dirap : string;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
dirAp := ExtractFilePath(Application.ExeName);
WebBrowser1.Navigate(dirap+'index.htm');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=WebBrowser1.OleObject.Document.test.t1.Value;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.test.t1.Value:=Edit1.Text;
end;
end+
كود صفح ة الويب المثال
<html dir="rtl"> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>New Page 1</title> </head> <body> <form name="Test" method="POST" action="--WEBBOT-SELF--"> <p align="center"><input type="text" name="T1" size="20"></p> </form> <p> </p> <p> </p> <p> </p> </body> </html>
ضع صفحة الويب بأسم Index.htm في نفس مسار المشروع
(لم اتمكن من أرفاق المشروع لا أعرف سبب الخطأ)
تم تعديل هذه المشاركة بواسطة decompiler في 2 سبتمبر 2007 في 12:16
وصلت المعلومة
هذا المطلوب
الله يعطيك الف الف عافية
وشكراً لك
طلعت مشكلة تانية ماكنت متوقعها
نسيت انو HTML لاتستخدم أسماء للنصوص
يعني ...
عندي صفحة فيها مايلي
______________________
الاسم الأول : محمد
الاسم الثاني: فلان
رقم الهاتف: ××××××××××××××
بيانات أخرى ... ألخ
______________________
أريد في برنامجي سحب رقم الهاتف وحفظة
ولكن كيف؟؟؟
يعني لو كان رقم الهاتف موجود في Text كانت انحلت المشكلة بردك أخي decompiler
الكود التالي يجلب لك كل نص الصفحة
var tex:string; begin tex:= WebBrowser1.OleObject.Document.Body.outertext;
يمكنك البحث وأستخلاص ما تريد تحتاج معرفة بسيطة بطرق البحث في ال(String)
شباب يمكن مسكت أول الخيط أنا
رقم الهاتف لازم يبدأ برقم 021
ممكن يساعدنا هذا الرقم ؟؟؟؟؟؟؟؟
رح اجرب أخي الله يعطيك الف عافية يارب ,,,
كل ما عليك هو البحث ضمن نص الصفحة عما تريده
ولكن أنا أسف ما بظن يمشي الحال بالنسبة لل021 لانو هادا البرنامج وقتها بدو دورة ليتعامل مع أهل حلب ههههههههههههههههه
عراسي حارتك خاي
:P هيك قولتك :D
الله يعطيك العافية يسلمووووو
هذا الموضوع مغلق.