[borockov]

Сообщение от Pyro

не уверен что тут о js речь

может как-то так:

Код:

Webbrowser1.OleObject.Document.Frames...

Код:

GetElementById('bPrint')

Таким образом я уже прбовал никакого эффекта, вот js код самой кнопки

Код:

window.location = 'http://www1.fips.ru/fips_servl/fips_servlet?lockId='+values["SessionKey"]+'&hitListURL='+values["IPSKey"]+'&Index='+values["CurrentDoc"]+'&NumEnv='+values["NumEnv"];

Вот это надо как то вызвать в делфи, кое что надыбал но разобрать не могу.

Код:

uses
  MSHTML;
procedure TForm1.CallFoo(S: string; I: Integer);
  { Calls JavaScript foo() function }
var
  Doc: IHTMLDocument2;      // current HTML document
  HTMLWindow: IHTMLWindow2; // parent window of current HTML document
  JSFn: string;             // stores JavaScipt function call
begin
  // Get reference to current document
  Doc := WebBrowser1.Document as IHTMLDocument2;
  if not Assigned(Doc) then
    Exit;
  // Get parent window of current document
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then
    Exit;
  // Run JavaScript
  try
    JSFn := Format('foo("%s",%d)', [S, I]);  // build function call
    HTMLWindow.execScript(JSFn, 'JavaScript'); // execute function
  except
    // handle exception in case JavaScript fails to run
  end;
end;

Взято отсюда

http://www.delphidabbler.com/articles?article=21