1. Куча / Говнокод #28775

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    procedure TMonThread.FillCommentList;
    var
      HTTP:TIdHTTP;
      URI:TIdURI;
      S, Temp, Link, LastCm:string;
      I, J:Integer;
      Comm:TGComment;
      Post:TGpost;
      LinkList:TstringList;
      CommList:TStringList;
    begin
      LinkList:=TStringList.Create;
      CommList:=TStringList.Create;
      HTTP:=TIdHTTP.Create(nil);
      URI:=TIdURI.Create();
      try
        Temp:='';
        LinkList.Sorted:=True;
        LinkList.Duplicates:=DupIgnore;
        HTTP.UserAgent:=uaRandom;
        URI.Host:='govnokod.ru';
        HTTP.Request.Host:='govnokod.ru';
        HTTP.CookieManager.AddServerCookie('auth=a7dbe7abed9025a9a13ea15baa89a08f',URI); 
        Temp:=HTTP.LoadContent('http://govnokod.ru/comments');
        Temp:=StringReplace(Temp,#13#10,'',[rfreplaceall]);
        Temp:=StringReplace(Temp,#13,'',[rfreplaceall]);
        Temp:=StringReplace(Temp,#10,'',[rfreplaceall]);
        ParseAll('<li class="hentry">',Temp,'<div class="show-code">', LinkList);
        for J:=0 to LinkList.Count-1 do
        begin
          if FCanceled then Exit;
          Link:=ParseStr('<h2>Комментарий к <a rel="bookmark" class="entry-title" href="',LinkList[J],'"');
          HTTP.ConnectTimeout:=60000;
          HTTP.ReadTimeout:=60000;
          Temp:='';
          Temp:=HTTP.LoadContent(Link);
          if HTTP.ContentSize>2000000 then Continue;
          if HTTP.ResponseCode <> 200 then Continue;
          if Pos('halted by an exception', Temp)>0 then Exit;
    
          Post:=TGPost.Create;
          LastCm:=Trim(ParseStr('name="comment', LinkList[J],'"'));
          Post.LastCommentId:=StrToInt(LastCm);
          S:=ParseStr('<a rel="bookmark" class="entry-title" href="http://govnokod.ru/', Temp,'"');
          Post.Number:=StrToInt(S);
          Post.Link:='http://govnokod.ru/'+S+'/';
          S:=ParseStr('<p class="author">',Temp,'</p>');
          S:=ParseStr('</a> <a href="http://govnokod.ru/user/',S,'</');
          Post.Author:=StrAfter('>',S);
          FPosts.Add(Post);
          CommList.Clear;
          ParseAll('<div id="comment-',Temp, '</li>', CommList);
          for I:=0 to CommList.Count-1 do
          begin
            if FCanceled then Exit;
            Comm:=TGComment.Create;
            Comm.Author:=ParseStr('<strong class="entry-author"><a href="http://govnokod.ru/user/',CommList[I],'</strong>');
            Comm.Author:=ParseStr('">', Comm.Author,'<');
            Comm.Text:=ParseStr('<span class="comment-text">',CommList[I],'</span></div>');
            Comm.Text:=DecorateText(Comm.Text);
            //comment is hidded?
            Comm.Hidden:=Pos('<span class="hidden-text">',CommList[I])>0;
            // parse and calculate rating values.
            Temp:=ParseStr('<span class="comment-vote">', CommList[I],'</span>');
            //on count
            S:=Trim(StrAfter('title="',Temp));
            S:=Trim(StrBefore(' ',S));
            Comm.OnCount:=StrToInt(S);
            //against count
            S:=Trim(StrAfter('и ',Temp));
            S:=Trim(StrBefore(' ',S));
            Comm.AgainstCount:=StrToInt(S);
            Comm.Rating:=Comm.OnCount-Comm.AgainstCount;
            S:=ParseStr('class="comment-vote-against" href="http://govnokod.ru/ratings/comment/',Temp,'/');
            S:=Format('http://govnokod.ru/ratings/comment/%s/against',[S]);
            Comm.AgainstLink:=S;
            S:=ParseStr('<a class="answer" href="http://govnokod.ru/comments/', CommList[I],'"');
            S:='http://govnokod.ru/comments/'+S;
            Comm.AnswerLink:=S;
            LastCM:=IntToStr(Post.LastCommentId);
            Comm.Last:=Pos(LastCm, Comm.AnswerLink)>0;
            Post.Comments.AddObject(Comm.Text, Comm);
          end;
        end;
      finally
        CommList.Free;
        LinkList.Free;
        HTTP.Free;
        URI.Free;
      end;
    end;

    (Флудоминусатор) Подгрузка и обработка комментариев из стока.

    Запостил: DOKTOP_CMErMA, 27 Апреля 2023

    Комментарии (3) RSS

    • ой блять, соряньте. Не туда закинул.
      Ответить
    • Вроде, парень с мозгами, только смысл, если ты ими не пользуешься!
      В Мск такого с руками оторвут.

      Подайся в мск и не майся хуйнёй!
      Ответить

    Добавить комментарий