Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> IdHTTP проблема с получением кириллицы 
:(
    Опции темы
dredei
  Дата 28.12.2011, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.9.2009

Репутация: нет
Всего: нет



Получаю исходный код с помощью IdHTTP.Get, но кириллица выглядит так "Ïàíåëü óïðàâëåíèÿ".
Как лечить? smile
PM MAIL   Вверх
Mifody
Дата 28.12.2011, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2



1. посмотреть в какой кодировке приходит страница
2. попробовать UTF8ToAnsii
3. попробовать другие конвертеры кодировки
PM MAIL WWW   Вверх
dredei
Дата 28.12.2011, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.9.2009

Репутация: нет
Всего: нет



Цитата(Mifody @ 28.12.2011,  15:30)
1. посмотреть в какой кодировке приходит страница
2. попробовать UTF8ToAnsii
3. попробовать другие конвертеры кодировки

1. Лиса говорит, что cp1251.
2. Пробовал, толку ноль (ибо cp1251).
3. Какие?
PM MAIL   Вверх
Mifody
Дата 29.12.2011, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: 2
Всего: 2



ссылочку на сайт можно?
PM MAIL WWW   Вверх
Akella
Дата 30.12.2011, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329



Цитата(dredei @  28.12.2011,  15:44 Найти цитируемый пост)
1. Лиса говорит, что cp1251.


а на самом деле?
PM MAIL   Вверх
dredei
Дата 30.12.2011, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.9.2009

Репутация: нет
Всего: нет



В общем, решил проблему. Исходный код получал так:
Код

Memo.Lines.Append(IdHTTP1.Get(Url));

ща получаю вот так:
Код

T:=TStringlist.Create;
M:=TMemoryStream.Create;
IdHTTP.Get(url,M);
M.Seek(0, soFromBeginning);
T.LoadFromStream(M);

и все нормально.
П.С. Сорри за беспокойство.
PM MAIL   Вверх
prot0type
  Дата 8.1.2012, 03:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.12.2011

Репутация: нет
Всего: нет



кому нужно юзайте мой универсальный код

для тех у кого проблема с кодировкой в IdHTTP

и раздавайте этот код другим чтобы не парили мозги

Код

var
dump:TStream;
dump_txt:TStringList;
get_txt,get_url:string;

///////////////////////////////////////
    dump_txt:=TStringList.Create;
    dump:=TMemoryStream.Create;

      get_url:='http://google.ru/';
      if Pos('http://',get_url)<>1 then
      begin
        get_url:='http://'+get_url;
      end;

    try
      IdHTTP1.Get(get_url,dump);
    except
      ShowMessage('Сервер не отвечает, может отключен интернет? Перезапустите программу.');
      close;
      exit;
    end;

    dump.Seek(0, soFromBeginning);

    dump_txt.LoadFromStream(dump);
    dump.Free;

    if Pos('1251',IdHTTP1.Response.ContentType)<>0 then
    begin
      get_txt:=dump_txt.Text;
    end
    else
    begin

        if Pos('charset=windows-1251',dump_txt.Text)<>0 then
        begin
          get_txt:=dump_txt.Text;
        end
        else
        begin
          get_txt:=Utf8ToAnsi(dump_txt.Text);
        end;

    end;

    dump_txt.Free;

Memo1.text:=get_txt;
///////////////////////////////////////



Это сообщение отредактировал(а) prot0type - 8.1.2012, 03:20
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0779 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.