Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как забрать текст из RichView чужого приложения 
:(
    Опции темы
arankar
Дата 24.11.2009, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
WM_GETTEXT не помогает
PM MAIL   Вверх
Rrader
  Дата 24.11.2009, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191
http://forum.vingrad.ru/forum/topic-263141...text/index.html


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
arankar
Дата 24.11.2009, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо!
Буду пробовать

Это сообщение отредактировал(а) arankar - 24.11.2009, 19:03
PM MAIL   Вверх
arankar
Дата 25.11.2009, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
SendMessage(Handle, EM_SETSEL, WPARAM(0), LPARAM(-1)); (не работает выделение!)
SendMessage(Handle, WM_COPY, 0, 0);
Showmessage(Clipboard.asText);

Не копирует текст, копирует только явно выделенный текст (т.е в ручную). Класс окна TRichView.

Это сообщение отредактировал(а) arankar - 25.11.2009, 08:24
PM MAIL   Вверх
Keeper89
Дата 25.11.2009, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Код в студию. smile

Это сообщение отредактировал(а) Keeper89 - 25.11.2009, 09:09


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
arankar
Дата 25.11.2009, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  H, PageHandle, HPanel, HTPageControl, TabHandle, REHandle: THandle;
begin
  H := FindWindow('TFrmChatMain', PChar('Chat'));
  if H <> 0 then
  begin
    PageHandle := FindWindowEx(H, 0, 'TPanel', PChar('PanelMainToolbar'));
    if PageHandle <> 0 then
    begin
      HPanel := FindWindowEx(PageHandle, 0, 'TPanel', nil);
      if HPanel <> 0 then
      begin
        HTPageControl := FindWindowEx(HPanel, 0, 'TPageControl', nil);
        if HTPageControl <> 0 then
        begin
          TabHandle := FindWindowEx(HTPageControl, 0, 'TTabSheet', PChar('Общий чат'));
          if TabHandle <> 0 then
          begin
            REHandle := FindWindowEx(TabHandle, 0, 'TRichView', nil);
            if REHandle <> 0 then
            begin
              Clipboard.Clear;
              SendMessage(REHandle, EM_SETSEL, WPARAM(0), LPARAM(-1));
              SendMessage(REHandle, WM_COPY, 0, 0);
              Showmessage(Clipboard.asText);
            end;
          end;
        end;
      end
    end
  end;
end;



Это сообщение отредактировал(а) arankar - 26.11.2009, 14:26
PM MAIL   Вверх
arankar
Дата 28.11.2009, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Keeper89, можешь помочь?? Народ посоветуйте че нить.

Это сообщение отредактировал(а) arankar - 28.11.2009, 00:05
PM MAIL   Вверх
Keeper89
Дата 1.12.2009, 01:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
arankar, да вроде все верно.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
arankar
Дата 1.12.2009, 05:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Keeper89, но там у меня копирует только если текст уже выделен.
PM MAIL   Вверх
Keeper89
Дата 1.12.2009, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
arankar, попробуй поставить брейкпоинт на 25 строчку и посмотреть, выделен ли текст в контроле.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
arankar
Дата 1.12.2009, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Keeper89, неа не выделен! по другому можно получить текст?
PM MAIL   Вверх
Keeper89
Дата 1.12.2009, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Как вариант можно послать в этот RichEdit комбинацию Ctrl+A вместо
Код

SendMessage(REHandle, EM_SETSEL, WPARAM(0), LPARAM(-1));
, если он ее поддерживает.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
arankar
Дата 2.12.2009, 00:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Keeper89,  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

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


 




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


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

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