Получение выделенного текста из компонента TWebBrowser

Советы » Браузер » Получение выделенного текста из компонента TWebBrowser

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение выделенного текста из компонента TWebBrowser

Зависимости: OleCtrls, SHDocVw, MSHTML, Variants (для Delphi 6+)
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        30 января 2003 г.
***************************************************** }

function

GetBrowserSelection(WB: TWebBrowser): string

; var

Doc: Variant; begin

if

WB.Document <> nil

then

begin

Doc := WB.Document; try

Result := Doc.Selection.createRange.Text finally

Doc := Unassigned; end

; end

else

Result := ''; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com