[ApxaHGe1]

Народ, помогите плиз получить сообщения из чата http://tophope.ru/chat/

получить могу, но только последнее и свое, как получать все сообщения от всех пользователей

Отправка происходит так

Код:

1 2 3 4 5 6 7 8 9 10 11

POST2:=TStringStream.Create(''); POST2.WriteString('sidebar=0'); POST2.WriteString('&lastrefresh=123631'); POST2.WriteString('&_xfRequestUri=/chat/'); POST2.WriteString('&_xfNoRedirect=1'); POST2.WriteString('&_xfToken='+xfToken); POST2.WriteString('&_xfResponseType=json'); HTTP.Document.LoadFromStream(POST2); HTTP.HTTPMethod('POST','http://tophope.ru/taigachat/list.json'); HTTP.Document.SaveToStream(Answer); Form1.Memo2.Text:=Utf8ToAnsi(Answer.DataString);

в конце страницы можно распарсить сообщение, последнее, но только свое....

[ApxaHGe1]

Получаю код страницы... с текстовыми сообщениями из чата

Код:

1

<span class='DateTime muted'><abbr class=\"DateTime\" data-time=\"1452677957\" data-diff=\"20962\" data-datestring=\"\u044f\u043d\u0432 13, 2016\" data-timestring=\"12:39\">\u044f\u043d\u0432 13, 2016 \u0432 12:39<\/abbr> - <\/span> <span class=\" \"> <a title=\"aHaJIuTuK\" href=\"members\/ahajiutuk.44416\/\" class=\"dark_chat taigachat_msg_user\" itemprop=\"name\"><span class=\"username\"><span class=\"style56\">aHaJIuTuK<\/span><\/span><\/a>: <div class='taigachat_messagetext ugc'>otpravka iz D7<\/div> <\/span> <\/li> <li id=\"taigachat_message_123641\" data-userid=\"30326\" data-messageid=\"123641\" class=\"taigachat_msg_to\"> <a href=\"members\/azktorin.30326\/\" class=\"avatar Av30326s _plainImage taigachat_avatar\" data-avatarhtml=\"true\"><img src=\"data\/avatars\/s\/30\/30326.jpg?1440279386\" width=\"48\" height=\"48\" alt=\"azktorin\" \/><\/a> <span class='DateTime muted'><abbr class=\"DateTime\" data-time=\"1452683142\" data-diff=\"15777\" data-datestring=\"\u044f\u043d\u0432 13, 2016\" data-timestring=\"14:05\">\u044f\u043d\u0432 13, 2016 \u0432 14:05<\/abbr> - <\/span> <span class=\" \"> <a title=\"azktorin\" href=\"members\/azktorin.30326\/\" class=\"dark_chat taigachat_msg_user\" itemprop=\"name\"><span class=\"username\"><span class=\"style66\">azktorin<\/span><\/span><\/a>: <div class='taigachat_messagetext ugc'>&gt;&gt; aHaJIuTuK: \u043a\u0442\u043e \u0442\u043e \u0432 \u0434\u0435\u043b\u0444\u0438 \u043f\u0440\u0438\u043a\u0430\u043b\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0445\u0414)<\/div> <\/span> <\/li> <li id=\"taigachat_message_123642\" data-userid=\"30326\" data-messageid=\"123642\" class=\"\"> <a href=\"members\/azktorin.30326\/\" class=\"avatar Av30326s _plainImage taigachat_avatar\" data-avatarhtml=\"true\"><img src=\"data\/avatars\/s\/30\/30326.jpg?1440279386\" width=\"48\" height=\"48\" alt=\"azktorin\" \/><\/a> <span class='DateTime muted'><abbr class=\"DateTime\" data-time=\"1452683868\" data-diff=\"15051\" data-datestring=\"\u044f\u043d\u0432 13, 2016\" data-timestring=\"14:17\">\u044f\u043d\u0432 13, 2016 \u0432 14:17<\/abbr> - <\/span> <span class=\" \"> <a title=\"azktorin\" href=\"members\/azktorin.30326\/\" class=\"dark_chat taigachat_msg_user\" itemprop=\"name\"><span class=\"username\"><span class=\"style66\">azktorin<\/span><\/span><\/a>: <div class='taigachat_messagetext ugc'><img src=\"http:\/\/s017.radikal.ru\/i437\/1601\/2a\/5230a91e4032.png\" class=\"bbCodeImage LbImage\" alt=\"[&#x200B;IMG]\" data-url=\"http:\/\/s017.radikal.ru\/i437\/1601\/2a\/5230a91e4032.png\" \/><\/div> <\/span> <\/li> <li id=\"taigachat_message_123643\" data-userid=\"30326\" data-messageid=\"123643\" class=\"\"> <a href=\"members\/azktorin.30326\/\" class=\"avatar Av30326s _plainImage taigachat_avatar\" data-avatarhtml=\"true\"><img src=\"data\/avatars\/s\/30\/30326.jpg?1440279386\" width=\"48\" height=\"48\" alt=\"azktorin\" \/><\/a> <span class='DateTime muted'><abbr class=\"DateTime\" data-time=\"1452683882\" data-diff=\"15037\" data-datestring=\"\u044f\u043d\u0432 13, 2016\" data-timestring=\"14:18\">\u044f\u043d\u0432 13, 2016 \u0432 14:18<\/abbr> - <\/span> <span class=\" \"> <a title=\"azktorin\" href=\"members\/azktorin.30326\/\" class=\"dark_chat taigachat_msg_user\" itemprop=\"name\"><span class=\"username\"><span class=\"style66\">azktorin<\/span><\/span><\/a>: <div class='taigachat_messagetext ugc'>\u0443\u0440\u043e\u043a \u0431\u0443\u0434\u0435\u0442 \u043f\u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044e <img src=\"http:\/\/tophope.ru\/styles\/default\/xenforo\/smilies\/smile.png\"

