الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في Webbrowser

مغلق
بدأه nobleman في 30 أغسطس 2007 · 10 رد · 1,294 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي سؤال بالنسبة لـ WebBrowser

عند إستخدام WebBrowser في مشروعي وفتح صفحة انترنت ولتكن صفحة ×

ولكن ضمن هذه الصفحة × يوجد متحول

أريد بكل بسطاطة أخذ هذه القيمة من WebBrowser لوضعها في متحول في الدلفي لاستخدامها

بطريقة أخرى

يوجد موقع أريد فتحة عن طريق WebBrowser وعند فتحة يظهر لي رقم

أريد أخذ هذا الرقم لوضعه في متحول في الدلفي

أرجوا أن يكون سؤالي واضحاً

وشكراً لكم...

#2

سؤالك واضح ولكن أفضل أن تخبرنا أين هذا المتحول بالضبط أو ضع الصفحة التي تريد (قراءة متحولات منها , حتى كتابة متحولات فيها , ضغط زر )

#3

طيب المتحول موجود في صفحة الانترنت واسمه XTXT مثلاً

أريد الحصول عليه عن طريق الدلفي بأي طريقة ممكنة

لاتهم الطريقة بقدر كيف أقدر أحصل عليه من صفحة الانترنت

يارب يكون حدا فهم علي

#4

هذا المثال أظن سيجاوب عن سؤالك

فيه إسناد قيمة للصفحة وأخذ قيمة منها

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

#5

وصلت المعلومة

هذا المطلوب

الله يعطيك الف الف عافية

وشكراً لك

#6

طلعت مشكلة تانية ماكنت متوقعها

نسيت انو HTML لاتستخدم أسماء للنصوص

يعني ...

عندي صفحة فيها مايلي

______________________

الاسم الأول : محمد

الاسم الثاني: فلان

رقم الهاتف: ××××××××××××××

بيانات أخرى ... ألخ

______________________

أريد في برنامجي سحب رقم الهاتف وحفظة

ولكن كيف؟؟؟

يعني لو كان رقم الهاتف موجود في Text كانت انحلت المشكلة بردك أخي decompiler

#7

الكود التالي يجلب لك كل نص الصفحة

var
tex:string;
begin

tex:= WebBrowser1.OleObject.Document.Body.outertext;

يمكنك البحث وأستخلاص ما تريد تحتاج معرفة بسيطة بطرق البحث في ال(String)

#8

شباب يمكن مسكت أول الخيط أنا

رقم الهاتف لازم يبدأ برقم 021

ممكن يساعدنا هذا الرقم ؟؟؟؟؟؟؟؟

#9

رح اجرب أخي الله يعطيك الف عافية يارب ,,,

#10

كل ما عليك هو البحث ضمن نص الصفحة عما تريده

ولكن أنا أسف ما بظن يمشي الحال بالنسبة لل021 لانو هادا البرنامج وقتها بدو دورة ليتعامل مع أهل حلب ههههههههههههههههه

عراسي حارتك خاي

#11

:P هيك قولتك :D

الله يعطيك العافية يسلمووووو

هذا الموضوع مغلق.

مواضيع مشابهة