获得ie句柄,并根据句枘操作iwebbrowser2对象
2014-07-16 08:12
399 查看
var
Wnd: HWND;
WndChild:HWND;
Hdoct:IHtmlDocument2;
IE: iwebbrowser2;
All: IHtmlElementCollection;
HtmlElement: IHtmlElement;
objovt:OleVariant;
input: IHTMLInputElement;
obj:IHTMLObjectElement;
begin
Wnd := FindWindow('IEFrame', nil);
WndChild := FindWindowEx(Wnd, 0,'Frame Tab', nil);
WndChild := FindWindowEx(WndChild, 0,'TabWindowClass', nil );
WndChild := FindWindowEX(WndChild, 0, 'Shell DocObject View', nil);
WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil);//找到'Internet Explorer_Server'类的句柄
if WndChild <> 0 then
begin
GetIEFromHWnd(WndChild, IE);
if(IE <>nil) then
begin
Hdoct:=IE.Document as IHtmlDocument2;
All:= Hdoct.all;
obj:= All.item('cardPrint',0) as IHTMLObjectElement;
input:= All.item(0,0) as IHTMLInputElement;
//input.value:='赋值';
input.select();
end;
end;
end;
function TActiveFormX.GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
hInst := LoadLibrary('Oleacc.dll');
@ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
if @ObjectFromLresult <> nil then
begin
try
MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
if Result = S_OK then
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE);
finally
FreeLibrary(hInst);
end;
end;
end;
//在type加TObjectFromLResult 定义
type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT; stdcall;
Wnd: HWND;
WndChild:HWND;
Hdoct:IHtmlDocument2;
IE: iwebbrowser2;
All: IHtmlElementCollection;
HtmlElement: IHtmlElement;
objovt:OleVariant;
input: IHTMLInputElement;
obj:IHTMLObjectElement;
begin
Wnd := FindWindow('IEFrame', nil);
WndChild := FindWindowEx(Wnd, 0,'Frame Tab', nil);
WndChild := FindWindowEx(WndChild, 0,'TabWindowClass', nil );
WndChild := FindWindowEX(WndChild, 0, 'Shell DocObject View', nil);
WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil);//找到'Internet Explorer_Server'类的句柄
if WndChild <> 0 then
begin
GetIEFromHWnd(WndChild, IE);
if(IE <>nil) then
begin
Hdoct:=IE.Document as IHtmlDocument2;
All:= Hdoct.all;
obj:= All.item('cardPrint',0) as IHTMLObjectElement;
input:= All.item(0,0) as IHTMLInputElement;
//input.value:='赋值';
input.select();
end;
end;
end;
function TActiveFormX.GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
hInst: HWND;
lRes: Cardinal;
MSG: Integer;
pDoc: IHTMLDocument2;
ObjectFromLresult: TObjectFromLresult;
begin
hInst := LoadLibrary('Oleacc.dll');
@ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
if @ObjectFromLresult <> nil then
begin
try
MSG := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
if Result = S_OK then
(pDoc.parentWindow as IServiceprovider).QueryService(IWebbrowserApp, IWebbrowser2, IE);
finally
FreeLibrary(hInst);
end;
end;
end;
//在type加TObjectFromLResult 定义
type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM: wParam; out pObject): HRESULT; stdcall;
相关文章推荐
- 通过IE句柄 获得 IE Document对象和IWebBrowser2对象
- 也谈根据IE窗口句柄hWnd获得IWebBrowser接口
- 根据IE窗口句柄hWnd获得IWebBrowser接口
- 根据IE窗口句柄hWnd获得IWebBrowser接口
- 也谈根据IE窗口句柄hWnd获得IWebBrowser接口
- 通过指定Shell Embedding/IEFrame类窗口的句柄获得浏览器(IE)对象
- 使用ArcSDE SQL操作怎么获得新对象的objectid、GUID
- VC根据进程ID获得主窗口句柄(不是进程句柄)
- 获得事件Event对象,用于兼容IE和FireFox
- JS使IE窗口闪烁或根据条件闪烁,使IE窗口获得焦点
- ie和firefox下操作table对象的异同
- 获得ie地址栏句柄
- 不同IE版本下,字符对象某些操作不同
- 根据一个Activity字符串名字获得Acitivity的Class对象
- 通过指点操作获得窗口句柄
- 通过窗口句柄获得 IWebBrowser2 接口源码
- 根据窗体的标题获得句柄,并设置其控件的值
- C#通过Win32 API操作IE浏览器 --- 获得IE的URL
- Java之用句柄操作对象
- C#通过Win32 API操作IE浏览器 --- 获得IE的URL