Post methodunda yardııım.

[Lord_Ares]

<div id="composepage">

<form name="compose" action="compose.php?unique_id=3bec90264e000d50548e80ebad43533a" method="post" ENCTYPE="multipart/form-data">

<input type=hidden name=send value=''>


<tr>

<td><img onclick="submitForm('send','Ara');" src="http://img.xxx.com/xxx/ara.gif"
<span id="draft_auto_save" class=eL4 style=color:red;></span>


merhaba arkadaşlar bir sitedeki arama buttonunu tıklatmak istiyorum üstte sitinin nasıl arama işlemi yaptığı hakkında bir kod var. Denemiş olduğum kodlar şu şekilde ama bir türlü çalışmadı

var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'SUBMIT') and
(ovElements.item(i).Value = 'Send') then
ovElements.item(i).Click;

neden çalışmadığını anlamadım. yardımcı olurmusunuz. teşekkürler.

[mrmarman]

- Hangi site olduğunu yazsaydın dener öyle cevaplardık...

- Döngüde ilgili başlığı bulup bulamadığını teyid için bir ShowMessage ekle ve kontrol et. Çünkü Forms(0)'a bakıyorsun, birden fazla form bloğu varsa yanlış bir tekine bakıyor olabilirsin.

- Ayrıca aşağıdaki şekilde de deneyebilirsin...

Kod: Tümünü seç

WebBrowser1.OleObject.Document.GetElementByID('button_adi_nesyse_onu_yaz').Click;

veya JavaScript varsa onu çalıştırmak için

Kod: Tümünü seç

WebBrowser1.Navigate( WideString('javascript:fonksiyon_adi();') );

[Lord_Ares]

hocam anlamadım gitti yaa delphide mutlaka bunla ilgili komponent vardır ama hangisi.. verdiğin kod için sağol ama bu da olmadı ilginç hatalar verdi sanırım yanlış kullandım

[Lord_Ares]

- Hangi site olduğunu yazsaydın dener öyle cevaplardık...

- Döngüde ilgili başlığı bulup bulamadığını teyid için bir ShowMessage ekle ve kontrol et. Çünkü Forms(0)'a bakıyorsun, birden fazla form bloğu varsa yanlış bir tekine bakıyor olabilirsin.

- Ayrıca aşağıdaki şekilde de deneyebilirsin...

Kod: Tümünü seç

WebBrowser1.OleObject.Document.GetElementByID('button_adi_nesyse_onu_yaz').Click;

veya JavaScript varsa onu çalıştırmak için

Kod: Tümünü seç

WebBrowser1.Navigate( WideString('javascript:fonksiyon_adi();') );

hocam websayfasındaki elementlerin adını nasıl alabilirim.