Получение содержимого тега <title>

[AndrzejX]

ЗДравствуйте, уважаемые!
Итак, написал программу, которая ищет на страницах сайта внутренние ссылки на предмет создания Sitemap. ДЛя дополнительного функционала для страницы получаю содержимое <title></title>. Всё работает:

Page:=idHTTP1.Get('адрес_страницы']);

function Title(Page: String): String;
var N1, N2: Integer;
  Flags: TReplaceFlags;
begin
N1:=pos('<title>', LowerCase(Page));
N2:=pos('</title>', LowerCase(Page));
Result:=trim(copy(Page, N1+7, N2-N1-7));
end;

Пробую на google. Пример: страница http://www.google.ru/intl/ru/options/ выводит "Продукты Google". В браузере же это значит: "Продукты Google". Читал про кодировки, но не нашёл нужного способа перекодировать. Как быть?

[Alter]

Это кодировка UTF-8. Используйте

function Utf8Decode(const S: UTF8String): WideString;

Вот самописные функции, думаю полезно будет:

function FindTagTextParam(Txt, Tg1, Tg2: string; var CurPos: Integer;
  IncludeTag: Boolean; StartPozition: Integer): string;
var a, b, L :Integer;
    S :string;
    Buf :string;
    CorA,CorB :Integer; //коррекция копирования
begin // поиск первого включения тегов, с позиции StartPozition
 Result := '';
  if Trim(Txt) = '' then Exit;
 CurPos := StartPozition;
 Buf := AnsiUpperCase(Txt);
 a := PosEx(AnsiUpperCase(Tg1), Buf, StartPozition);
 a := a + Length(Tg1);
 b := PosEx(AnsiUpperCase(Tg2), Buf, a);
 L := b - a;
  // коэффициенты коррекции строки
 CorA := Length(Tg1);
 CorB := Length(Tg2) + Length(Tg1);
  // добавить ячейку
 if IncludeTag then
 begin // вместе с тегами поиска
  S := Copy(Txt, a - CorA, L + CorB);
  If Pos(Tg1, S) = 1 then
   Result := S;
  CurPos := b + Length(Tg2);
 end
  else
 begin // занчение между тегами
  Result := Copy(Txt, a, L);
  CurPos := b + Length(Tg2);
 end;
end;

function FindTagTextParam(Txt, Tg1, Tg2: string;
  IncludeTag: Boolean): string;
const
 StartPos :Integer = 1; //начало поиска тегов
var a, b, L :Integer;
    S :string;
    Buf :string;
    CorA,CorB :Integer; //коррекция копирования
begin // поиск первого включения тегов
  Result := '';
 if Trim(Txt) = '' then Exit;
 Buf := AnsiUpperCase(Txt);
 a := PosEx(AnsiUpperCase(Tg1), Buf, StartPos);
 a := a + Length(Tg1);
 b := PosEx(AnsiUpperCase(Tg2), Buf, a);
 L := b - a;
  // коэффициенты коррекции строки
 CorA := Length(Tg1);
 CorB := Length(Tg2) + Length(Tg1);
  // добавить ячейку
 if IncludeTag then
 begin // вместе с тегами поиска
  S := Copy(Txt, a - CorA, L + CorB);
  If Pos(Tg1, S) = 1 then
   Result := S;
 end
  else
 begin // занчение между тегами
  Result := Copy(Txt, a, L);
 end;
end;

Получит содержимое тега, без самих тегов:

Result := FindTagTextParam(Txt, '<title>', '</title>', False);

[AndrzejX]

Спасибо, сейчас буду пробовать!!!
Да, в случае google (и там, где используется utf8) всё отлично! А на моём собственном сайте получаются пустые строки. Как понять, что используется utf и нужно применять декодирование?
Пока решил использовать такой вариант:

if ((Result<>'')and(Utf8Decode(Result)<>''))
  then Result:=Utf8Decode(Result);