Оптимизация кода

[[Smarik]]

Сейчас делаю игрушку для телефона (java) но пишу на мидлет паскале, если тестировать игру на емуляторе пк, то все хорошо работает, на телефоне при запуски игры видишь белый екран, судя по всему у телефона не хватает памяти и процессор слаб...посоветуйте рациональные методы вывода графики и может быть есть где то программа которая тестируюе .jar приложение или исходный код (хоть паскаля хоть j2me) и выводит системные требования для приложения?

[Kostia]

Возможные ошибки
FillRect не там стоит!
Repaint делать не забываешь?
Слева во вкладке properties попробуй разные версии MIDP и MIDlet type.

И еще, модель телефона можно узнать?

[mutabor]

Я удивляюсь, такой повод изучить Яву, нет все этот MP терзают

[[Smarik]]

Nokia 3250 тестировал на 4 нокиях включая E50 нигде не идет.
FillRect ставил вначале цикла repeat
Repaint не забываю, ставлю в конце цикла =) експерементировать с мидп пробовал...
mutabor я бы с удовольствием выучил, но нет возможности качать 300мб софта и сдк для j2me.

[Kostia]

Попробуй поспрашивать тут

[[Smarik]]

Хорошо, но все таки тут еще спрошу =)

program NewProject;
var
    img:array [0..1] of image;
    key,x,y,i,stor:integer;
begin
for i:=0 to 1 do
img[i]:=LoadImage('/'+i+'.png');
x:=50;
y:=50;
stor:=0;
    repeat
SetColor(255,255,255);
FillRect(0,0,getWidth,GetHeight);
    if stor=0 then	
DrawImage(img[0],x,y) else	DrawImage(img[1],x,y);
key:=GetKeyPressed;
    if key=KE_KEY4 then begin
stor:=0; 
x:=x-2;
end;
    if key=KE_KEY6 then begin
stor:=1;
x:=x+2;
end;
repaint;
delay(50);
    until GetKeyClicked=KE_KEY0;
end.

вот код и сам jar Файл, на пк игра идет, на телефоне опять же белый екран, в чем тут ошибка?

[Kostia]

Тут ошибок нет, скорее всего - это корявость MP или у Nokia немного другие стандарты на счет файловой системы и для загрузок картинок нужно поюзать какуюнибудь библиотеку!
Я залил на телефон и там все работает! У меня Sony Ericsson W800i

[[Smarik]]

Спасибо, очень помог, теперь хоть ясно что причина не в моих руках.

[[Smarik]]

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

Попробуй поспрашивать тут

Все таки проблема оказалась в моих руках, на случий если кто сталкнется с такой проблемой (обшарив весь форум который посоветовал Костя я понял что я один такой) ява регистрозависимый язык у меня был формат .PNG а загружал в массив я .png

[[Smarik]]

Возникла еще одно проблема и поетому может переименовать тему в midlet pascal? на форуме булиана чтот не помогли, надеюсь на вас

                                program FedorGame;
type
TLevel=record
x,y,level:integer;
img:image;
end;  
TFedor=Record
hp,speed:integer;
x,y,rand:integer;
st:string;
img:image
end;
var
lev:TLevel;
Fed:TFedor;
enter:string;
score:integer;
procedure NewGame;  
var
key:integer; 
exit,clicked:command;                         
begin
FillRect(0,0,getWidth,GetHeight);
lev.level:=1;
{загружаем какртинку в зависимости от уровня}
lev.img:=LoadImage('levimg'+lev.level+'.PNG'); 
{находим координаты центра екрана}
lev.x:=(GetWidth/2)-(GetImageWidth(lev.img)/2);
lev.y:=(GetHeight/2)-(GetImageHeight(lev.img)/2);
{загружаем персонажа}
fed.img:=LoadImage('/4.PNG');
{находим координаты центра екрана}
fed.x:=(GetWidth/2)-(GetImageWidth(fed.img)/2);
fed.y:=(GetHeight/2)-(GetImageHeight(fed.img)/2);
{говорим что персонаж смотрит направо}
fed.st:='right'; 
{софт клавиша}
exit := CreateCommand('Выход', CM_EXIT, 1); 
AddCommand(exit); 
repeat
FillRect(0,0,getWidth,GetHeight);
{проверяем содержание переменной Score и устанавливаем уровень}
if score<99 then lev.level:=1; 
if (score>100) and (score<199) then lev.level:=2; 
if (score>200) and (score<399) then lev.level:=3;
if (score>400) and (score<699) then lev.level:=4;
if (score>700) and (score<=1000) then lev.level:=5;
{устанавливаем скорость персонажа в зависимости от уровня}
fed.speed:=lev.level;
{рендом для создания анимации}
randomize;
{если персонаж смотрит налеов загружаем либо 0.PNG или 1.PNG или 2.PNG, получается анимация}
if fed.st='left' then 
begin 
fed.rand:=random(3);
fed.img:=LoadImage('/'+fed.rand+'.PNG');
end;
{аналогично в другую сторону}
if fed.st='right' then 
begin 
fed.rand:=random(6)-3;
fed.img:=LoadImage('/'+fed.rand+'.PNG');
end;
{рисуем задний план и персонажа}
DrawImage(lev.img,lev.x,lev.y);
DrawImage(fed.img,fed.x,fed.y);
{управление}
key:=GetKeyPressed;
if key=KE_KEY2 then
fed.y:=fed.y-fed.speed;
if key=KE_KEY8 then
fed.y:=fed.y+fed.speed;
if key=KE_KEY6 then 
begin
fed.st:='right';
fed.x:=fed.x+fed.speed;
end;
if key=KE_KEY4 then 
begin
fed.st:='left';
fed.x:=fed.x-fed.speed;
end;
repaint; 
delay(50);
clicked := getClickedCommand; 
{ждем нажатия клавиши выход}
until clicked = exit; 
if clicked=exit then halt;
{удаляем софт клавишу}
removeCommand(exit);
end;

когда программа доходит до етой процедуры игра показывает чистый дисплей, запускал процедуру отдельно от остальных, тоже самое...