Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2020, 08:46   #1
tatarnikov
Новичок
Джуниор
 
Регистрация: 02.07.2013
Сообщений: 1
По умолчанию Парсинг с parser.pas

Решил сделать парсер сайта.
На github.com нашел пример на HTML-Parser.
Вот мой код

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  DomTree: TDomTree;
  a: TNodeList;
  b: tstringlist;
  HtmlTxt: string;
begin
  NetHTTPClient1.CustomHeaders['User-Agent'] := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/81.0.4044.96 YaBrowser/20.4.0.1461 Yowser/2.5 Safari/537.36';
  HtmlTxt := NetHTTPClient1.Get('https://zaycev.net/').ContentAsString();
  a := TNodeList.Create;
  b := TStringList.Create;
  DomTree := TDomTree.Create();
  DomTree.RootNode.RunParse(HtmlTxt);
  if DomTree.RootNode.FindXPath('//div[@class="musicset-track-list__items"]/div[4]/div[1]/div[2]/div[1]/a', a, b) then
  begin
    // Memo1.Text :=  Результат
  end
end;
Подскажите пожалуйста как получить результат.
tatarnikov вне форума Ответить с цитированием
Старый 22.05.2020, 11:54   #2
mephistopheies
 
Регистрация: 08.05.2008
Сообщений: 7
По умолчанию

Читайте документацию на гитхабе, где скачали. Надо быть экстрасенсом 80-го левела, чтобы понять что за класс TDomTree.
mephistopheies вне форума Ответить с цитированием
Старый 27.05.2020, 11:14   #3
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

это вы открываете страницу https://zaycev.net/ и пытаетесь в её html-коде найти строку //div[@class="musicset-track-list__items"]/div[4]/div[1]/div[2]/div[1]/a ?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
HTML Parser Lindemann66 Общие вопросы C/C++ 16 01.08.2011 16:40
php2xls com parser crazy horse PHP 0 08.10.2009 09:02
XML Parser Aynas Общие вопросы Delphi 3 09.08.2008 22:05