Otomatik WebForm Doldurma

[Caqatay]

merhaba arkadaşlar delphi 7 de bir web sayfasındaki formu otomatik olarak doldurmak ve post ettirmek istiyorum
elinizde bununlan ilgili veri-bilgi var mı yardımcı olabileceğiniz.birde sadece formda metin kutusu degil combobox tarzında seçmeli bişeylerde var onlarıda seçmem lazım otomatik olarak chapta var birde ama onu otomatik yapmanın yolu yok sanıyorum onuda kendim yazarım artık.yardımlarınız için çok teşekkür ediyorum şimdiden.

doldurmak istediğim form adresi : adres burada

[CiTiZEN]

burda:

http://delphiturkiye.com/forum/viewtopi ... in#p147619
ve burda

http://delphiturkiye.com/forum/viewtopi ... in#p130766

benzer bilgiler mevcut forumda birkaç örnek daha mevcut arama yaparak ulaşabilirsiniz.Sanırım işinizi görür.

kod örneği açısından buralardada örnek mevcut:

http://delphiturkiye.com/forum/viewtopi ... ct#p137176

http://delphiturkiye.com/forum/viewtopi ... ct#p124528

http://delphiturkiye.com/forum/viewtopi ... ct#p109362

[Caqatay]

WebBrowser1.OleObject.Document.GetElementByID('firstName').Value := Edit3.Text;
WebBrowser1.OleObject.Document.GetElementByID('lastName').Value := Edit4.Text ;
WebBrowser1.OleObject.Document.GetElementByID('address1').Value := Edit5.Text;
WebBrowser1.OleObject.Document.GetElementByID('address2').Value := Edit6.Text ;
WebBrowser1.OleObject.Document.GetElementByID('city').Value := Edit7.Text;
WebBrowser1.OleObject.Document.GetElementByID('state').Value := Edit8.Text ;
WebBrowser1.OleObject.Document.GetElementByID('zip').Value := Edit9.Text;
WebBrowser1.OleObject.Document.GetElementByID('phoneOne').Value := Edit10.Text ;
WebBrowser1.OleObject.Document.GetElementByID('phoneTwo').Value := Edit11.Text;
WebBrowser1.OleObject.Document.GetElementByID('phoneThree').Value:=Edit12.Text ;
WebBrowser1.OleObject.Document.GetElementByID('phoneWhole').Value:=Edit13.Text ;
WebBrowser1.OleObject.Document.GetElementByID('country').Value := Edit14.Text;


şu kod ile yaptım çok teşekkür ederim fakat.
Country ve State otomatik olarak gelmiyor :/
Onun için ne yapmam lazım birde yeşil reedem butonunun ID sini bulamadım.

[Caqatay]

evet ordaki Country i nasıl seçtirebilirim yaa

[Lord_Ares]

şunu bir denermisin

WebBrowser1.OleObject.Document.GetElementByID('selectCountry').Value :='AO';

sayfanın kodunda şunları bul ve sırayla dene. selectcountry değilse countrySelector dene

//////////////////////
div id="countrySelector" class="ssClosed">
<a href="#" id="countryClicker" onclick='showCountries(); return false;'><span class='si'>United States of America</span></a>
<div id="countryInner">

<a href="#" onclick='selectCountry("US", this); return false;'><span class='si'>United States of America (USA)</span></a>
<a href="#" onclick='selectCountry("UK", this); return false;'><span class='si'>United Kingdom</span></a>
<a href="#" onclick='selectCountry("AF", this); return false;'><span class='si'>Afghanistan</span></a>
/////////////////////////////////////////

[Caqatay]

<div id="countrySelector" class="ssClosed">
<a href="#" id="countryClicker" onclick='showCountries(); return false;'><span class='si'>United States of America</span></a>
<div id="countryInner">

<a href="#" onclick='selectCountry("US", this); return false;'><span class='si'>United States of America (USA)</span></a>
<a href="#" onclick='selectCountry("UK", this); return false;'><span class='si'>United Kingdom</span></a>
<a href="#" onclick='selectCountry("AF", this); return false;'><span class='si'>Afghanistan</span></a>
<a href="#" onclick='selectCountry("AL", this); return false;'><span class='si'>Albania</span></a>
<a href="#" onclick='selectCountry("DZ", this); return false;'><span class='si'>Algeria</span></a>
<a href="#" onclick='selectCountry("AS", this); return false;'><span class='si'>American Samoa</span></a>


---
sayfada buldum fakat hata alıyorum değişmiyor :/
yazdıgım kod : WebBrowser1.OleObject.Document.GetElementByID('stateSelector').Value :='TR';

sayfa : http://k0st4s.org/ptzplace/redeem

[Caqatay]

yok mu arkadaslar bi fikri olan o comboboxu nasıl sectirebilirim

[ballyunuvar]

evet arkadaşlar bu combobox nasıl seçtirilecek ?

[McVeLeT]

Merhaba arkadaşlar benimde bir sorum olacak.

Birden fazla benzer formlardaki idleri yazarak, formu doldurtmak istiyorum. Yani formda varsa doldur, yoksa hata verme, doldurma.

Aşağıdaki örnekteki gibi kimi formlarda "adi" yazıyor, kiminde "ismi" yazıyor, kiminde "name" yazıyor.

EmbeddedWB1.OleObject.Document.GetElementByID('adi').Value := Form1.RzDBEdit7.Text;
EmbeddedWB1.OleObject.Document.GetElementByID('soyadi').Value := Form1.RzDBEdit8.Text;
EmbeddedWB1.OleObject.Document.GetElementByID('ismi').Value := Form1.RzDBEdit6.Text;
EmbeddedWB1.OleObject.Document.GetElementByID('name').Value := Form1.RzDBEdit9.Text;

Eğer çağırdığımız sitede, yukarıdaki id isimlerinden biri olmadığında program aşağıdaki hatayı veriyor.



Benim yapmak istediğimde, bu hatayı vermesin, eğer id yoksa olanları eklesin sadece, olmayanları es geçsin.

[SimaWB]

Örnek:

Kod: Tümünü seç

var
  el: IHTMLElement;
begin
  el := EmbeddedWB1.OleObject.Document.GetElementByID('adi');
  if Assigned(el) then
    IHTMLInputElement(el).value := Form1.RzDBEdit7.Text;

[McVeLeT]

uses kısmına ne yazacağız, IHTMLElement ne şekilde ekleyeceğiz?

[SimaWB]

uses kısmına ne yazacağız, IHTMLElement ne şekilde ekleyeceğiz?

Bu forumda ve internette onlarca örnek olduğu için yazdığım basit kod bloğu hakkında açıklama yapmaya gerek duymamıştım.
Uses kısmına MSHTML'i eklerseniz IHTMLElement'i kullanabilirsiniz.

[McVeLeT]

İlginiz alakanız için teşekürler, şimdide aşağıdaki hatayı verdi

[SimaWB]

Bende EmbeddedWB olmadığı için deneme şansım yok ama şunu dener misiniz:

Kod: Tümünü seç

el := EmbeddedWB1.OleObject.Document.GetElementByID('adi') as IHTMLElement;

yada

Kod: Tümünü seç

el := IHTMLElement(EmbeddedWB1.OleObject.Document.GetElementByID('adi'));

[McVeLeT]

malasef hata veriyor, webbrowser1 ile dener misiniz peki? Sonuçta kardeş gibiler (: