Twebbrowser - клик на кнопке

[cassidy]

Всем доброго времени суток) На вас последняя надежда) Перерыл кучу инфы ничего не работает... опыта работы с компонентом Twebbrowser и веб вообще не большой больше по бд.. Вот задача имеется страничка https://www.e-port.ru/card/receipt.cp нужно заполнить её определёнными данными и нажать на кнопку ОК, заполнить получилось, но вот нажать на кнопку никак, уже перепробовал десятки кодов ничего не помогло) Прошу помощи спецов)

вот код кнопки

<td align=right valign=bottom><input type=image name=OK src=/img/b_ok.gif>

один из вариантов

var form:olevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f).elements;
  for i:=0 to form.Length-1 do

    if (form.item(i).type='image')  then begin
      form.item(i).click;
      end;
  end;

end;

второй вариант

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 = 'image') then
ovElements.item(i).Click;
end;

пробовал так, но жмёт на всё кроме кнопки)

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

Покажите в чём может быть ошибка или в каком направлении рыть) Заранее благодарен всем откликнувшимся

[Dj_smart]

Как вариант напишите скрипт аля

<SCRIPT language="JavaScript" type="text/javascript">
function send_info(){
  document.имяФормы.sumbit();
}
</SCRIPT>

Ну а дальше уже найдете, как запустить какой-то скрипт в браузере, полно инфы.

uses mshtml;

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string):
  Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

чтобы "нажать", тебе юзайте код

ExecuteScript(IHTMLDocument2(WebBrowser1.Document),'send_info();','JavaScript');

[cassidy]

Всё работает. Спасибо за помощь!!!