Кодировка idHTTP.Get()

[X11]

Скорее всего, что где-то встречается вместе с юникодными иерогливами и русские буквы, как это у меня было однажды. Т.е. после удаления из юникодного текста всей кириллицы я смог выполнить Utf8ToAnsi

[X11]

Как я и предполагал. Нужно удалить вначале Яндекс.Директ, а потом можно и преобразовывать текст с помощью Utf8ToAnsi

[X11]

Теперь вопрос ещё. Как удалить из юникодного текста весь такой мусор, типа Яндекс.Директ? А то Utf8ToAnsi тупит и не хочет конвертировать текст

[business-net]

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

business-net, ты обновлял их SVN или установил из tiburon.zip?

ага, обновлял через менеджер SVN,

вариант

procedure TForm1.Button1Click(Sender: TObject);
var M:TStringStream;
begin
M:=TStringStream.Create('');
idHTTP1.Get('http:\\programmersforu m.ru',M);
Memo1.Lines.Text:=M.DataString;
M.Free;
end;


у меня нормально заработал на delphi7 и последняя инди.

только там где юникод прийдется сначало пообрезать все лишнее кроме текста.

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

мой вам совет если надо выделять русский текст то вырезайте его из HTML и потом конвертируйте.

ЗЫ: X11, боюсь минус получишь...за 4 поста подряд.

[X11]

Вот нормальная функция декодирования юникода utf8 в ANSI

{Convert string from UTF-8 format into ASCII}
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;
{Convert string from UTF-8 format mixed with standart ASCII symbols($00..$7f)}
function UTF8ToStrSmart(Value: String): String;
var
  Digit: String;


//длина текста зависит от переменной i
//если не хватает integer, то объявляйте, как int64
  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;

Использование

procedure TForm6.Button2Click(Sender: TObject);
var M:TStringStream;
begin
   Button2.Caption := 'Работаю';
   M := TStringStream.Create('');
   Memo1.Lines.Clear;
   IdHTTP1.Get(Edit2.Text, m);
   Memo1.lines.Text := UTF8ToStrSmart(m.DataString);
   M.Free;
   Button2.Caption := 'готово';
end;