Как получить HTML-страницу в переменную?

[Citius]

Прошу не винить строго! Возможно такой материал и есть, просто я его не нашел. (Поиском я занимался!)

У меня была такая ситуация. Надо было получить результаты страниц поисковых систем, и передать страницу (а вернее её HTML-исходный код) в переменную. Я использовал компонент inet, метод OpenURL. С Yandex все проходило гладко вся страничка с резултатами поиска успешно попадала в переменную, для дальнейшего анализа, но вот только дело коснулось Google появилась проблема, Google пишет что не может принять моего клиента, типа воспользуйтесь FireFox, Opera или IE. Т.е. страница то поступает в переменную, но только не с результатами поиска, а с ошибкой о подключении, т.е. inet компонент не подходит как клиент.

А вопрос следующий как можно также просто (код в одну строчку ) получить данные с сайта Google?

[tyomitch]

Качалка в Кирпичах.

[Citius]

Качалка в Кирпичах.

Так так, меня наверное неправильно поняли, как можно присвоить всю страницу как значение для переменной прямо на лету, как с inet. Разве качалка не скачивает сначала файл на компьютер?

[tyomitch]

Там есть демо-пример. Запусти и убедись.

[Citius]

Спасибо буду пробовать

[dedmakar]

Вроде то: http://bbs.vbstreets.ru/viewtopic.php?t=3767&highlight=download+fail&sid=f9cffca816858496c81fc4875165ad6b

[Citius]

Такс интересно. Все вроде бы ничего пример посмотрел, остался доволен . Пока не добавил Kachalku к своему проекту. Мне нужен метод DownloadPush но мне в ответ на это выдается ошибка "Expected function or variable" что делать не знаю код снизу

Код: Выделить всё

Dim WithEvents Kach As clsKachalka

Private sub Form_Load()
Set Kach = New clsKachalka
End sub

Private Sub But_click()
InText = Kach.DownloadPush(URLS)
End Sub

[tyomitch]

Что такое InText?
И что такое URLS?

[Citius]

tyomitch
InText - переменная.
URLS - переменная содержащая адресную строку (ну к примеру http://www.yandex.ru)

[tyomitch]

Покажи код целиком.
В том куске, что приведён выше, этих переменных нет.

[Citius]

Код: Выделить всё

Dim WithEvents Kach As clsKachalka
Dim InText as String
Dim URLS as String
Dim Strt as Integer

InText = ""
URLS = "http://www.google.com/" & CStr(Strt)

Private sub Form_Load()
Set Kach = New clsKachalka
End sub

Private Sub But_click()
InText = Kach.DownloadPush(URLS)
End Sub

[tyomitch]

А, ну дык DownloadPush не возвращает значения. Замени её на DownloadToString.

[Citius]

Все все я уже разобрался с этим, ой блин тьфу вот умора, так затупить

Фууув, такс и следующая проблемка, как заставить этот чудо класс понимать кириллицу? Он мне кракозябры выдает, прям запрос обрабатывает не правильно, соответственно и результаты поиска не те и вообще все не то (я про Google)

И ещё, у меня на форме есть кнопочка "выход" из цикла поиска позиций, так вот при использование качалки я не могу на неё нажать и вообще ни на что нажать не могу. Оно что типа поток блокирует?

[tyomitch]

Типа пример дочитай, а

[Citius]

tyomitch
Ну с выходом разобрался, а как насчет кодировки? Как её то задать?

[tyomitch]

Покажи свои урлы.

[Citius]

Покажи свои урлы.

Ну к примеру вот такой:
http://www.google.com/search?q=HelloWorld&start=20

[tyomitch]

Я не вижу в нём кириллицы.

[Citius]

tyomitch
Блин! Хорошо допустим поисковый запрос "Привет", через качалку в Гугле, выдаст мне примерно что-то в этом роде:

1. Слово "привет" - ïðèâåò
2. Обзац текста с поисковой страницы:
Знаком�тва, любовь, возможно �ек�.....
Ã�ðèâåò Äîðîãîé, ÌÎß ËÞÃ�ÎÂÜ ß âèäåë âà ø ïðîôèëü ñåãîäíÿ â ýòîì ó÷à ñòêå (dating.webpark.ru), è ÿ îñòà íîâèëñÿ, ÷òîáû áðîñèòü î÷åíü õîðîøèé âçãëÿä íÃ

Как я понял дело в кодировке. И вот теперь, как поменять кодировку? А то сами понимаете что слово "Привет" я не найду никак при таком раскладе.

[tyomitch]

Ну так это UTF-8.
Там так в заголовке и написано.

[tyomitch]

Прикол в тему: http://intepid.com/2005-05-30/22.45

[FaKk2]

tyomitch
Дозу проверил?