Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2009, 00:57   #1
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию Delphi 2009 не видит русский текст?оО

Вот отрывок из memo1 после http1.Get('http://vkontakte.ru/index.php'):

Код:
<div class='tour' onmouseover="this.style.backgroundColor='#FCFBF5'" onmouseout="this.style.backgroundColor='#F9F6E7'">
<b>Ýêñêóðñèÿ ïî ñàéòó</b><div>Î òîì, ÷òî Âàñ æäåò ïîñëå ðåãèñòðàöèè</div></div></a>
</div>
TwiX вне форума Ответить с цитированием
Старый 09.08.2009, 01:03   #2
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

У меня нормально кажет...

Вот если "копипастить" в блокнот, то да..... Это с кодировками там фигня какая-то...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 09.08.2009, 01:10   #3
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Попробуйте пожалуйста memo1.text := http1.Get('http://vkontakte.ru/index.php');

Может это из-за того, что семёрка стоит?
TwiX вне форума Ответить с цитированием
Старый 09.08.2009, 01:38   #4
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
Лампочка

Так и делал:
Код:
Memo1.Text:=IdHTTP1.Get('http://vkontakte.ru/index.php');
Попробуйте исправить функциями для изменения кодировок: > Кодировки - сообщение отдельно <

Или вот ещё способ: > Кодировки Delphi 2009 - сообщение отдельно <

Ещё можно попробовать с "Memo1.Font.Charset" поколдовать...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 10.08.2009, 08:28   #5
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Не используйте string для получения HTTP данных.
Используйте потоки ввода/вывода.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 15.08.2009, 19:17   #6
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

^Stream? А можно их использовать без создания отдельного файла?
TwiX вне форума Ответить с цитированием
Старый 15.08.2009, 19:40   #7
Mixasik
New Delphi Coder
Форумчанин Подтвердите свой е-майл
 
Аватар для Mixasik
 
Регистрация: 20.07.2008
Сообщений: 874
По умолчанию

Цитата:
Сообщение от TwiX Посмотреть сообщение
^Stream? А можно их использовать без создания отдельного файла?
Да, существует еще так называемые потоки памяти.
Код:
var stream : TMemoryStream;
begin
stream := TMemorystream.Create;
idhttp1.Get('http://mail.ru/',stream);
stream.Position := 0;
memo1.Lines.LoadFromStream(stream);
end;
Страх это слабость и потому, кто испугался уже побежден.
Mixasik вне форума Ответить с цитированием
Старый 15.08.2009, 19:57   #8
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Спасибо большое.
У меня не получалось, потому что не использовал stream.Position := 0 ...
TwiX вне форума Ответить с цитированием
Старый 15.08.2009, 20:52   #9
s.Creator
Форумчанин
 
Регистрация: 28.09.2008
Сообщений: 344
По умолчанию

Цитата:
Сообщение от TwiX Посмотреть сообщение
Попробуйте пожалуйста memo1.text := http1.Get('http://vkontakte.ru/index.php');

Может это из-за того, что семёрка стоит?
Разные страницы интернета могут быть в разных кодировках.
Если просмотреть исходный код страницы ( HTML со всеми тегами ) то обычно в заголовке можно увидеть тег где описана кодировка страницы
( например на этой странице
Код:
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
А memo1.text в D2009 в Юникоде - надо перекодировать
(может помочь Stream )
Похоже опоздал
s.Creator вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Русский текст в теле письма sapogan Общие вопросы Delphi 8 30.07.2009 22:56
заменить Delete record на русский текст PashaVolk БД в Delphi 2 01.06.2009 19:03
TD не распознает русский текст Natalia-xxx- Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 05.03.2009 15:22
Русский текст в виде ??? ? ?? ????? www3 PHP 5 15.05.2008 14:30
Как вывести из текстового файла на экран русский текст? Mischa Помощь студентам 8 12.03.2008 06:23