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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.08.2010, 12:59   #1
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию Парсить получинную ссылку

на страницы есть ссылка, при её получение в ней содержиться ещё один файл на ссылку, как при получение этой ссылки пропарсить её на получение этого файла?
bulldog5293 вне форума Ответить с цитированием
Старый 13.08.2010, 13:42   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

отправить get на ссылку
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 13.08.2010, 13:47   #3
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

get это понятно, просто интересующая меня ссылка находится в той ссылке на которую я отправляю get, вот и хотел уточнить как мне пропарсить ссылку которуя я получил на наличие меня интересующей ссылки что бы потом get отправить на неё
bulldog5293 вне форума Ответить с цитированием
Старый 13.08.2010, 13:53   #4
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Вместо кучи тофтологии лучше покажите наглядно что приходит, что надо получить.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 13.08.2010, 15:15   #5
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

PHP код:
IdHttp.Get('url1'st);
str:=st.DataString;
while 
Pos('параметр1=',str)>do begin
 Listbox
.Append(Copy(str,Pos('параметр1=',str)+12,7));
Delete(str,1Pos('параметр1=',str)+12);
IdHttpGet('url1' 'url2', ...);
while 
Pos('параметр2=',...)>do begin 
где ... и дальше я уже не знаю как делать, Listbox для примера вставки, то есть не пойму как получить параметр2= и поставить его в переменную, что бы потом рполучить его
bulldog5293 вне форума Ответить с цитированием
Старый 13.08.2010, 23:28   #6
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

вобщем мне нада получить
<FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="vls.php">
делаю так
ss:=TStringStream.Create;
IdHttp1_Pay.Get(''+'N'+[3], ss);
sr:=ss.DataString;
while Pos('vls.php',sr)>0 do begin
IdHttp1_Pay.Get(sr+(Copy(sr,Pos('vl s.php',sr)+7,7)));
Delete(sr,1, Pos('vls.php',sr)+7);
Но вылетает ошибка и в снифере я его не получаю
А в программе получаю ошибку что я весь html сдираю
А получаю как ни странно данные от предыдущего запроса

Последний раз редактировалось bulldog5293; 14.08.2010 в 00:06.
bulldog5293 вне форума Ответить с цитированием
Старый 14.08.2010, 15:43   #7
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
По умолчанию

заметил свою ошибку, зделал так
PHP код:
ss:=TStringStream.Create;
IdHttp1_Pay.Get(''+'N'+[3], ss);
sr:=ss.DataString;
ss.Free;
while 
Pos('vls.php',sr)>do begin
Form2
.IdHttp1_Pay.Get('' + (sr+(Copy(sr,Pos('vls.php',sr)+7)))); 
Но теперь меня сразу на ошибку отсылает
raise EIdHTTPProtocolException.CreateErro r(AResponseCode, FHTTP.ResponseText,
bulldog5293 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как парсить ссылку на время bulldog5293 Общие вопросы Delphi 3 12.08.2010 21:46
Счетчик на ссылку! Skuns PHP 3 13.01.2010 22:23
Вытащить ссылку... AquaKlaster Работа с сетью в Delphi 0 15.08.2009 12:27
Парсить текст на слова fakir9999 Помощь студентам 0 02.06.2009 19:46
Киньте ссылку xPAL Свободное общение 1 31.01.2008 14:29