Q&A

  • webbrowse에서 자바스크립트 부르기에서 에러입니다.
안녕하십니까?

문제는 아래의 내용 중 procedure ExecuteScript(doc:IHTMLDocument2;script:string;language:string);을 정의 해 주었는데
[Error] main.pas(29): Undeclared identifier: 'IHTMLDocument2' 라는 메세지가 나옵니다.
초보라 잘 몰라 그러니 부디 답변 부탁드립니다.

그럼 감사합니다.

--- 아래

Javascript:
function  SubmitForm()
{
document.forms[0].btnLogin.disabled = true;
MainForm.submit();
}


Delphi:
procedure ExecuteScript(doc:IHTMLDocument2;script:string;language:string);
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(webbrowser1.Document as HTMLDocument2,'SubmitForm()','JavaScript');

1  COMMENTS
  • Profile
    nilriri™ 2004.07.06 22:25
    샬롬~~

    interface

    uses
         ..., MSHTML, ...;

    추가해 주세요..

    C:\Program...\borland\del...\source\internet\mshtml.pas  가 있을겁니다.

    해당 유닛에..     IHTMLDocument2  이 정의되어 있습니다..

    그럼..즐프~