delphi 7 - utf8 to ansi

[Аватар]

А мой пример на дельфи 7. И UTF-8 какое отношение к юникоду имеет?

[Pamparam]

Сообщение от Аватар

А мой пример на дельфи 7. И UTF-8 какое отношение к юникоду имеет?

ммм, сори, забываю про заморочку с сменой языка при копировании в дельфю (иногда, когда раскладка языков при копировании и вставке разная - вставляет с неправильной кодировкой)
результат - "???? — ?"
у меня "неправильная" дельфя?

[Стелс]

попробуйте эту функцию

//конвертация символов в соответствующие им для правильного отображения в html
function DisableHtmlTags(htmltagsstr:string):string;
var lchs,clch,spactrlr:cardinal; char00,char000,char01,char02,char03,char04,char05,itogstr:string;
begin
 char00:='<BR>'; char000:=''; char01:='&quot;'; char02:='&amp;'; char03:='&lt;'; char04:='&gt;'; char05:='&nbsp; ';
 spactrlr:=0;
 clch:=1;
 lchs:=Length(htmltagsstr);
while clch<=lchs do
 begin
    spactrlr:=spactrlr+1;
    itogstr:=htmltagsstr[clch];
    if htmltagsstr[clch]=Char($0D) then itogstr:=char00;
    if htmltagsstr[clch]=Char($0A) then itogstr:=char000;
    if htmltagsstr[clch]='"' then itogstr:=char01;
    if htmltagsstr[clch]='&' then itogstr:=char02;
    if htmltagsstr[clch]='<' then itogstr:=char03;
    if htmltagsstr[clch]='>' then itogstr:=char04;
    if htmltagsstr[clch]=' ' then begin itogstr:=char05; spactrlr:=0; end;
    if spactrlr>65 then
     begin
      itogstr:=itogstr+'<br>';
      spactrlr:=0;
     end;
    Result:=Result+itogstr;
    clch:=clch+1;
 end;
end;

или вот еще не плохой компонент

[GunSmoker]

Сообщение от Pamparam

резалт работы тот же, что и при utf8toansi

Судя по скрину у тебя проблемы не в перекодировке, а в отображении.

Там на кнопках программы должен быть русский текст. Обычный русский текст. Никаких перекодировок при отображении кнопок нет. А у тебя там вопросики показываются.

Получается, что у тебя русский просто не показывается. А перекодировка тут ни при чём.

Проверяй что стоит в языке для не-Unicode программ и что в NLS данных в реестре прописано.

[Pamparam]

Сообщение от GunSmoker

Судя по скрину у тебя проблемы не в перекодировке, а в отображении.

Там на кнопках программы должен быть русский текст. Обычный русский текст. Никаких перекодировок при отображении кнопок нет. А у тебя там вопросики показываются.

это у меня, вроде, после установки след версий дельфи и их удаления случилось. В проектах все русские названия компонент заменились на вопросики, но если их заново ввести все норм работает.
Вон написано же в мемо
"Кодировка: windows-1251"

Сообщение от GunSmoker

Получается, что у тебя русский просто не показывается. А перекодировка тут ни при чём.

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

Сообщение от GunSmoker

Проверяй что стоит в языке для не-Unicode программ и что в NLS данных в реестре прописано.

а подробней? )

[fucil]

Ну не знаю как насчёт всего выше но я делаю вот так и все гуд !
если поможет с тебя + ;-)

procedure TForm6.Button1Click(Sender: TObject);
var
    MS:TStringStream;
    str:string;
begin
 MS:=TStringStream.Create('');
 idhttp1.Get('http://www.webdelphi.ru/2011/06/obnovlenie-mlang-dobavlena-podderzhka-delphi-4-xe/',MS);
 str :=utf8decode(MS.DataString);
 memo1.Lines.Add(str);
end;

[xrob]

я правильно вас понял что вам нужно UTF-8 перевести в нормальный читабельный текст?

я когда-то сталкивался с такой проблемой.
я тогда не стал копаться, искать какие-то компоненты,
проанализировал кодировку и написал свой переводчик.

это было ооочень давно, с тех пор о UTF-8 не вспоминал.
если еще интересно, могу выложить.

[GunSmoker]

Сообщение от Pamparam

это у меня, вроде, после установки след версий дельфи и их удаления случилось. В проектах все русские названия компонент заменились на вопросики, но если их заново ввести все норм работает.

Ну это вот как-бы сильно намекает, что проблема не в коде перекодировки. Потому что он рабочий. А проблема в системе.

Сообщение от Pamparam

а подробней? )

http://www.nullsoft.ru/en/russian.htm

Многие любят делать две вещи:
1. Исправлять данные в реестре, переправляя кодовые страницы одну на другую.
2. Исправлять сами файлы NLS.

Итого, надо:
1. Проверить код на другой машине. С хорошей вероятностью должно работать всё отлично (у других же работает).
2а. Скопировать настройки и файлы с этой машины.
2б. Как вариант - переустановить Windows.

[Pamparam]

Сообщение от GunSmoker

Ну это вот как-бы сильно намекает, что проблема не в коде перекодировки. Потому что он рабочий. А проблема в системе.



http://www.nullsoft.ru/en/russian.htm

Многие любят делать две вещи:
1. Исправлять данные в реестре, переправляя кодовые страницы одну на другую.
2. Исправлять сами файлы NLS.

Итого, надо:
1. Проверить код на другой машине. С хорошей вероятностью должно работать всё отлично (у других же работает).
2а. Скопировать настройки и файлы с этой машины.
2б. Как вариант - переустановить Windows.

низкий поклон, помогло! =)
тока счас заметил, но у меня даже время показывалось иероглифами. Codegear, получается, попортило всё!
решение находится по ссылке в предыдущем посте.

Windows XP
If such occurs in the Photoshop the problem is solved so: we find in the register key HKEY_LOCAL_MACHINE \SYSTEM \CurrentControlSet \Control \Nls \CodePage and we change value of parameter 1252 on c_1251.nls (was c_1252.nls, begins c_1251.nls). By the way, such manipulation helps sometimes and for some other programs.

If hieroglifs all the same have not disappeared, it is necessary to check up correctness of installation Languadge Options: we start for applet Regional and Languadge Options (it{he} in the Control panel) and we open bookmark Regional Options. In section Standart and formats it is meaningful to expose "russian", in section Location adequate{answering} including for system fonts - it is necessary to specify "Russia". For full happiness it is necessary to check up investment
Advanced: Language for non-Unicode programs should be exposed in "Russian".

в реестре изменил - не помогло, потом: панель управления - язык и региональные стандарты - региональные параметры - русский (был какой-то там французский).
столько дней стоял процесс из-за этого... пасиба! =)
для поиска:
"Вместо русских символов выводятся знаки вопроса. Кодировка"

[GunSmoker]

Codegear, получается, попортило всё!

Крайне маловероятно, что это из-за Delphi.