У меня на http-сервере периодически обновляеться картинка в формате jpg. Я написала мидлет который периодически скачивает эту картику и показывает ее на экране телефона:
program midlet;
uses im;
var
clicked, exitCmd, onCmd, offCmd: command;
begin
exitCmd:= CreateCommand('Exit', CM_EXIT, 1);
onCmd:= CreateCommand('On', CM_OK, 2);
offCmd:= CreateCommand('Off', CM_OK, 2);
AddCommand(exitCmd);
repeat
AddCommand(onCmd);
DrawText('Cam 1', 0, 0);
DrawImage(LoadImage('/fon.jpg'), 0, 20);
Repaint;
repeat
clicked:= GetClickedCommand;
if clicked = exitCmd then Halt;
until clicked = onCmd;
RemoveCommand(onCmd);
AddCommand(offCmd);
Repaint;
repeat
clicked:= GetClickedCommand;
if clicked = exitCmd then Halt;
DrawImage(im.image_from_url('http://63.71.95.8/image.jpg'), 0, 20);
Repaint;
Delay(5000);
until clicked = offCmd;
RemoveCommand(offCmd);
clicked:= GetClickedCommand;
until clicked = exitCmd;
Delay(5000);
end.
Картинка всегда примерно 5-6 Кб. Уровень сигнала всегда высокий. Проблема в том что не выдерживаеться интервал в 5 секунд. И еще бывает зависает мидлет.
Мне приходят только две причины в голову: 1) нестабильность мобильного интернета; 2) кривость используемого алгоритма.
Выскажитесь плиз кто что думает по этому поводу и если можно помогите советом.