OLE и русские символы

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
ANDRE
незнакомец
Сообщения: 3
Зарегистрирован: 06.04.2012 13:24:53

OLE и русские символы

Сообщение ANDRE »

Подключаю через OLE дисплей покупателя
try
Displ:=CreateOleObject('Display.CipherLab');
//ShowMessage('Подключились к объекту Display.CipherLab');
except
ShowMessage('Ошибка при обращении к объекту Display.CipherLab !!');
exit;
end;
try
Displ.InitializeDisplay();
DisplError:= Displ.CommandType('EPSON'); // Зададим тип команд дисплея
DisplError:= Displ.OpenPort('COM1',19200,8,0,0);
If DisplError<>0 Then
ShowMessage('Display.CipherLab_Error-2='+AnsiToUTF8(Displ.StateMessage));
DisplError:= Displ.ClearScreen(); // Очистим дисплей
except
ShowMessage('Ошибка при поключении к Display.CipherLab !');
exit;
end;
и посылаю на него коды символов с помощью Char(i), по идее я должен видеть все символы русского языка
но вижу лишь треть из них, так вместо 'абвгдежз' - 'а????жз'
For i:=1 To 256 Do Begin
Displ.ClearDispl();
Displ.EnterStr(0,''+Char(i));
ShowMessage('123');
end; //}
iskander
энтузиаст
Сообщения: 630
Зарегистрирован: 08.01.2012 18:43:34

Сообщение iskander »

Мы говорим OLE - подразумеваем WIDESTRING, нет?
Ответить