Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2011, 20:55   #1
Тутонхамон
Пользователь
 
Аватар для Тутонхамон
 
Регистрация: 09.02.2011
Сообщений: 43
Сообщение Исходный код сайта.

Всем привет.
Прочитал тему "Общие принципы авторизации на удаленных сайтах."
Авторизировался и попал на страницу, А КАК С ЭТОЙ СТРАНИЦЫ узнать
нужные мне значения?
например IP который отображается на странице 46.174.48.16

вот часть кода, может поможет
Код:
<a href=?m=gamemanager&p=crash&home=1064>Краш-лог</a></th></tr><tr><td width=200 align = center valign = top > 
		<br> 
		<input type=hidden name=logo1064 value='/images/servers/counterstrike16.png'> 
		<input type=hidden name=ip1064 value='46.174.48.16'> 
		<input type=hidden name=port1064 value='27254'> 
		<input type=hidden name=key1064 value='halflife_linux'> 
		<input type=hidden name=status_code1064 value='0'> 
		<span id=map1064><img src=/images/servers/counterstrike16.png></span> 
		</td> 
		<td valign=top colspan=5><span id=name1064></span> 
		<br><br>Cервер:  <b>Публичный 500 FPS</b> Локация: <b>MSK GoldenTelecom</b><br><br> 
		Адрес сервера:&nbsp;<b><a href='steam://connect/cs1064.myarena.ru:27254'>cs1064.myarena.ru:27254</a></b><br>IP адрес: <b>46.174.48.16</b> Порт: <b>27254</b><br><br>&nbsp;<br><br>
Тутонхамон вне форума Ответить с цитированием
Старый 21.05.2011, 21:00   #2
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Узнать = спарсить?
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 21.05.2011, 21:04   #3
Тутонхамон
Пользователь
 
Аватар для Тутонхамон
 
Регистрация: 09.02.2011
Сообщений: 43
Сообщение

ну надо чтобы ip с сайта
Код:
<input type=hidden name=ip1064 value='46.174.48.16'>
появился в эдите 1 формы 1
Тутонхамон вне форума Ответить с цитированием
Старый 21.05.2011, 21:08   #4
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Ну так это называется спарсить. Находишь опорную точку и парсишь.
Опорной точкой может быть: IP адрес: <b>
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 21.05.2011, 21:16   #5
Тутонхамон
Пользователь
 
Аватар для Тутонхамон
 
Регистрация: 09.02.2011
Сообщений: 43
Сообщение

То есть надо в исх. коде найти текст "IP адрес: <b>",
и то что после него записать в edit1.
Я правильно понял?
Тутонхамон вне форума Ответить с цитированием
Старый 21.05.2011, 21:26   #6
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Да, именно так.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 21.05.2011, 21:32   #7
Тутонхамон
Пользователь
 
Аватар для Тутонхамон
 
Регистрация: 09.02.2011
Сообщений: 43
По умолчанию

Спасибо =)
Тутонхамон вне форума Ответить с цитированием
Старый 22.05.2011, 07:59   #8
Евгений79
Пользователь
 
Регистрация: 22.04.2011
Сообщений: 19
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 str: string;
 start, index: integer;
begin
 str:= memo1.Text;//присваиваем исходный html текст
 start:= pos('IP адрес: <b>', str)+13;
 index:= PosEx('</b>',str, start)-start;
 edit1.Text:= copy(str, start, index);
end;
Евгений79 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исходный код сторонних разработчиков sawer6 Свободное общение 2 08.01.2011 17:01
преобразовать исходный код *Оля* Паскаль, Turbo Pascal, PascalABC.NET 0 18.04.2010 20:47
Исходный код страницы Abuhamed PHP 5 02.02.2010 00:34
Вывести исходный код на экран SoftKoc Общие вопросы Delphi 5 23.01.2010 08:52
Расформатировать исходный код страницы OdNairy Работа с сетью в Delphi 5 19.09.2009 18:13