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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 03.02.2008, 08:14   #11
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Подключи компонент с куками от Indy к своему IdHttp
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 03.02.2008, 16:15   #12
Denager
Москоу
Форумчанин
 
Регистрация: 29.01.2008
Сообщений: 138
По умолчанию

Подключил, спасибо, работает
Denager вне форума Ответить с цитированием
Старый 03.02.2008, 16:19   #13
Denager
Москоу
Форумчанин
 
Регистрация: 29.01.2008
Сообщений: 138
По умолчанию

+ небольшое отступление, намучился с парсингом и запутался.
В memo1.lines.text лежит вот такой текст
Цитата:
<input type="hidden" name="codsid" value="ZlQoGvQGUNmu8Euq51knYjC9SfF5 QzGP">
<input type="hidden" name="id" value="463845">
<input type="hidden" name="email" value="mail@mail.ru">
<input type="hidden" name="nickname" value="Vasya">
<input type="hidden" name="modified" value="1201871147">
<input type="hidden" name="ip" value="91.122.*.*">
<input type="hidden" name="ua" value="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)">
Как вытащить все значения value из мемо? При том, что они могут меняться и быть разно длины (сами значения)
Denager вне форума Ответить с цитированием
Старый 03.02.2008, 19:44   #14
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Код:
var s:string;
begin
s:=memo1.Text;
while pos('value="',s)>0 do
  begin
    listbox1.Items.Add(copy(s,pos('value="',s)+7,pos('">',s)-(pos('value="',s)+7)));
    s:=copy(s,pos('value="',s),length(s)-pos('value="',s)+1);
    s:=copy(s,pos('<input type="',s),length(s)-pos('">',s));
  end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WebBrowser POST micq Компоненты Delphi 5 19.09.2008 21:37
Пример исходник распознавания каптчи WebSQLNeeder Свободное общение 8 01.07.2008 12:35
post запрос Editor Работа с сетью в Delphi 4 20.04.2008 14:01
POST Stanislav Работа с сетью в Delphi 3 03.03.2008 18:05
HTTPS и POST Alex_C Работа с сетью в Delphi 4 25.10.2007 21:04