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

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

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

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

Сообщение ANDRE » 06.04.2012 13:56:48

Подключаю через 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; //}
ANDRE
незнакомец
 
Сообщения: 3
Зарегистрирован: 06.04.2012 13:24:53

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

Сообщение iskander » 06.04.2012 18:19:56

Мы говорим OLE - подразумеваем WIDESTRING, нет?
iskander
энтузиаст
 
Сообщения: 624
Зарегистрирован: 08.01.2012 18:43:34


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 228

Рейтинг@Mail.ru
cron