Использование Qr Code в отчете с нестандартной кодировкой.

Oleg527

Здравствуйте.

Возникла необходимость использовать QR Code с кодировкой 1251. В большинстве случаев в QR Code используется UTF-8.
Заказчик ПО требует использование кодировки 1251, UTF-8 его сканеры не хотят читать.
Имеющаяся у нас версия FastReport.Net 2013.4.10 не позволяет установить такие свойства объекта Barcode QR code, как
"Code Page" ("1251 - ANSI Cyrillic; Cirillic (Windows)")
"ECI" ( "000022 Windows 1251 Cyrillic")
Эти свойства доступны в других генераторах штрихкода.

В поддержку через тикеты (#303776) обращались ответа не получили. Встал вопрос о приобретении отдельного генератора штрихкода для этой задачи.

Sergej063

Я сделал так, работает со Сбербанком

Private Sub ReCode1(ByVal sender As object, ByVal e As EventArgs)
Try
Dim sourceT As String
Dim utf8 As Encoding = Encoding.GetEncoding("Windows-1251")
Dim win1251 As Encoding = Encoding.GetEncoding("UTF-8")
Dim utf8Bytes As Byte() = win1251.GetBytes(sender.Text)
Dim win1251Bytes As Byte() = Encoding.Convert(utf8, win1251, utf8Bytes)
sourceT = win1251.GetString(win1251Bytes)
sender.Text = sourceT
catch
End Try
End Sub