VPF::IdHTTP проблема с получением кириллицы

dredei

Дата 28.12.2011, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Получаю исходный код с помощью IdHTTP.Get, но кириллица выглядит так "Ïàíåëü óïðàâëåíèÿ".
Как лечить? smile

Mifody

Дата 28.12.2011, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

1. посмотреть в какой кодировке приходит страница
2. попробовать UTF8ToAnsii
3. попробовать другие конвертеры кодировки

dredei

Дата 28.12.2011, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(Mifody @ 28.12.2011, 15:30)

1. Лиса говорит, что cp1251.
2. Пробовал, толку ноль (ибо cp1251).
3. Какие?

Mifody

Дата 29.12.2011, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

ссылочку на сайт можно?

Akella

Дата 30.12.2011, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

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

Цитата(dredei @ 28.12.2011, 15:44

)

1. Лиса говорит, что cp1251.

а на самом деле?

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);

и все нормально.
П.С. Сорри за беспокойство.

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

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