Запросы на написание библиотек. Библиотеки запрашивать только здесь.

[Skythrone]

Если это возможно, хорошо бы иметь библиотеки для быстрого преобразования кодировок строк. На форуме описано несколько (примерно одинаковых) решений для перекодирования win1251->UTF8, но это не очень удобно. Самое главное - что данные алгоритмы работают медленно. Приходится посимвольно считывать строку, брать Ord символа, потом делать Chr.
На реальных телефонах подобная обработка текста размером 5-10 кб уже ощутимо тормозит. Да и память жрёт.

Вопрос - есть ли на J2ME возможность быстрой (встроенной или низкоуровневой) конвертации кодировки строки?

[odd]

Сообщение от Skythrone

Если это возможно, хорошо бы иметь библиотеки для быстрого преобразования кодировок строк. На форуме описано несколько (примерно одинаковых) решений для перекодирования win1251->UTF8, но это не очень удобно. Самое главное - что данные алгоритмы работают медленно. Приходится посимвольно считывать строку, брать Ord символа, потом делать Chr.
На реальных телефонах подобная обработка текста размером 5-10 кб уже ощутимо тормозит. Да и память жрёт.

Вопрос - есть ли на J2ME возможность быстрой (встроенной или низкоуровневой) конвертации кодировки строки?

Действительно, в Java есть встроенный конвертер строк с одной кодировки в другую. Но я что-то стремаюсь его использовать. Может оказаться так, что на одном телефоне будет нормально работать, а другой какой-нибудь "серый" телефон может и не знать таких кодировок. Короче, такую библиотеку можно написать и довольно легко, но я тебя предупредил.
Всё же легче создать собственный алгоритм. Пусть медленно, зато надежно. Я могу добавить функции переконвертации строк, например в библиотеку Lib_str.

[Skythrone]

Ну, тогда в этом случае серый телефон всё равно не сможет отобразить символы на экране.

В общем, я буду тебе благодарен за либу.

И если есть возможность ускорить загрузку строк из тестовых ресурсов, будет тоже здорово.

[Romanzes]

Может кто-нить сделать либу для загрузки ресурса в виде строки?

[Phantom]

Я наверно смогу =) Как либу назвать?

[Romanzes]

Гы. Самое сложное в написании библотеки - придумать название . Lib_res2str. Или можно Lib_res, на случай, если кто добавит функции для нормальной работы с ресурсами.

[Phantom]

Офигеть... Правильно мне сегодня друг сказал... По воскресениям телепатические способности усиливаются. Уже сделал =) И назвал именно Lib_res2str =) Вот: http://wc.webhop.net:8080/res2str.zip Считывает ресурс в строку в ASCII, могу попробовать сделать дополнительный параметр функции, который бы давал понять функции в какой кодировке читать ресурс - ASCII или UTF-8 =) Пока либу не выкладываю, так как на самом деле она слишком маленькая. Может ещё чего-то сделать и добавить?

[Skythrone]

Ага, сделай, пожалуйста, конвертилку в UTF8.

[Phantom]

Так. На счёт utf-8 погорячился. Не знаю пока как сделать. Сделал чтение в ansi (windows-1251). Теперь русские буквы отображаются нормально. У меня мысль появилась, может сделать чтение в различных кодировках? Или не стоит заморачиваться? Сейчас может читать в ascii и ansi. Если из ресурса читаем текст, то читаем как ansi, а если читаем бинарные данные, то читаем как ascii. Это если я правильно всё понимаю. =) В общем вот, ссылка та же самая: http://wc.webhop.net:8080/res2str.zip

[Romanzes]

Phantom_wc, спасибо! Вроде маленькая либа, а облегчает жизнь. Может сделаешь, чтоб можно было нормально (без зависания мидлета) работать с ресурсами? А то ReadLine, как известно, не айс.

Да, телепатия усиливается! Только это не от воскресенья, а от большого адронного коллайдера, там вчера что-то навернулось

[Phantom]

Только вот я чего не понимаю. Чтобы русские буквы читать, делаем:
(char)((b>=0xc0&&b<=0xFF)?b+0x350:b)
В принципе всё понятно, конвертируем в юникод. Видел такие примеры на нескольких сайтов. И это работает. Но ведь в юникоде каждый символ занимает от 1 до 4 байт (так-то я говорю про utf-8, а не про юникод, или это одно и то же?), в частности символы русского языка - два байта. Поэтому такой вопрос. Как мы можем загнать в тип char русский символ в два байта, если он занимает в памяти один байт? О_о или я чего-то жёстко не понимаю?

