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

    • ava DOKTOP_CMErMA 27.04.2023 23:52 # 0

      ой блять, соряньте. Не туда закинул.
      Ответить

    • ava AnimeGovno 29.04.2023 21:26 # −3

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

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

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