|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#13
27.12.2011, 20:22
|
|||
|
|||
Решение задачи следующее:
Использование TStringStream для решения проблем с кодировкой Код: Код:
var mStream: TStringStream; URL : string; begin mStream := TStringStream.Create; URL := Edit1.Text; idHttp1 := TIdHTTP.Create(nil); idHttp1.Get(URL, mStream); Memo1.Clear; Memo1.Text := mStream.DataString; // вариант1, кодировка charset=windows-1251 //или Memo1.Text := UTF8Decode (mStream.DataString); // вариант2, кодировка charset=UTF-8 end; 1. если кодировка charset=windows-1251, то нужно использовать вариант1 2. если кодировка charset=UTF-8, то вариант1 (Utf8ToAnsi или UTF8Decode) 3. для универсальности нужен дополнительный код: вначале читать в ХТМЛ коде тип кодировки и делать выбор с применением доп. обработки Если кому не лень, модифицируйте код в стиле обработки исключений, но без вывода сообщений |
Древовидный вид