idHTTP и кодировка

[gamer123]

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

[X11]

Попробуй этой функцией декодировать:

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[i];
      Dec(Len);
      if Len = 0 then
        Result := Result + UTF8ToStr(Digit);
    end else
    begin
      HByte := Ord(Value[i]);
      if HByte in [$00..$7f] then       //Standart ASCII chars
        Result := Result + Value[i]
      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[i];
          Continue;
        end;
        Dec(Len);
        Digit := Value[i];
      end;
    end;
  end;
end;

[ZuBy]

UTF8Decode, UTF8Encode

[gamer123]

Сообщение от ZuBy

UTF8Decode, UTF8Encode

это не помогает, пробовал. есть предположение, что инди качает страницу в кодировке iso8859-1, несмотря на то, что скачиваемая страница в ютф8

[X11]

gamer123, ты мою функцию пробовал?

[X11]

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

[Пепел Феникса]

Делфи с Юникодом?
скачивайте через TStringStream

[X11]

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;

[X11]

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

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

[HS_]

Почему бы было просто не использовать UTF8ToANSI ???