[Phantom]

Romanzes, так. А какие именно функции сделать?

[Romanzes]

Ну, там ReadLine нормальную. Больше не могу придумать

[Phantom]

Вот: http://wc.webhop.net:8080/res.zip
Там ридми лежит в архиве. Возможно лишнего наворотил заумного, но сделал это только чтобы либа весила меньше и не было почти одинаковых кусков кода в ней. И назвал Lib_res. Если одобрите, создам тему и выложу как полагается =)

[Cliffe Snake]

У меня на теле в JVM нет ввода русских букв.
Сделайте плиз либу, чтобы был програмнный ввод символов.
Я на MP программку писал, может чем поможет.

Вот код:

program Programniy_vvod_russkimi_bukvami;
var ok:command; 
      n,k,nl,kl,nn,kn,tim,np:integer; 
      rd,ru,ed,eu,td,tu,txt,s:string; 
      upc,lng:string;
  begin 
    ok:=createcommand('OK',CM_OK,2);
    addcommand(ok);
    rd:='.,?!0: _1=+-абвг2 деёжз3ийкл4 мно5  прс6  туфх7 цчшщъ8ыьэюя9';
    ru:='.,?!0: _1=+-АБВГ2 ДЕЁЖЗ3ИЙКЛ4 МНО5  ПРС6  ТУФХ7 ЦЧШЩЪ8ЫЬЭЮЯ9';
    ed:='.,?!0: _1=+-abc2  def3  ghi4  jkl5  mno6  pqrs7 tuv8  wxyz9 ';
    eu:='.,?!0: _1=+-ABC2  DEF3  GHI4  JKL5  MNO6  PQRS7 TUV8  WXYZ9 ';
    tu:=ru;td:=rd;
    upc:='UPCASE';
    lng:='rus';
    repeat
      
     k:=getkeyclicked;
     if (k<>0) then kl:=k
     
      if (kl=42) then begin 
        if (upc='UPCASE') then upc:='downcase' else upc:='UPCASE';
        kl:=0;
      end;
      
      if (kl=-7) then begin 
        if (lng='rus') then lng:='eng' else lng:='rus';
        kl:=0;
      end;
     
      if (kl>47) and (nl>47) then if (nl=kl) then nn:=nn+1;
     
      if (nn>6) then nn:=1;
      if (nl>42) and (kl<>nl) and (nn>0) and (kl<>0)then begin
        kn:=nn+(nl-48)*6+4;
        nn:=0;
       end;
         
      if (nn>=1) then kl:=0 else nl:=kl;
      
      if (lng='rus') then 
        begin
          td:=rd;
          tu:=ru;
        end 
      else
        begin
          td:=ed;
          tu:=eu;
        end; 
       if (np<>nn) then tim:=0; 
       if (tim>30) then begin kn:=nn+(nl-48)*6+4; tim:=0; nn:=0; end;
        np:=nn;
        tim:=tim+1;
      
      if (kn>4) then
      begin
        if upc='UPCASE' then 
          txt:=txt+getchar(tu,kn-5) 
         else
          txt:=txt+getchar(td,kn-5);
        kn:=0;
      end
      
      if (kl=-8) and (length(txt)>0) then begin 
        txt:=copy(txt, 0, length(txt)-1);
        kl:=0;
      end;
      
     kn:=nn+(nl-48)*6+4;
     if upc='UPCASE' then 
          s:=getchar(tu,kn-5) 
         else
          s:=getchar(td,kn-5);
     kn:=0;
      
     setColor(200, 255, 255);
     fillrect(0,0,240,320);
     setColor(0, 0, 0);
     drawtext(''+nl,10,10);
     setColor(0, 255, 0);
     drawtext(s,10,30);
     drawtext(upc,50,50);
     drawtext(lng,10,50);
     setColor(0, 0, 255);
     drawtext(txt,10,70);
     drawtext(''+tim,10,90);
     repaint;
     until (kl=-6 ) or (getclickedcommand=ok);
  end.