Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Sitedeki Buttona Delphiden Tıklatmak  (Okunma sayısı 4083 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı nivea

  • Yeni Üye
  • *
  • İleti: 4
  • Rep: +1/-0
Sitedeki Buttona Delphiden Tıklatmak
« : 08 Ekim 2005 16:48:56 »
Twebbrowser bileşenini kullanarak bir siteye bağlanıyıp bu sitedeki butona delphi yi otomatik olarak aşağıdaki yöntemi uygulabilirsiniz.
Kayıtlı

Çevrimdışı nivea

  • Yeni Üye
  • *
  • İleti: 4
  • Rep: +1/-0
Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #1 : 09 Ekim 2005 19:10:35 »
Arkadaşlar yapı şu şekilde;

Kod: Delphi
  1. procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  2.   const pDisp: IDispatch; var URL: OleVariant);
  3. var iDoc: IHtmlDocument2;
  4.   i: integer;
  5.   ov: OleVariant;
  6.   iDisp: IDispatch;
  7.   iColl: IHTMLElementCollection;
  8.   iInputElement: IHTMLInputElement;
  9.   iTextElement:IHTMLTextAreaElement;
  10.  formelement:IHtmlFormElement;
  11.  
  12. begin
  13. ov := 'INPUT';
  14.   IDisp := iDoc.all.tags(ov);
  15.   if assigned(IDisp) then begin
  16.     IDisp.QueryInterface(IHTMLElementCollection, iColl);
  17.     if assigned(iColl) then begin
  18.       for i := 1 to iColl.Get_length do begin
  19.         iDisp := iColl.item(pred(i), 0);
  20.         iDisp.QueryInterface(IHTMLInputElement, iInputElement);
  21.         if assigned(iInputElement) then
  22.  
  23. f iInputElement.Get_type_ = 'submit'
  24.             then iInputElement.Get_form.submit;

Burda sonda yazmış olduğum ifade tipi submit olan bir buton bularak clickleme işlemini gerçekleştiriyor arkadaşlar.
Aynı şekilde eğer herhangi bir boşluk doldurucaksanız bu ifade yerine şöyle bir ifade kullanıcaksınız;
 
 
Kod: Delphi
  1. if iInputElement.Get_name = 'subject'
  2.          
  3.           then iInputElement.Set_value('Selam');
Buda anlaşılacağı gibi adı subject olan boşluğa "Selam"  stringini atamak içindir.

Son olarakta işinize yarayabiliceğini düşündüğüm text alanlarını doldurmak için kullanabilceğiniz bir kod daha ekliyorum.

Yukarda vermiş olduğum ifade de

Kod: Delphi
  1. ov:='TEXTAREA';
  2. IDisp:=iDoc.all.tags(ov);
  3. if assigned(IDisp) then
  4.   begin
  5.   IDisp.QueryInterface(IHTMLElementCollection,iColl);
  6.   if assigned(iColl) then
  7.       begin
  8.   for i := 1 to iColl.Get_length do begin
  9.         iDisp := iColl.item(pred(i), 0);
  10.       iDisp.QueryInterface(IHTMLTextAreaElement,iTextElement);
  11.       if assigned(iTextElement) then
  12.         begin
  13.         iTextElement.Set_value('Delphi Güzel Bir Programlama Dilidir.');
  14.      
  15.            iInputElement.Get_form.submit;
gibi bir değişiklik yaparsanız textarea denilen bölümleride doldurma şansınız olucaktır.Böyle bir uygulama nerde işinize yarıyabilir sorusunun cevabına gelince ise eğer sizde benim gibi formları doldurmaktan sıkıldı iseniz  kendinize böyle bir program yazarak bu çileden kurtulma yolunu seçebilirsiniz.
Hepinize bol kodlu ve mutlu günler dilerim.

Saygılarımla
  Ahmet
« Son Düzenleme: 16 Ocak 2009 16:13:59 by Kocaturk »
Kayıtlı

Delphi.Net

  • Ziyaretçi
Ynt: Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #2 : 20 Eylül 2006 16:21:40 »
hoca çok saol allah razı olsun 3 gündür bunu arıyordum...
Kayıtlı

Çevrimdışı Lord_Ares

  • Kıdemli Üye
  • *****
  • İleti: 189
  • Rep: +1/-0
Ynt: Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #3 : 25 Eylül 2006 22:30:31 »
hocam senin için sorun olmazsa biraz kodu açıklarmsın kopyala yapıştır olayından nefret ediyorum öğrenmek istiyorum mesela ben bunu googleda arama yapmak için nasıl kullanırım.bende buna benzer bir kod var orda bilgileri gireceğim alanın ismini belirtiyorsun fakat googleda o alanda bir isim yok ve buttona tıklama yapmak için verdiğin kodda button ismi belirmelimiyim bana yardımcı olurmusun. Bendeki kod şu şekilde

Kod: [Seç]
if iInputElement.Get_name = 'passwd' // adı passwd olana
then iInputElement.Set_value('11111111');
« Son Düzenleme: 26 Eylül 2006 08:53:33 by Fatih »
Kayıtlı

Çevrimdışı cihangir

  • Yeni Üye
  • *
  • İleti: 3
  • Rep: +0/-0
  • Cinsiyet: Bay
Ynt: Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #4 : 10 Kasım 2006 19:47:20 »
Çok güzel bir çalışma olmuş. Teşekkürler
Kayıtlı

Çevrimdışı kodmanyagha

  • Yeni Üye
  • *
  • İleti: 4
  • Rep: +0/-0
  • Cinsiyet: Bay
    • www.emirbugra.net
Ynt: Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #5 : 27 Mayıs 2007 20:24:01 »
güzel döküman, ellerine sağlık
Kayıtlı

Çevrimdışı tugsat

  • Yeni Üye
  • *
  • İleti: 10
  • Rep: +0/-0
Ynt: Sitedeki Buttona Delphiden Tıklatmak
« Yanıtla #6 : 16 Ocak 2009 13:06:29 »
Çok saol kardeş.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »