Грабить выделенный текст.

[Alex Cones]

Ситуация:
___Появилась необходимость ограбить сайты с анекдотами и выстроить из них нечто для выдачи случайного анекдота на сайте. Формат этого нечто известен и требует лишь немного усилий в переработке стандартного текста. С этим проблем нет.

Основное задание:
___Создать программу, которая по нажатию на кнопку:

• Сохранит в память выделенный в браузере текст
• Обработает его под необходимый формат
• Допишет измененный текст в файл-базу
• Сообщит и размере конечного файла

Со 2-4 пунктами проблем нет. Проблема в первом пункте. Я никогда не занимался "грабежом" текста.

Аммуниция:
___Браузер : Fx 3.6.2
Среда разработки: Delphi 7.

Прошу помощи.

*** Конец передачи ***

[notHaker]

Нашёл интересную ссылку. Возможно она вам поможет. с

http://www.rsdn.ru/forum/winapi/3695527.flat.aspx

[Alex Cones]

Странно, но страница у меня не грузится. Застревает на "передача данных..."

[Ivan_32]

Зачем собственно в браузере то? Ну в принципе, если узнаете ID окна в котором будет текст выделен, то EM_GETSEL, думаю, сработает.
Информацию о окне можно будет узнать посредством этой программы.

Update: похоже я ошибся, внутри браузера видимо все рисуется с нуля.

Кстати, а почему вы не хотите сделать это посредством WinSock + HTTP ?

У меня вот такой запрос работал в принципе:

get	db	"GET / HTTP/1.1",0xD,0xA
		db	"User-Agent: HTTPTest",0xD,0xA
		db	"Host: bash.org.ru",0xD,0xA
		db	0xD,0xA

[notHaker]

Ну как там написанно...

Проще всего найти окно, отдав ему фокус и эмулировать ctrl+c, а далее шерстить буфер обмена. Это самый простой вариант.

ЗЫ: Было тоже самое... Нужно просто подождать, тк у них видимо хостинг слабый.

[Alex Cones]

Кстати насчет CTRL+C у меня такая идея возникла: на основе TWebBrowser написать недобраузер, и рядом одну кнопку. Зашел на сайт, выделил текст и нажал на кнопку. Хук даже вешать не надо. Тогда вопрос нереиначевается:
как получить выделенный в TWebBrowser текст в String?

[raxp]

...предложу "грабить" асечного бота - 7149342

-=-=-=- Бот Анекдот -=-=-=-

Развлечение:
1) !anekdot [id] - Вывод анекдота по номеру
2) !aforizm [id] - Вывод афоризма по номеру
3) !bash [id] - Вывод цитаты по номеру
4) !bash - Вывод случайной цитаты
5) 1 - Вывод случайного анекдота
6) 2 - Вывод случайного афоризма
7) 3 - Вывод случайной цитаты из 100 новых

Другие функции:
1) !bot - Полный список всех Ботов
4) !info - Информация о проекте

...всего-то консольную утилитку с компонентом Ticqclient да что-нить из indy для посылки скрипту на твоем сайте ...хотя с другой стороны, рассмотри варианты граба и самим твоим скриптом.

[Alex Cones]

Честно говоря в ICQ не работал ни разу да и времени особо нет разбираться с протоколом. Ведь, наверное, гораздо проще произвести манипуляции по схеме из п.6? Я надеюсь, все таки, получить ответ на свой вопрос.

[raxp]

>>> тырк...

[notHaker]

Вот ссылка, там код для доступа к тексту

http://www.rsdn.ru/forum/delphi/65519.flat.aspx - доступ к тексту страницы

//Выделенный текст
function GetBrowserSelection(WB: TWebBrowser): string;
var
  Doc: Variant;
begin
  if assigned(WB.Document) then
  begin
    Doc := WB.Document;
    try
      Result := Doc.Selection.createRange.Text;
    finally
      Doc := Unassigned;
    end;
  end
end;

Не ругайте не тестил