本文整理自网络,侵删。
Delphi Webbrowser IE 窗口选择中,选中的文字内容如何用API函数或delphi取出当前IE窗口已经选中的文本信息字符串?我的程序如下:
var
Doc: IHtmlDocument2;
TxtRange: IHtmlTxtRange;
S:string;
begin
Doc :=IE.Document as IHtmlDocument2; //IE: IWebbrowser2;
TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
S:=TxtRange.Get_text;
ShowMEssage('选中的内容为:'+S);
end;
哪位高人知道哪里错了?应该如何才能取得文本信息?
---------------------------------------------------------------
uses
msHtml, SHdocvw;
var
I: Integer;
ShellWindow: IShellWindows;
IE: IWebbrowser2;
Doc: IHtmlDocument2;
TxtRange: IHtmlTxtRange;
S: string;
P: PChar;
begin
ShellWindow := CoShellWindows.Create;
for I := 0 to ShellWindow.Count-1 do
begin
IE := ShellWindow.Item(I) as IWebbrowser2;
if IE <> nil then
begin
GetMem(P, MaxByte+1);
GetClassName(IE.HWND, P, MaxByte);
if SameText(P, 'IEFrame') then
begin
Doc := IE.Document as IHtmlDocument2;
if Doc.Selection <> nil then
begin
TxtRange := Doc.Selection.CreateRange as IHtmlTxtRange;
S := TxtRange.Get_text;
SHowMessage(S);
end;
end;
FreeMem(P);
end;
end;
end;
相关阅读 >>
Delphi firemonkey 学习笔记 �c tpopup 控件的使用
更多相关阅读请进入《Delphi》频道 >>