Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Копирование текста из фрейма 
V
    Опции темы
progbeg
Дата 29.10.2006, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет
В webbrowser загружается сайт с фреймами. Мне нужно сохранить один. Но мне нужен не код, а сам текст. Способ
Код

Doc:=Wb.Document as IHTMLDocument2;
Window:=Doc.parentWindow as IHTMLWindow2;
name_frame:='frame';
Write(F,Window.frames.item(name_frame).document.body.InnerText);

не подходит. Надо скопировать, вызвав функцию выделения и копирования, т.е.:
Код

webbrowser.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER);
webbrowser.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER);
webbrowser.ExecWB(OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER);

Только как это сделать только для одного, не верхнего фрейма?
PM MAIL   Вверх
progbeg
Дата 7.11.2006, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет
Могу по-другому сформулировать вопрос.
Если сделать вручную Ctrl-A, то выделится верхний фрейм. А если ткнуть мышкой в нужный и тоже выделить всё через клавиши, то выделится тот, который нужен. То есть как бы фокус поменять с одного фрейма на другой? Как это сделать программно в webbrowser? Тогда бы, наверное, и скопировать через вызов функций удалось.
PM MAIL   Вверх
progbeg
Дата 11.11.2006, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет
Есть у меня такой вариант:
Код

doc:=wb.document as IHTMLDocument2;
  frames:=doc.frames;
   for i:=0 to frames.length-1 do
     begin
        index:=i;
        if frames.item(index).name='name_frame' then
             Form1.Memo1.Lines.Add(frames.item(index).document.body.OuterText);
     end;

Всё вроде нормально, сохраняется из того фрейма, который нужен, но НЕ ТАК, как через выделение вручную!!! В частности, почему-то некоторое пробелы исчезают, а для сохранения смысла скопированного текста они обязательны! Почему так?  smile 
PM MAIL   Вверх
December
Дата 11.11.2006, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
А ты пробовал 
DoVerb(OLEIVERB_UIACTIVATE...
OLECMDID_SELECTALL...
OLECMDID_COPY...
OLECMDID_CLEARSELECTION...
?
По идее, должно работать. Касательно применения OLEIVERB_UIACTIVATE есть пример в ДРКБ


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
progbeg
  Дата 12.11.2006, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет
А можно пример, как записать выделение текста фрейма?  smile 
PM MAIL   Вверх
progbeg
Дата 17.11.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 123
Регистрация: 11.7.2006

Репутация: нет
Всего: нет
Всё, вопрос снимается.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0724 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.