видимо я не все правильно понял, и с K300i никак не могу получить
русский текст, одни знаки вопроса, где-то стопорнулся и все тут.
Решил не мучаться а все перевести в английские буквы, а затем на
сервере обратно перевести в русские. Но как ?
Вот так переводим в англ.:
s1:='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ';
s2:='йцукенгшщзхъфывапролджэячсмитьбюё';
s3:='IcukengSZzhNfEvaproldWFyPsmitMbUY';
for i:=0 to length(fonds) do
begin
for o:=0 to length(s1) do
begin
if getChar(fonds,i)=getChar(s1,o) then fonds:=setChar(fonds,getChar(s2,o),i);
if getChar(fonds,i)=getChar(s2,o) then fonds:=setChar(fonds,getChar(s3,o),i);
end;
end;
Простой алгоритм.. единственное НО, мы теряем верхний регистр русских
букв, а точнее мы получаем все маленькие буквы. т.е. алгоритм в
потерями, хотя большие буквы и не нужны вовсе.
Так что всем на заметку, кому надо вдруг станет русский текст с мобил
дергать.
