如何将 googiespell 脚本与带有 WebBrowser 的 Delphi 程序一起使用。脚本用于拼写检查。我的代码用于在 Webbrowser 中使用 java 脚本。
这是执行脚本的代码。
uses
MSHTML_TLB, SHDocVw, ShellAPI;
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;
Sample usage:
IDoc: IHTMLDocument2;
Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc);
ExecuteScript(iDoc, 'document.login.submit()', 'JavaScript');
所以我需要使用 googiespell 脚本和 webbrowser 进行拼写检查。请帮我。?
您可以从此站点下载 googiespell 脚本