如何取得瀏覽器反白文字? |
|
答題得分者是：zxjrainbow@21cn.com
|
|
CoffeeX
中階會員   發表：18 回覆：121 積分：72 註冊：2005-02-18 發送簡訊給我 |
|
|
zxjrainbow@21cn.com
一般會員  發表：0 回覆：3 積分：5 註冊：2002-08-11 發送簡訊給我 |
<textarea class="cpp" rows="10" cols="60" name="code">
void __fastcall THtmlForm::SelAsTitleBtnClick(TObject *Sender)
{
//TODO:IE所选文字
IHTMLDocument2* pDocument ;
IHTMLSelectionObject *SelectObj;
IHTMLTxtRange *TextRang;
HRESULT hr ;
HWND EditFormHanle=NULL; //获得IHTMLDocument2接口
hr = CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2,(void**)&pDocument) ; if(SUCCEEDED(hr) )
{
pDocument->get_selection(&SelectObj);
pDocument->Release() ;
IDispatch* pDisp ;
wchar_t *TxtSrc;
SelectObj->createRange(&pDisp);
hr= pDisp->QueryInterface(IID_IHTMLTxtRange,(void**)&TextRang) ;
if(SUCCEEDED(hr) )
{
TextRang->get_text(&TxtSrc);
m_SelText=AnsiString(TxtSrc).Trim();
if(m_SelText.Length()>2)
{
//做你想做的事。
}
}//end of if
}//end of if
}
//---------------------------------------------------------------------------
</textarea>
------
http://www.9ele.com |
|
CoffeeX
中階會員 發表：18 回覆：121 積分：72 註冊：2005-02-18 發送簡訊給我 |
發表時間：2006-12-29 19:10:48
IP:140.125.xxx.xxx 訂閱
,系統時間：2025-02-23 0:35:49
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |