Delphi XE3, unicode & utf-8?

Question

[Keenest]

Добрый день.

Уже третий день бьюсь над следующей задачей:

Имеется шаблон — html-файл в кодировке utf-8 и форма, на которой, условно, находятся несколько компонентов TEdit.

Всё что надо сделать — это заменив в шаблоне строки "{{ edit1 }}" на содержимое Edit.Text, сохранить получившийся файл обратно в utf-8.


Казалось бы, задача замены подстроки в строке — ан нет: проблема с кодировками. Как я ни стараюсь — теряются «нестандартные» символы, типа ü и ö.


Перепробовал много способов:

// template: TStringList, в котором хранится содержимое файла template.html
        for i:=0 to template.Count-1 do
            begin
                 s:=template.Strings[i];
                 s:=StringReplace(s,'{{ edit1 }}',Edit1.Text,[rfReplaceAll,rfIgnoreCase]);
                 s:=StringReplace(s,'{{ edit2 }}',Edit2.Text,[rfReplaceAll,rfIgnoreCase]);
                 WS:=s; // пробовал и так
                 WriteFile(HF,PChar(WS)^,Length(WS)*2,D, nil);
                 //writeln(f,s); // и так
            end;

либо теряются умлауты из шаблона, либо из edit'ов (ü становится u).


пробовал и такой вариант — вручную перегонять кодировки:

var
   s,s8:UTF8String;
   s2:string;
   fi,fo:textfile;
   l:integer;
begin
     AssignFile(fi,'template8.html');
     AssignFile(fo,'result.html');
     Reset(fi);
     Rewrite(fo);
     while not EoF(fi) do
           begin
                readln(fi,s);
                s2:=UTF8ToUnicodeString(s);
                l:=length(s2);
                SetLength(s8,l*SizeOf(Char)+1);
                UnicodeToUtf8(PAnsiChar(s8),length(s8),PWideChar(s2),l);
                writeln(fo,s8);
           end;
     CloseFile(fi);
     CloseFile(fo)
end;

Но не получается.


Может кто-то сталкивался с подобным? В какую сторону копать?


Спасибо.

Comments

[Maccimo]

Без информации о типах переменных и конкретном классе компонента Edit1 в первом фрагменте ничего определённого сказать нельзя. Все телепаты в эмиграции.

[Keenest]

i: integer (это понятно и так, глядя на цикл)
template: TStringList (написано в первой строке кода, невнимательно читали?)
Edit1: TEdit (по-моему очевидно).

Ну что, стало понятнее?) Телепаты, ирония, вот это всё…

Answer 1

[Hint]

Проблемы быть не должно. Скиньте готовый код минимального размера, где проявляется ваша проблема.

Comments

[Keenest]

Хм, ну выше же я привёл и эти самые куски кода, и объяснил в чём проблема.

[Hint]

Только я не могу скопировать себе код, запустить его и посмотреть, в чем именно дело. Второй кусок так вообще непонятно зачем нужен. А вообще скорее всего у вас не работает из-за StringReplace.

[Keenest]

Ну, если бы всё было так просто и очевидно — я бы только порадовался, хех.

procedure TMainForm.BitBtn2Click(Sender: TObject);
var
   s,s8:UTF8String;
   fi,fo:textfile;
begin
     Caption1Edit.Text:='prüfen';
     AssignFile(fi,'template.html');
     AssignFile(fo,'result.html');
     Reset(fi);
     Rewrite(fo);
     while not EoF(fi) do
           begin
                readln(fi,s);
                s8:=StringReplace(s,'{{ x }}',Caption1Edit.Text,[rfReplaceAll,rfIgnoreCase]);
                writeln(fo,s8);
           end;
     CloseFile(fi);
     CloseFile(fo);
end;

А вот кусочек файла-шаблона — в принципе можно одной строкой ограничиться:

<h1>Ä {{ x }}</h1>

На выходе должен получиться файл result.html такого содержания (NB умлауты):

<h1>Ä prüfen</h1>

… а получается "Ä prufen"

[Hint]

Только что набросал несколько строк кода, вроде бы работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: File;
  Dir: string;
  S: UTF8String;
begin
  Dir := ExtractFilePath(ParamStr(0));
  AssignFile(F, Dir + 'template.txt');
  Reset(F, 1);
  SetLength(S, FileSize(F));
  BlockRead(F, S[1], Length(S));
  CloseFile(F);

  S := StringReplace(S, '{{ edit }}', UTF8Encode(Edit1.Text), [rfReplaceAll]);

  AssignFile(F, Dir + 'result.txt');
  Rewrite(F, 1);
  BlockWrite(F, S[1], Length(S));
  CloseFile(F);
end;

[Keenest]

То что нужно, спасибо огромное.
И решение, оказывается, такое простое.

Завтра на свежую голову допишу программу и закрою вопрос :)

Answer 2

[Виталий Желтяков]

Время идёт, а проблемы те же…

Проблема в некорректной работе кода компонентов. Проблема с кодировками наблюдается у ряда стандартных компонентов среды Delphi после 7 версии. Решение только одно (из мне известных) — заменить проблемные компоненты на компоненты, где проблемы с кодировками не будет. Можно также откатить проект на версию 7.

Comments

[Keenest]

Изначально проект был на дельфи 7.
Но там был аналогичный геморрой с ANSI, и я наивно понадеялся что в последней версии этой проблемы не будет.

[Hint]

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

[Виталий Желтяков]

Ну, тогда ищите вашу проблему. Решение указать не забудьте.

[Keenest]

Нашёл, указал. Спасибо за помощь.