Sitedeki Buttona Delphiden Tıklatmak Gönderen: nivea Tarih: 08 October 2005 17: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.
Sitedeki Buttona Delphiden Tıklatmak Gönderen: nivea Tarih: 09 October 2005 20:10:35
Arkadaşlar yapı şu şekilde;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var iDoc: IHtmlDocument2;
i: integer;
ov: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
iInputElement: IHTMLInputElement;
iTextElement:IHTMLTextAreaElement;
formelement:IHtmlFormElement;
begin
ov := 'INPUT';
IDisp := iDoc.all.tags(ov);
if assigned(IDisp) then begin
IDisp.QueryInterface(IHTMLElementCollection, iColl);
if assigned(iColl) then begin
for i := 1 to iColl.Get_length do begin
iDisp := iColl.item(pred(i), 0);
iDisp.QueryInterface(IHTMLInputElement, iInputElement);
if assigned(iInputElement) then
f iInputElement.Get_type_ = 'submit'
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;
if iInputElement.Get_name = 'subject'
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
ov:='TEXTAREA';
IDisp:=iDoc.all.tags(ov);
if assigned(IDisp) then
begin
IDisp.QueryInterface(IHTMLElementCollection,iColl);
if assigned(iColl) then
begin
for i := 1 to iColl.Get_length do begin
iDisp := iColl.item(pred(i), 0);
iDisp.QueryInterface(IHTMLTextAreaElement,iTextElement);
if assigned(iTextElement) then
begin
iTextElement.Set_value('Delphi Güzel Bir Programlama Dilidir.');
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
Ynt: Sitedeki Buttona Delphiden Tıklatmak Gönderen: Delphi.Net Tarih: 20 September 2006 17:21:40
hoca çok saol allah razı olsun 3 gündür bunu arıyordum...
Ynt: Sitedeki Buttona Delphiden Tıklatmak Gönderen: Lord_Ares Tarih: 25 September 2006 23: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
if iInputElement.Get_name = 'passwd' // adı passwd olana
then iInputElement.Set_value('11111111');
Ynt: Sitedeki Buttona Delphiden Tıklatmak Gönderen: cihangir Tarih: 10 November 2006 19:47:20
Çok güzel bir çalışma olmuş. Teşekkürler
Ynt: Sitedeki Buttona Delphiden Tıklatmak Gönderen: kodmanyagha Tarih: 27 May 2007 21:24:01
güzel döküman, ellerine sağlık