HTML таблица символов

[Den7656]

Я видел эти посты (HTML Entities) - модуль не подходит для Delphi 7.
А второй не заметил, спасибо. Разбираюсь.
А решение приведенное выше выдает строку - CAA:0O, хотя на самом деле должно выдавать Русская

[Den7656]

Еще вопросик:
есть процедура конвертации

  function HexToInt(Str : string): integer;
var i, r : integer;
begin
  val('$'+Trim(Str),r, i);
  if i<>0 then HexToInt := 0 {была ошибка в написании числа}
  else HexToInt := r;
end;


   function NormSTR(st : AnsiString ) : AnsiString;
var
  i     : integer;
  sa    : AnsiString;
  st2   : string;
  s,s1  : AnsiString;

begin
  sa := '';
  i := 1;

  while I <= Length(st) do begin
    s := Copy(st, i, 1);
    if s = '#' then begin
      st2 := Copy(st, i + 1, i + 3);
      s1 := Chr(HexToInt(st2));
      sa := sa + s1;
      Delete(st, i,i + 4);
    end
    else begin
      sa := sa + s;
      Delete(st,i,1);
    end;
  end;
  Result := sa;
end;

Это полный аналог вышеприведенной функции HTMLDecode. Если ей передать параметр в виде CHAR то она возвращает правильное значение конвертированное из HTML-Entities в символ.
например:

