|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Парсинг он-лайн страниц
При парсинге локальных файлов пользую это:
Код:
procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; obj:TObject; HTMLTag:THTMLTag; begin if not OpenDialog1.Execute then Exit; if HTMLParser = nil then HTMLParser:=THTMLParser.Create; HTMLParser.OnHTMLParseError := OnHTMLParseError; HTMLParser.Memory.LoadFromFile(OpenDialog1.FileName); HTMLParser.Execute; for i:= 1 to HTMLParser.parsed.count do begin obj:=HTMLParser.parsed[i-1]; begin HTMLTag:=THTMLTag(obj); s:='ТЕГ: <'+HTMLTag.Name; end; end; end; Как видите процедура использует OpenDialog. Что делать с он-лайн сайтами? |
#2
|
||||
|
||||
сохранять во временную папку и так же как и с локальными
В.Бендер |