|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.09.2016, 11:17 | #11 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Спасибо!
Можете еще один раз выручить?)) У меня получился такой код: Код:
|
08.09.2016, 11:34 | #12 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
это
Цитата:
у Вас в этом месте цикла вообще НЕТ! приучите себя всегда ставить в начале цикла (после оператора DO) ключевое слово BEGIN а после окончания тела цикла - ключевое слово END тогда будет понятно, что внутри цикла. и форматируйте код. иначе это невозможно понять и читать. p.s. что Вам нужно сделать - мне не понятно. сформулируйте вопрос. |
|
08.09.2016, 11:37 | #13 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Жесть. Лучшей дай что получаешь (ссылка на ресурс) и что надо вытащить
|
08.09.2016, 11:59 | #14 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
http://mobimeet.kz/login.php
2.site.ru/login.php 3.site.com/login.php вот страницы мне нужно вытащить все пост переменные, и добавить их в memo что я делал s:=idhttp1.Get(memo4.Lines[i]); - парсил страницу удалял все ненужное if Pos('<meta name="', Memo1.Lines[i])>0 then Memo1.Lines.Delete(i); добавлял в мемо strings := Parse('name="', '"', Memo1.Lines.Text); if strings <> nil then begin Memo2.Lines.AddStrings(strings);; strings.Free; s := Memo2.Text; s:= StringReplace('site: "'+memo4.lines.Text[i]+'data="'+s,#13#10,'=&', [rfReplaceAll]); if Length(s)>0 then if s[Length(s)]='&' then s:= Copy(s, 1, Length(s)-1); Memo3.Text := s; Помогите буду очень признателен |
08.09.2016, 12:22 | #15 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Правильно иду?
Что с остальными двумя ссылками. Напиши их правильно |
08.09.2016, 12:55 | #16 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Да там форма входа
Параметры name="n" name="p" name="mem" |
08.09.2016, 13:29 | #17 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
По порядку.
1. Из трёх представленных ссылок, только одна рабочая. Это специально так? 2. Твоя функция парсинга универсальна для всех сайтов, которые будут в Memo? 3. Если функция универсальна, то скинь в файле html-код страницы, которую ты парсишь. Не могу до неё добраться xD |
08.09.2016, 14:01 | #18 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Код:
Как видишь пост параметры находятся в теге name=,но так же есть не подходящий нам тег name а мименно <meta name= Что я делал грузил код в мемо s:=idhttp1.Get(memo4.Lines[i]); Удалял не нужные нам параметры if Pos('<meta name="', Memo1.Lines[i])>0 then Memo1.Lines.Delete(i); а именно <meta name= и добавлял в мемо результат strings := Parse('name="', '"', Memo1.Lines.Text); if strings <> nil then begin Memo2.Lines.AddStrings(strings);; strings.Free; s := Memo2.Text; s:= StringReplace('site: "'+memo4.lines.Text[i]+'data="'+s,#13#10,'=&', [rfReplaceAll]); if Length(s)>0 then if s[Length(s)]='&' then s:= Copy(s, 1, Length(s)-1); Memo3.Text := s; Параметры у всех одинаковы |
08.09.2016, 14:15 | #19 |
Форумчанин
Регистрация: 16.01.2011
Сообщений: 288
|
Вернее параметр name= на всех сайтах одинаковый
|
08.09.2016, 14:41 | #20 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
делал исходя из сорца страницы
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выдать сообщение, если элемент не найден в БД | leobrn | Базы данных (ADO.NET, LinqToSql, ORM Entity Framework, NHibernate) | 1 | 18.12.2013 07:13 |
IdFTP1.Put если файл не найден ? | bymyny | Общие вопросы Delphi | 2 | 07.09.2010 13:11 |
Инициализация закрытия программы, если не был найден файл? | Vohakisa | Помощь студентам | 2 | 30.05.2010 10:23 |
RichEdit1 если текст найден надо чтоб он выделился в синий цвет | xGroupers | Общие вопросы Delphi | 7 | 30.03.2008 13:56 |