XML (UTF8) в FreeBSD

[rusgl]

Доброго времени, All.
Ситуация:
Есть XML
<?xml version="1.0" encoding="UTF-8"?>
<config>
<test1 b="вот такой тест"/>
</config>

Собственно нужно добраться до значения параметра "b" во FreeBSD.
В Win без проблем, а вот в сабже "??????????????????".
Понимаю, что проблема с текущей локалью, а побороть не получается

[alexs]

А физически в какой кодировке текст находится? он там точно в utf8?

[rusgl]

Да

<?xml version="1.0" encoding="UTF-8"?>
<config>
<test1 a="qwer Р_Р_С' С'акР_Р№ С'РчС_С'" b="qwer2 С'С_Р" Р"С_С_С_С% Р"С:С'Р""/>
</config>

[Sergei I. Gorelkin]

Для правильного преобразования строк нужно подключать к проекту модуль cwstring.

[rusgl]

Код: Выделить всё

uses
  Classes, SysUtils, CustApp, dom, xmlRead
  {$IFDEF UNIX}{$IFNDEF DisableCWString}, cwstring{$ENDIF}{$ENDIF}
  ;

.....

procedure TMyApplication.DoRun;
var
  XMLDoc: TXMLDocument;
  XMLConfig: TDomNode;
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  try
    GetWideStringManager(WideStringManager);
    ReadXMLFile(XMLDoc, '1.xml');

    XMLConfig := XMLDoc.FirstChild;
    WriteLn('1a' + XMLConfig.ChildNodes.Item[0].Attributes.GetNamedItem('a').NodeValue);
    WriteLn('1b' + XMLConfig.ChildNodes.Item[0].Attributes.GetNamedItem('b').NodeValue);
   
  finally
    StrList.Free;
  end;

  Terminate;
end;

Код: Выделить всё

Получаем вопросительніе знаки

[Sergei I. Gorelkin]

Тут похоже надо переадресовывать вопрос знатокам FreeBSD, я о ней, к сожалению, знаю только что она есть и похожа на Linux...

Если в системе локаль UTF-8, можно напрямую перекодировать с помощью ф-ции UTF8Encode, должно работать и без cwstring. Или работать прямо в формате utf-16, в котором весь DOM и сделан.

[rusgl]

utf8encode отдает: ╤В╤О╨Д ╨Д╤А╤К╤О╤Й ╨Д╤Е╤С╨Д, что похоже на правду.
Но нужно именно виндовую кодировку, так как в дальнейшем эту строку нужно искать на хтмл страничке с кодировкой win1251

[Vadim]

rusgl
Я не совсем понял, какая локаль установлена на Вашей системе?