Модераторы: MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TWebBrowser русская кодировка. 
V
    Опции темы
Ak47black
Дата 3.9.2007, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
У меня чтото в коде еше не правильно.
Потому что сделал тестовый проект и используя 
Код

ChatBrowser.Navigate('about:<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><title>Hello</title></head><body></body></html>');

Русские буквы видны.

Добавлено через 25 секунд
Спасибо все за ваши посты.
PM MAIL   Вверх
Ak47black
Дата 3.9.2007, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
Народ тут не изза html кодировки, тут изза Delphi кодировки чтото.
Если не верите сделайте такой код 
Код

procedure TForm1.FormCreate(Sender: TObject);
var
  HtmlDocument: IHtmlDocument2;
  WebBody: HTMLBody;
  V: OleVariant;
  Text: String;
begin
  WebBrowser.Navigate('about:<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><title>Hello</title></head><body></body></html>');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  HtmlDocument := WebBrowser.Document as IHtmlDocument2;
  WebBody := HtmlDocument.body as HTMLBody;
  Text:= 'Hello Абракадабра';
  WebBody.insertAdjacentHTML('BeforeEnd', '<font face="Tahoma" size="2">'+Text+'</font>');
  WebBody.insertAdjacentHTML('BeforeEnd', '<font face="Tahoma" size="2">Hello Абракадабра</font>');
end;

Получите
Цитата

Hello ÀáðàêàäàáðàHello Абракадабра

Есть какието предположения как это можно исправить?
И еше прикрепляю тестовый проект

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  Hello_Abacadabra.rar 1,86 Kb
PM MAIL   Вверх
aktuba
Дата 3.9.2007, 11:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Получите


Код

Hello АбракадабраHello Абракадабра


Все нормально!!!


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Ak47black
Дата 3.9.2007, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
aktuba, Ну какая версия Delphi?
Я еше раз проверил, у меня всеровно тоже самое (неправильно).
PM MAIL   Вверх
aktuba
Дата 3.9.2007, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Ну какая версия Delphi?


TurboDelphi...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Ak47black
Дата 3.9.2007, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0
aktuba, Тут скорей всего что версия другая.
А у когонибудь есть Delphi 7? Можете ктонибудь просто проверить?
PM MAIL   Вверх
elementos
  Дата 19.2.2008, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
у меня открывается браузер с таким кодом:

Код

s := concat('about:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">',  #10#13,
'<head>', #10#13, '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">', #10#13, '</head>', #10#13,
'<body>', #10#13, '</body>');
webbrowser.Navigate(s);


он работает в режиме редактора (DesignMode := 'On')
когда только запустить приложение, и ничего не делать (не изменять содержимое) то можно увидеть через исходный код страницы, что кодировка 1251, но когда что-то напишешь в нем, и посмотреть, то она сразу становится unicode.
что за ( smile ) и как исправить?

Это сообщение отредактировал(а) elementos - 19.2.2008, 00:30
PM MAIL   Вверх
elementos
Дата 20.2.2008, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

аyу, есть кто живой?... 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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