Скачать: CL | DM;

twebbrowser - получить выделенный текст   Найти похожие ветки 

← →
Sergio77   (2006-07-13 14:54) [0]

Добрый день, мастера!
в инете нашел такую функцию:
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;

но она не работает в некторых случаях
(наверное это связано с фреймами, не знаю, я новичек в этом)

как мне скопировать выделенный текст из любого строения страницы (документа)

---

← →
Gero ©   (2006-07-14 00:07) [1]

Попробуй execCommand("Copy")

---

← →
Kray ©   (2006-07-14 15:06) [2]

ИМХО. Структура документа сложная. Всех хуже у меня получалось работать с надписями. Поэтому не всегда возможно получается извлечь результат.

Doc.Selection.createRange.Text
особенно не нравится  createRange. может просто Range?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c