1. Pascal / Говнокод #15658

    +133

    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
    procedure tproxythread.execute;
var
  doc: IHtmlDocument2;
  temp,parsed:string;
  v:olevariant;
  i:integer;
begin
  coinitialize(nil);
  try
    for i:=0 to links.count -1 do
    begin
      temp:=http.LoadContent(links[i]);
      Doc:=coHTMLDocument.Create as IHTMLDocument2;
      V:=VarArrayCreate([0,0], varVariant);
      V[0]:=temp;
      Doc.Write(PSafeArray(TVarData(v).VArray));
      reg.InputString:=doc.body.outerText;
      if reg.Exec then
      repeat
        parsed:= reg.Match [0];
        proxy.add(parsed);
      until not reg.ExecNext;
    end;
  finally
    couninitialize;
  end;
end;

    Вы все еще парсите webbrowser-ом? Тогда мы идем к вам!..

    Запостил: Stertor, 03 Апреля 2014

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

    • ava Stertor 04.04.2014 13:05 # −2

      Этот тред мне больше не нужен. Он может идти.
      Ответить

      • ava guest 04.04.2014 13:35 # −1

        http - это Webbrowser который на форме? А ничего что мы к нему из потока обращаемся?
        Ответить

        • ava Stertor 04.04.2014 13:36 # −1

          Webbrowser-а нет вообще. Используется модель IHTMLDocument2.
          Ответить

          • ava guest 04.04.2014 13:38 # 0

            Тогда в чем говно? Ах ну да, его же и заминусовали, значит не говно.
            Ответить

    • ava LXxhELT 25.08.2021 06:10 # 0

      - Но я уже большой, за мной не нужен круглосуточный уход. У тебя своя жизнь, у меня - своя...
      Ответить

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