как выдернуть текст по всему документу из тегов ?
<div class='taigachat_messagetext ugc'> ТУТ ТЕКСТ <\/div>

[Alegun]

Не работает парсинг, поскольку результат:

0:
Не показывать: <div class='taigachat_messagetext ugc'>

Вывести результат: otpravka iz D7

Не показывать: <\/div>

1:
Не показывать: <div class='taigachat_messagetext ugc'>

Вывести результат: &gt;&gt; aHaJIuTuK: \u043a\u0442\u043e \u0442\u043e \u0432
\u0434\u0435\u043b\u0444\u0438 \u043f
\u0440\u0438\u043a\u0430\u043b\u044b
\u0432\u0430\u0435\u0442\u0441\u044f \u0445\u0414)

Не показывать: <\/div>

2:
Не показывать: <div class='taigachat_messagetext ugc'>

Вывести результат: <img src=\"http:\/\/s017.radikal.ru\/i437\/1601\/2a\/5230a91e4032.png\"
class=\"bbCodeImage LbImage\" alt=\"[&#x200B;IMG]\" data-
url=\"http:\/\/s017.radikal.ru\/i437\/1601\/2a
\/5230a91e4032.png\" \/>

Не показывать: <\/div>

3:
Не показывать: <div class='taigachat_messagetext ugc'>

Вывести результат: \u0443\u0440\u043e\u043a
\u0431\u0443\u0434\u0435\u0442 \u043f\u043e
\u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044e <img
src=\"http:\/\/tophope.ru\/styles\/default\/xenforo\/smilies
\/smile.png\"

... здесь завис в сборке, нету закрывающего тега

З.Ы. Вот функция из drkb, с её помощью (почти) создан этот отчёт

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Procedure IsolateText( Const S: String; Tag1, Tag2: String; list:TStrings ); Var    pScan, pEnd, pTag1, pTag2: PChar;    foundText: String;    searchtext: String; Begin    { Set up pointers we need for the search. HTML is not case sensitive, so      we need to perform the search on a uppercased copy of S.}    searchtext := Uppercase(S);    Tag1:= Uppercase( Tag1 );    Tag2:= Uppercase( Tag2 );    pTag1:= PChar(Tag1);    pTag2:= PChar(Tag2);    pScan:= PChar(searchtext);    Repeat      { Search for next occurence of Tag1. }      pScan:= StrPos( pScan, pTag1 );      If pScan <> Nil Then Begin        { Found one, hop over it, then search from that position          forward for the next occurence of Tag2. }        Inc(pScan, Length( Tag1 ));        pEnd := StrPos( pScan, pTag2 );        If pEnd <> Nil Then Begin          { Found start and end tag, isolate text between,            add it to the list. We need to get the text from            the original S, however, since we want the un-uppercased            version! So we calculate the address pScan would hold if            the search had been performed on S instead of searchtext. }         SetString( foundText,                     Pchar(S) + (pScan- PChar(searchtext) ),                     pEnd - pScan );          list.Add( foundText );          { Continue next search after the found end tag. }          pScan := pEnd + Length(tag2);        End { If }        Else { Error, no end tag found for start tag, abort. }          pScan := Nil;      End; { If }    Until pScan = Nil; End;

[ApxaHGe1]

Вообщем сделал то что хотел, все получается, все работает

есть одно но, в чат кидают картинки.... и ставят смайлы, и их я получаю, как

<img src=\"http:\/\/tophope.ru\/styles\/default\/xenforo\/smilies\/smile.png\" class=\"mceSmilie\" alt=\"=)\" title=\"smile.png =)\" \/>

как можно это конвертировать хотя бы в читабельную ссылку ?

[lmikle]

убери бэк-слеши (\) и вытащи значение аттрибута src. Вот тебе будет ссылка.