Кодировка cp855

[NIMNUL]

Уж не знаю, заводить ли новую тему или продолжить здесь?
Пообщался с производителем принтеров, оказалось, что можно его перенастроить на кодировку UTF-8.
Нашел документацию:
https://ftp.owen.ru/CoDeSys3/98_Book...Package_ru.pdf
Оказывается, что можно работать со строками в UTF-8.
Поддерживают ли текущие версии прошивки эти библиотеки?

[Евгений Кислов]

Уж не знаю, заводить ли новую тему или продолжить здесь?
Пообщался с производителем принтеров, оказалось, что можно его перенастроить на кодировку UTF-8.
Нашел документацию:
https://ftp.owen.ru/CoDeSys3/98_Book...Package_ru.pdf
Оказывается, что можно работать со строками в UTF-8.
Поддерживают ли текущие версии прошивки эти библиотеки?

Нет, не поддерживаются.
Но функции конвертации в UTF8 есть в библиотеке StringUtils.

Можете связаться со мной через телеграм (в подписи) - поможем с конвертацией в любую кодировку.

[NIMNUL]

Можете связаться со мной через телеграм (в подписи) - поможем с конвертацией в любую кодировку.

Спасибо большое за помощь через AnyDesk

[NIMNUL]

Но функции конвертации в UTF8 есть в библиотеке StringUtils.

Евгений, я допилил Вашу идею преобразования Unicod в UTF8. Посмотрите, правильно ли?
Сначала, думал "склеивать" hex-коды в цикле, но потом нашёл решение через указатели.

VAR

// Конвертация Unicode -> UTF8
MyString: WSTRING;
abyUtf8: ARRAY [1..99] OF BYTE;
xConvert: BOOL;
ptrString : POINTER TO STRING(99);
outString : STRING;
END_VAR

PLC_PRG
IF xConvert THEN

STU.ConvertUTF16toUTF8(ADR(MyString), ADR(abyUtf8), SIZEOF(abyUtf8), FALSE);
ptrString := ADR(abyUtf8);
outString := ptrString^;
xConvert := FALSE;

END_IF

[Евгений Кислов]

Евгений, я допилил Вашу идею преобразования Unicod в UTF8. Посмотрите, правильно ли?
Сначала, думал "склеивать" hex-коды в цикле, но потом нашёл решение через указатели.

VAR

// Конвертация Unicode -> UTF8
MyString: WSTRING;
abyUtf8: ARRAY [1..99] OF BYTE;
xConvert: BOOL;
ptrString : POINTER TO STRING(99);
outString : STRING;
END_VAR

PLC_PRG
IF xConvert THEN

STU.ConvertUTF16toUTF8(ADR(MyString), ADR(abyUtf8), SIZEOF(abyUtf8), FALSE);
ptrString := ADR(abyUtf8);
outString := ptrString^;
xConvert := FALSE;

END_IF

Чуть проще (и корректнее):

IF xConvert THEN
	
	STU.ConvertUTF16toUTF8(ADR(MyString), ADR(outString), SIZEOF(outString), FALSE);

END_IF