[FromKG]

При парсинге локальных файлов пользую это:

Код:

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.
Что делать с он-лайн сайтами?