Подсветка экрана Nokia

[S_007]

У кого есть либа для управления подсветкой телефонов нокиа серии s40, включать, выключать подсветку командой

[S_007]

ребята нашел вот это..!

Nokia UI API

Управление подсветкой на телефонах Nokia осуществляется с помощью методов класса DeviceControl:

import com.nokia.mid.ui.DeviceControl;

DeviceContorol.setLight(0,100); //регион (0-экран), яркость (0..100)
DeviceContorol.setLight(0,0);

ресурс с описанием
http://annimon.com/library/index.php?id=91&start=0


в архиве DeviceControl.class

помогите на основании этого сделать либу для нокиа, пожалуйста!

[ViNT]

Вывел все доступные в классе методы

public static void set_lights(int i, int j)
public static void flash_lights(int l)
public static void start_vibra(int i, int l)
public static void stop_vibra()

параметры соответствуют параметрам исходных методов класса.

[S_007]

ViNT, Огромное тебе СПАСИБО! Если тебе не трудно опиши как в паскале вызывать эти функции или дай ссылку где можно про это почитать

set_lights(0. 100); - первое значение 0, второе от 0 - 100 так?

flash_lights(int l) - что делает эта функция и в каких пределах вводить значения?

start_vibra(int i, int l) - почему сдесь два значения и тоже в каких пределах вводить?

и еще вопрос:
возможно ли в нокиа мидлетом прочитать заряд акумулятора?
если бы еще можно было определить подключено зарядное или нет, как в АТ коммандах...

для сименс делал так
ch:= GetProperty('MPJC_CAP');
n:=stringtointeger(ch);
но для этого в телефон нужно было устанавливать патч для таких полномочий явы

сдесь в шестом посте http://forum.allsiemens.com/viewtopic.php?t=56051 в коде есть упоминание про многие модели телефона и в частности для нокиа
Class.forName("com.nokia.mid.ui.DirectUtils");

а сдесь http://annimon.com/download/index.ph...id=89&start=20 под номером 24 есть DirectUtils.class

будет ли без патча работать на нокии если сделать либу?

за ранее благодарен!

[ViNT]

Методы нужно вызывать как обычные процедуры.

procedure set_lights(num:integer; level:integer)
установить уровень яркости подсветки
num - номер устройства, 0 - экран, 1 - дополнительные;
level - яркость, 0-100;
procedure flash_lights(duration:integer)
включить подсветку на duration миллисекунд;
procedure start_vibra(freq:integer; duration:integer)
включить вибро с частотой freq(0-без вибрации, для проверки поддержки, 1-100 - интенсивность вибрации) на duration миллисекунд
procedure stop_vibra()
выключить вибрацию.

Добавил в библиотеку обработку исключений, чтобы не зависало в случае ошибок.


На счет батареи - DirectUtils тут точно не поможет, можно попробовать через getProperty, где-то на форуме был список ключей.

[S_007]

От всей души тебе благодарен ViNT, за либу и за такое внятное, подробное пояснение, СПАСИБО!