VPF::Обработать ответ от сервера [POST]

Sice

Дата 26.1.2011, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Радио Онлайн

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2007

Репутация: нет
Всего: 0

Помогите пожалуйста обработать запрос от сервера.
Вот код, который отсылает данные на сервер методом POST

Код


procedure TForm1.Button1Click(Sender: TObject);
begin

 data:=tstringlist.create;
 data.Add('get=5');
 data.Add('method=game');
 data.Add('user='+Edit1.Text);
 data.Add('key='+Edit2.Text);
 IdHTTP1.HandleRedirects:=true;
 PageProfile:=IdHTTP1.Post('http://site/game.php?', data);
 Data.Free;
 Memo1.Text:=PageProfile;

 end;

Приходит ответ и мне нужно из него извлечь значения тегов <money>значение</money> и вывести их в отдельный label.
Посмотрел функцию Pos, но так и не разобрался, как достать значение между тегами <money></money>

Заранее большое спасибо.

Poseidon

Дата 26.1.2011, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Ну самый простой (и возможно не самый лучший) вариант, это:

Код


Label1.Caption:= copy(PageProfile, pos('<money>',PageProfile)+7, pos('</money>',PageProfile)-pos('<money>',PageProfile)-7)

Это что бы разобраться, и работать будет правильно есть тег встречается только раз. Хотя, возможно, правильнее будет использовать регулярки или еще какие средства работы с текстом. Все от задачи зависит.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sice

Дата 26.1.2011, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Радио Онлайн

Профиль
Группа: Участник
Сообщений: 62
Регистрация: 4.12.2007

Репутация: нет
Всего: 0

Цитата(Poseidon @ 26.1.2011, 14:16)

Ну самый простой (и возможно не самый лучший) вариант, это:

Код


Label1.Caption:= copy(PageProfile, pos('<money>',PageProfile)+7, pos('</money>',PageProfile)-pos('<money>',PageProfile)-7)

Работает

спасибо вам большое милый человек smile

morpheyushka

Дата 2.2.2011, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

А XMLDocument...там же явно xml в ответе пришел.

Код


XMLDocument.XML.Text := IdHTTP1.Post('http://site/game.php?', data);
XMLDocument.Active := True;
Memo1.Text := XMLDocument.DocumentElement.ChildNodes['money'].Text;
XMLDocument.Active := False;

Это если тег <money> дочерний тег главного.

Это сообщение отредактировал(а) morpheyushka - 2.2.2011, 13:46

--------------------

Спасибо делается вот так!!!

Poseidon

Дата 2.2.2011, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(morpheyushka @ 2.2.2011, 13:38

)

там же явно xml в ответе пришел

В ответе явно пришел html. А вот то, что xml, далеко не явно. smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »