[Niger]

Hi всем!!! Хочу сделать мини-программу, которая будет показывать кто находиться в данный момент на моём форуме, что бы отслеживать посещения. Но появилась проблема: как найти ту часть страницы форума и высвятить в моей программе?

P.S. Я и яндексил, и рамблерил, и использовал поиск по сайту. Не помогло

[:S.p.a.m.]

Вобщем я не стал заморачиваться с парсерами и делал в своем скринсейвере примерно так: Искал блок на сайте, где выводится эта инфа. Блок я отделил <!-- Statistic --> и снизу <!-- EndStatistic --> Потом простым pos искал это место, а там примитивно анализировал строку, ища новые темы форума, между ">" и "<". Правда, чесно говоря мне идея с комментариями пришла после того как я начал распространять скринсейвер, я делал чуть чуть подругому, но идея та же.

[Niger]

Сообщение от :S.p.a.m.

Вобщем я не стал заморачиваться с парсерами и делал в своем скринсейвере примерно так: Искал блок на сайте, где выводится эта инфа. Блок я отделил <!-- Statistic --> и снизу <!-- EndStatistic --> Потом простым pos искал это место, а там примитивно анализировал строку, ища новые темы форума, между ">" и "<". Правда, чесно говоря мне идея с комментариями пришла после того как я начал распространять скринсейвер, я делал чуть чуть подругому, но идея та же.

Я не спроста добавил тему в раздел "начинающим". В том-то и проблема:
1.А Если форум не мой?
2.Как это: простым pos?
3.Как анализировать?

[mak-karpov]

Смотри в исходниках, кат. Сети/Интернет, программа Weather info, погода с сайта pda.gismeteo.ru. Тоже pos'ом искал

[Niger]

Сообщение от mak-karpov

Смотри в исходниках, кат. Сети/Интернет, программа Weather info, погода с сайта pda.gismeteo.ru. Тоже pos'ом искал

дА, у меня есть этот исходник. Да, там всё исписано коментами. Но всё равно нечего не понямаю((( Больше понимаю по шагово

[mak-karpov]

Вот этот отрезок кода

Код:

1   s := IdHTTP1.Get('http://pda.gismeteo.ru/'+IntToStr(CityID)+'.htm');
2   S := Copy(S, Pos('<td bgcolor="#E0FFE0">Облачность<br>и осадки</td>', S), MAXINT);
3   s1 := Copy(S, Pos('alt="', S)+5, MAXINT);
4   s1 := Copy(s1, 0, Pos('"', s1) - 1); //Облачность
5   s2 := Copy(S, Pos(TempStr, S)+Length(TempStr), MaxInt);
6   s2 := Copy(s2, Pos('r>', s2), MAXINT);
7   s2 := Copy(S2, Pos('>', s2)+1, MAXINT);
8   s2 := Copy(s2, 0, Pos('</td>', s2)-1);

Теперь пошагово

1. Получаем всю страницу из инета.
2. Ищем текст "Облачность и осадки" и копируем текст страницы начиная с этого текста.
3.Ищем текст "alt="(подсказка) и опять копируем.
4.Ищем символ ' " ' и обрезаем страницу до этого символа, получаем текст типа "Гроза, облачно, и т.д."
5,6,7,8 - аналогично, но для температуры

[Niger]

Огромное спасибо!!!

Кто же тебе такую репутацию дал??? Щас подправим)))


__________________________________________________ _
Сори за идиотизм, но: как добавить + в репутацию??? По темам искал, но не нашёл(((

[Niger]

Следующий вопрос: А если я хочу залогиница на форуме, как это сделать через программу??? Как ввести Логин и Пароль программно???

[mak-karpov]

Вроде через

Код:

var sel : TStringList;
begin
sel := TstringList.Create;
sel.Add('Login=1234');
sel.Add('Pass=4321');
IdHTTP1.Post('URL форума',sel) 

Чтобы узнать названия полей нужно смотреть код страницы

[Niger]

Сообщение от mak-karpov

Вроде через

Код:

var sel : TStringList;
begin
sel := TstringList.Create;
sel.Add('Login=1234');
sel.Add('Pass=4321');
IdHTTP1.Post('URL форума',sel) 

Чтобы узнать названия полей нужно смотреть код страницы

Огромное спасибо!!! Выручил второй раз уже!!! И всё же: как добавить + в репутацию?

[Niger]

Сообщение от mak-karpov

Вот этот отрезок кода

Код:

1   s := IdHTTP1.Get('http://pda.gismeteo.ru/'+IntToStr(CityID)+'.htm');
2   S := Copy(S, Pos('<td bgcolor="#E0FFE0">Облачность<br>и осадки</td>', S), MAXINT);
3   s1 := Copy(S, Pos('alt="', S)+5, MAXINT);
4   s1 := Copy(s1, 0, Pos('"', s1) - 1); //Облачность
5   s2 := Copy(S, Pos(TempStr, S)+Length(TempStr), MaxInt);
6   s2 := Copy(s2, Pos('r>', s2), MAXINT);
7   s2 := Copy(S2, Pos('>', s2)+1, MAXINT);
8   s2 := Copy(s2, 0, Pos('</td>', s2)-1);

Теперь пошагово

Soryyyyy, но у меня не получилосья
За места нужного теста выводиться весь HTML код. Почему???

[mak-karpov]

Ну так экстрасенсы в отпуске. Выложи хоть свой код. Хотя возможно ты ищешь не то, что надо. Тогда функция pos возвратит ноль. Такое бывает, когда на странице есть фреймы(<iframe> и т.д.) Тогда браузер переходит по ссылке и выводит "код выделенного фрагмента"

[Niger]

Сообщение от mak-karpov

Ну так экстрасенсы в отпуске. Выложи хоть свой код. Хотя возможно ты ищешь не то, что надо. Тогда функция pos возвратит ноль. Такое бывает, когда на странице есть фреймы(<iframe> и т.д.) Тогда браузер переходит по ссылке и выводит "код выделенного фрагмента"

Мужик, ты просто волшебник!!! Прежде чем выкладывать исходник, я решил его проверить. И, о чудо!!! Заработало!!! Огромное спасибо!!!