سوال: چطور فیلدهای یک صفحه وب رو پرکنم؟

با سلام

دوستان عزیز من نیاز به برنامه ای دارم که یک صفحه وب رو که تعداد زیادی گزینه داره رو پر کنم (تعداد تکرار زیاده میخوام با برنامه در وقت صرفه جویی کنم )

اگه میشه بگید با چه دستوری فیلد ها رو پرکنم ؟

ممنون و منتظرم

دوست عزیز. این روند رو نمیدنم ولی برنامه ای برای این کار وجود داره و خیلی هم قوین.
میتونی از اونا استفاده کنی.
فکر کنم اسمش AIRobo بود.

سلام
فرض كنيد يك صفحه html‌داريد كه داراي 4 فيلد و يك دكمه submit است.
صفحه اي مانند اين :

کد:

---

<form method="POST" name="frmTest">
  <p>
  <input type="text" name="T1" size="20"></p>
  <p><input type="text" name="T2" size="20"></p>
  <p><input type="text" name="T3" size="20"></p>
  <p><input type="text" name="T4" size="20"></p>
  <p><input type="submit" value="Submit" name="B1"></p>
</form>

---

خب حالا در دلفي يك كنترل WebBrowser1 روي فرم قرار دهيد و صفحه مورد نظر را در اون load‌ كنيد.
2 كار بايد انجام دهيد، 1 : پر كردن فيلدهاي لازم - 2 : فشردن دكمه Submit

پركردن :

کد:

---

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 ovElements: OleVariant;
 i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
  begin
    if ovElements.item(i).name = 'T1' then
    ovElements.item(i).value := LabeledEdit1.Text
    else
    if ovElements.item(i).name = 'T2' then
      ovElements.item(i).value := LabeledEdit2.Text
    else
      if ovElements.item(i).name = 'T3' then
      ovElements.item(i).value := LabeledEdit3.Text
      else
      if ovElements.item(i).name = 'T4' then
        ovElements.item(i).value := LabeledEdit4.Text;
  end;
end;

---

اسم فيلدها را با توجه فرم خودتون تغيير دهيد.

فشردن دكمه Submit :

کد:

---

WebBrowser1.OleObject.Document.forms.item(0).elements.item(4).click;

---

مقدار عدد 4 را نيز بايد با توجه به صفحه html تغيير دهيد.

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزیز. این روند رو نمیدنم ولی برنامه ای برای این کار وجود داره و خیلی هم قوین.
میتونی از اونا استفاده کنی.
فکر کنم اسمش AIRobo بود.

---

سلام
از شما ديگه بعيد بود همچين جوابي بديد :18: بايد تشويق كنيد كه خودشون يه AIRobo بنويسن، ناسلامتي اينجا قسمت برنامه نويسي است.

دوست عزیز.
من که نمیدونم ایشون مشکلشون با دلفیه که میخوان یک چنین برنامه ای بنویسن ویا اینکه یک چنین کاری میخوان بکنن و نمیدونن چطوری.
من پیشنهاد خودم رو کردم.

به هر حال ممنون از تذکر شما.

سلام

مرد مباح عزیز این برنامه ای که شما گفتین به صورت کلی فیلد هایی رو که در اکثر صفحات وب هست ذخیره و پر می کنه مثل اسم و سال تولد و....

من می خواهم با استفاده از دلفی یه صفحه وب رو که شامل فیلد هایی از جنس ادیت و کومبو باکس هست رو پر کنم

noneforce عزیز من توی صفحه وبم 3تا فیلد کوبوباکس دارم اولی :استان - دومی:شهرستان-سومی:دفتر
1-regState
2-regCity
3-regOffice

که با انتخاب اولی کومبوباکس دومی تغییر میکنه و با انتخاب دومی سومی تغییر میکنه(یعنی شهرستانهای یک استان و دفاتر یک شهرستان مقدار می گیرند)

حالا دوباره برام اگه میشه توضیح بدید چیکار کنم کدی که شما بالا نوشتی کارم رو راه ننداخت آخه ازش هیچی سر در نیاوردم

ممنون