안녕하십니까?
문제는 아래의 내용 중 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');
interface
uses
..., MSHTML, ...;
추가해 주세요..
C:\Program...\borland\del...\source\internet\mshtml.pas 가 있을겁니다.
해당 유닛에.. IHTMLDocument2 이 정의되어 있습니다..
그럼..즐프~