Ryuzee.com

Webコンサルタントの愚痴とアジャイル,生産性向上,Trac,オープンソースなどの与太話

Ryuzeeの他サイト

携帯対応

RING

新着記事

2009.01.06: WordPressの好きなところ
2009.01.04: [どうでもよいこと]つれづれ
2009.01.02: [どうでもよいこと]Delphi5でXML-RPC（力技）
2009.01.01: あけましておめでとうございます＋今年の目標設定
2008.12.31: [どうでもよいこと]デスマっちゃう条件

起動中のIEのIWebBrowser2インタフェイスを外部から取得する

12 月 2nd, 2007 Delphi none Comments

Delphiの話。
色々あって起動中のブラウザで表示中の画面を横取りして、formの項目をfillinしてPOSTしないといけない要件がある。まずはWindowハンドルを元にして、起動中のIEのIWebBrowser2インタフェイスを取得する方法。

function 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;

これでIWebBrowser2のインタフェイスが取得できれば、文書の操作は簡単。

doc := IE.Document as IHtmlDocument2;
ShowMessage(doc.body.innerHTML);

ブラウザからIHtmlDocument2インタフェイスを取得し、それを通じてhtmlの本体にアクセスできる。