Edit2.Text:=NormSTR(#1056);

в ответе от функции получаем символ, а точнее русскую букву "Р", это правильная работа функции.
Если же функции передать значение в виде String, например:

Edit2.Text:=NormSTR('#1056');

в ответе от функции получаем "#1056", это НЕправильная работа функции.

Объясните пожалуйста, мне нужно обрабатывать много значений через эту функцию (NormSTR), для этого я написал процедуру:

procedure TForm1.Button2Click(Sender: TObject);
var
  m : TStrArray;
  i : Integer;
  sa,ss:AnsiString;
begin
ss:='';
.........
.........
  for I := 0 to Length(m)-1 do begin
   sa:=m[i];
   sa:=NormSTR(chr (strtoint(sa))); //передача функции значений в цикле типа "#1091" и т.д.
    ss:=ss+sa;
    end;
   memo1.Lines.Add(ss);
   end;

Почему-то функции передается параметр в виде String а не Char.
Поэтому возвращаемый ею результат для каждого символа получается не верным.
Как можно решить данную проблему.
Прикладываю на всякий случай свой проект. Гляньте пожалуйста.

[Den7656]

C этим тоже разобрался, вот код который все это делает.

function Unic2Ansi(Str: string): string;
 var
   x, z: Integer;
   tmp: string;
 begin
   x := Pos('#', Str);
   repeat
     tmp := Str[x + 1] + Str[x + 2] + Str[x + 3] + Str[x + 4];
     Delete(Str, x, 5);
     z := StrToInt(tmp) - 848;
     Insert(Char(z), Str, x);
     x := Pos('#', Str);
   until x = 0;

   x := Pos(#39, Str);
   repeat
     Delete(Str, x, 1);
     x := Pos(#39, Str);
   until x = 0;

   Result := Str;
 end;

[Serge_Bliznykov]

если бы вчера сказали, что Вам нужно именно DFM unicode строчки разбирать, то я бы ещё вчера отправил Вас к исходнику программы, которой я иногда пользуюсь — DfmUn2An.zip ((внимание! Это проект(исходник) под библиотеку KOL)

DfmUn2An (Dfm Unicode To Ansi)
------------------------------
Программа переводит ресурс dfm-файла(ов) из Unicode в Ansi.
Это нужно для совместимости Delphi 5 с более поздними версиями
Delphi 6, 7... Они используют Unicode, а Delphi 5 Ansi.

там используется такая примерно функция:

//======================================
//== ПЕРЕВОД СТРОКИ ИЗ UNICODE В ANSI ==
//======================================
function StrUnic2Ansi(Str: string): string;
var
  x: Integer;
  Num: string;
begin
  //== Удаляем из строки символы <'> - #39
  x := Pos(#39, Str);
  repeat
    Delete(Str, x, 1);
    x := Pos(#39, Str);
  until x = 0;

  for x := Pos('#', Str) to Length(Str) - 4 do
    if (Str[x + 1] in ['0'..'9']) and (Str[x + 2] in ['0'..'9']) and
       (Str[x + 3] in ['0'..'9']) and (Str[x + 4] in ['0'..'9']) then
    begin
      Num := Str[x + 1] + Str[x + 2] + Str[x + 3] + Str[x + 4];
      Delete(Str, x, 5);
      Insert(WideChar(StrToInt(Num)), Str, x);
    end;

  //== Переводим '#39' в <'>
  x := Pos('#39', Str);
  if x = 0 then
  begin
    Result := Str;
    Exit;
  end;

  repeat
    Delete(Str, x, 3);
    Insert(#39, Str, x); // '#39' -> <'>
    x := Pos('#39', Str);
  until x = 0;
  Result := Str;
end;

[Den7656]

Вот только жаль что эти функции не работают с китайской кодировкой. Именно из-за нее я и взялся переводить проекты, написал код для перевода всех комментариев, String'ов. Осталось только это. Никак не справиться мне с этой кодировкой((
Хотя если вручную забить например (&_#26032;&_#22686;&_#20184;&_#2745 4;&_#26041;&_#21517;&_#31216 только без знака "_" в HTML'ку эти иероглифы, то они отображаются нормально. Никак не могу понять почему эта функция никак с ними не справится (((
вот пример из DFM'а: #26032#22686#20184#27454#26041#2151 7#31216

[Аватар]

Никак не могу понять почему эта функция никак с ними не справится

Потому, что для этих кодов нет представления в кодовой странице 1251, а для кириллицы есть

[Den7656]

А как же тогда быть ? Или другого выхода как вручную DFM'ы переводить нету ?

[Serge_Bliznykov]

А как же тогда быть ? Или другого выхода как вручную DFM'ы переводить нету ?

хотя я уже выхожу за рамки собственного опыта, но тем не менее рискну заявить, что есть нормальное решение. Вот только нужно учесть, что нужно использовать Uncicode (и желательно Delphi >= 2009, которая реально поддерживает Unicode, в том числе и в визуальных компонентах. т.е. можно отобразить в TEdit/TLabel/TMemo эти ваши иероглифы.), второе, если Вы собираетесь писать иероглифы в файл - учтите, что их можно записать либо в текстовый файл формата Unicode, либо кодировать (один из вариантов кодировки Unicode символов и представлен в DFM файлах)...

ОЧЕНЬ рекомендую ознакомится с постом уважаемого GunSmoker'а - ТУТ (и обязательно сходите по ссылочке в этом сообщении - "Не существует такой вещи как просто текст.")


p.s. а расскажите полностью (поподробнее) как ИЗНАЧАЛЬНО формулировалась задача, которую Вы решаете? Ну что Вы имеете и что хотите с этим сделать, что получить на выходе?

[Den7656]

Написал программу, почти готова, за исключением перевода этих DFM'ов, для перевода проектов Delphi например с китайского или французского языка на русский или английский (в общем языковых пар очень много - те которые предоставляет Google Translate), в принципе с любого языка на любой другой.
Она, собственно, занимается тем что выдирает из файлов PAS все стринги, комментарии и т.д., автоматически их переводит, и после небольших поправок перевода, можно сохранить Pas файл. А с DFM'ами проблема вышла...
Если нужно, могу выложить проект своего переводчика.

[Serge_Bliznykov]

мне кажется, что Вы ВООБЩЕ НЕ В ТУ СТОРОНУ идёте.
Все сообщения нужно выносить (хоть в ресурсные файлы, хоть в отдельные (CFG/INI/XML и т.д.).
Тогда :
1) добавление нового языка не потребует перевода DFM файлов и перекомпиляции всего проекта.
2) как в любой нормальной программе можно будет выбрать язык (из меню конфигурации), а не запускать отдельно EXEшник, скомпилированный под французский язык, отдельно - под английский, отдельно - под китайский и т.д. и т.п.
3) возможность простого дальнейшего развития программы. Вот представьте, если Вы добавите новую фишку в программу, Вам что - опять переделывать все DFM-ки на все языки и перекомпилировать программу X раз (под каждый язык) ?!

короче - не в ту сторону Вы идёте!!!

Блог GunSmoker-а - Локализация проектов Delphi

поиск по форуму по слову "локализация" дал кучу ссылок! Вот пара из них:

[Поиск] Компонент локализации строковых ресурсов и сторонних компонент delphi

Локализация программы и Delphi(DLL Resources Wizzard) загрузка перевода.

Локализация программ

Локализация програмы