idHTTP и кодировка

Posted by bullvinkle under Пост-обзор

добрый вечер. в переменную типа стринг качается через идхттп гет запросом страница. страница в ютф8, после всего этого пытаюсь распарсить через pos (нужно найти фразу <liкакойтотекстнарусском<strong>) . соответственно, руские буквы кракозябрами, и пос их не ищет. пытался декодировать utf8toansi и наоборот – ничего не помогает. кракозябры меняются только

function UTF8ToStrSmart(Value: String): String;

      function UTF8ToStr(Value: String): String;
      var
        buffer: Pointer;
        BufLen: LongWord;
      begin
        BufLen := Length(Value) + 4;
        GetMem(buffer, BufLen);
        FillChar(buffer^, BufLen, 0);
        MultiByteToWideChar(CP_UTF8, 0, @Value[1], BufLen - 4, buffer, BufLen);
        Result := WideCharToString(buffer);
        FreeMem(buffer, BufLen);
      end;

var
  Digit: String;
  i: integer;
  HByte: Byte;
  Len: Byte;
begin
  Result := '';
  Len := 0;
  if Value = '' then Exit;
  for i := 1 to Length(Value) do
  begin
    if Len > 0 then
    begin
      Digit := Digit + Value;
      Dec(Len);
      if Len = 0 then
        Result := Result + UTF8ToStr(Digit);
    end else
    begin
      HByte := Ord(Value);
      if HByte in [$00..$7f] then       //Standart ASCII chars
        Result := Result + Value
      else begin
        //Get length of UTF-8 char
        if HByte and $FC = $FC then
          Len := 6
        else if HByte and $F8 = $F8 then
          Len := 5
        else if HByte and $F0 = $F0 then
          Len := 4
        else if HByte and $E0 = $E0 then
          Len := 3
        else if HByte and $C0 = $C0 then
          Len := 2
        else begin
          Result := Result + Value;
          Continue;
        end;
        Dec(Len);
        Digit := Value;
      end;
    end;
  end;
end;

Есть ещё 2 совета.
1. Брось инди и переходи на ICS.
2. Обнови инди до максимально последней версии.

Код:

function HttpGetUrl(url: string; idHttp: TidHttp): string;

var

M: TStringStream;

begin

M := TStringStream.Create('');

//  try

try

IdHTTP.Get(url, m);

if IdHTTP.ResponseCode = 502 then

begin

result := 'ошибка|'+url;

freeandnil(m);

exit;

end;

except

on e: exception do

begin

//          MessageBox(application.ActiveFormHandle, PAnsiChar('Произошла ошибка при получении текста страницы: '+#13+ url + #13+e.Message), 'Ошибка', IDOK);

result := 'ошибка|'+url;

freeandnil(m);

end;

end;

result := m.DataString;

//  finally

freeandnil(m);

//  end;

end;

итого полный код будет:
Код:

//получаем тест страницы со ссылками на объявления
slText := UTF8ToStrSmart(HttpGetUrl(URL, idHttp1));


Тема на форуме.

Похожие статьи

• Получить интернет страницу с кодировкой cp1251 в delphi 2010
• Проверка занятости логина на странице с помощью indy
• Авторизация на mail.ru с помощью indy
• Прием данных/отсылка в поток Indy10
• Авторизация “В контакте”
• Пример авторизации на WordPress
• Создание почтового клиента в Delphi 7
• Получить страницу из интернета и перекодировать её в cp1251
• Сохранение файла из интернета
• Скачать файл с помощью indy и отобразить процесс скачивания на progressbar