Piligrim, ViNT, и кто знает как работать с jsr75 help!!!

[Monster]

Помогите!!!!!!!! Делаю прогу. Прототип винды на тел. Нужно сделать работу с фс из этой проги. Такое есть у winmobile От m1kc на http://m1kc.ucoz.ru/load/11-1-0-84 . Хочу похожее. Не знаю как реализовать. Если нужно, дам сорцы проги. Help!!!!!!!!!!!!

[ViNT]

Большинство функций для работы с ФС реализованы в библиотеках Lib_jsr75i и Lib_jsr74ex, к ним есть примеры и описания, там большинство функций описано и проиллюстрировано примерами.

[Monster]

Смотрел я описания, но не пойму как в "окне" моей проги вывести содержимое папок с дальнейшим открытием файлов. Неделю голову ломаю!

[ViNT]

Вот когда-то писал прогу, там есть выбор файла из ФС.

[Monster]

Большое спс!!!

[Monster]

В проге разобрался. Но ....... может я и полный ламак ......... сделать ImageViewer в граф режиме я все же не смог. Спасибо и за это.

[_Nox_]

покажи что ты тут напрогал

[Monster]

сильно не ругайте за код
прогу только начал писать, поэтому немного

program MiniWini;
Uses	alpha;
uses jsr75i;
 
const
s=2;

var
win8,win7,win6,win5,win4,win3,win2,win1,win:image;

BULMycomp,BULdwigokna,BulDrawKomp,Buldcpanel,BULcpanel,BULdwcpanel:boolean;

xcp,ycp,xkc,ykc,xko,yko,xmk,ymk,x,y:integer;

procedure kompdwig; //двигаем значок компа
 begin
if keyToAction(GetKeyPressed)=Ga_Up then yko:=yko-s;
if keyToAction(GetKeyPressed)=Ga_down then yko:=yko+s;
if keyToAction(GetKeyPressed)=Ga_left then xko:=xko-s;
if keyToAction(GetKeyPressed)=Ga_right then xko:=xko+s;


if xko<0 then xko:=0;
if xko>getwidth-20 then xko:=getwidth-20;
if yko<0 then yko:=0;
if yko>getheight-35 then yko:=getheight-35;

if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;


if (getKeyClicked=ke_pound) then BulDrawKomp:=false;
end;

procedure mycomp; //рисуем окно компа и двигаем
begin
drawimage(win5,xmk,ymk);
if ((x>xmk) and (y>ymk) and  (x<xmk+50) and (y<ymk+20) and (keyToAction(GetKeyPressed)=GA_fire)) then 
begin  BULdwigokna:=true;
end;
end;

procedure dwigokna;  //двигаем комп
begin
if keyToAction(GetKeyPressed)=Ga_Up then ymk:=ymk-s;
if keyToAction(GetKeyPressed)=Ga_down then ymk:=ymk+s;
if keyToAction(GetKeyPressed)=Ga_left then xmk:=xmk-s;
if keyToAction(GetKeyPressed)=Ga_right then xmk:=xmk+s;
if keyToAction(GetKeyPressed)=ke_key2 then ymk:=ymk-s;
if keyToAction(GetKeyPressed)=ke_key8 then ymk:=ymk+s;
if keyToAction(GetKeyPressed)=ke_key4 then xmk:=xmk-s;
if keyToAction(GetKeyPressed)=ke_key2 then xmk:=xmk+s;


if xmk<0 then xmk:=0;
if xmk>getwidth-20 then xmk:=getwidth-20;
if ymk<0 then ymk:=0;
if ymk>getheight-35 then ymk:=getheight-35;

if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;


if (getKeyClicked=ke_pound) then BULdwigokna:=false;
end;

Procedure ankomp; //подказка для компа при наведении
begin
if GetKeyPressed=ke_star then Buldrawkomp:=true;
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Мой Компьютер',x+13,y+17);
setcolor(111,111,111);
drawimage(win,x+10,y+15);
if GetKeyPressed=ke_key5 then BULMycomp:=true;
if GetKeyPressed=ke_key0 then
end;

Procedure anpusk; //подказка для пуска при наведении
begin
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Начните работу с нажатия этой кнопки',x+13,y);
setcolor(111,111,111);
if GetKeyPressed=ke_key0 then
end;

Procedure ancpanel; //подказка для панели управления при наведении
begin
if GetKeyPressed=ke_star then Bulcpanel:=true; //значок
setcolor(244,242,242);
setcolor(0,0,11);
drawText('Панель управления',x+13,y+17);
setcolor(111,111,111);
if GetKeyPressed=ke_key5 then BULdcpanel:=true; //окно панели управления
end;


procedure dcpanel; //окно панели управления
begin
drawimage(win5,xcp,ycp);
if ((x>xcp) and (y>ycp) and  (x<xcp+50) and (y<ycp+20) and (keyToAction(GetKeyPressed)=GA_fire)) then 
begin  BULdwcpanel:=true;
end;
end;

procedure cpanel; //значок анели управления
 begin
if keyToAction(GetKeyPressed)=Ga_Up then ykc:=ykc-s;
if keyToAction(GetKeyPressed)=Ga_down then ykc:=ykc+s;
if keyToAction(GetKeyPressed)=Ga_left then xkc:=xko-s;
if keyToAction(GetKeyPressed)=Ga_right then xkc:=xkc+s;


if xkc<0 then xkc:=0;
if xkc>getwidth-20 then xkc:=getwidth-20;
if ykc<0 then ykc:=0;
if ykc>getheight-35 then ykc:=getheight-35;

if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;


if (getKeyClicked=ke_pound) then Bulcpanel:=false;
end;


procedure dwcpanel; //двигаем окно панели управления
begin
if keyToAction(GetKeyPressed)=Ga_Up then ycp:=ycp-s;
if keyToAction(GetKeyPressed)=Ga_down then ycp:=ycp+s;
if keyToAction(GetKeyPressed)=Ga_left then xcp:=xcp-s;
if keyToAction(GetKeyPressed)=Ga_right then xcp:=xcp+s;
if keyToAction(GetKeyPressed)=ke_key2 then ycp:=ycp-s;
if keyToAction(GetKeyPressed)=ke_key8 then ycp:=ycp+s;
if keyToAction(GetKeyPressed)=ke_key4 then xcp:=xcp-s;
if keyToAction(GetKeyPressed)=ke_key2 then xcp:=xcp+s;


if xcp<0 then xcp:=0;
if xcp>getwidth-20 then xcp:=getwidth-20;
if ycp<0 then ycp:=0;
if ycp>getheight-35 then ycp:=getheight-35;

if x<0 then x:=0;
if x>getwidth-20 then x:=getwidth-20;
if y<0 then y:=0;
if y>getheight-35 then y:=getheight-35;


if (getKeyClicked=ke_pound) then BULdwcpanel:=false;
end;

{КУРСОР}
Procedure kursor;
begin
repeat
DrawImage(win3,0,0);
DrawImage(win7,0,304); 
DrawImage(win6,0,304); 
drawimage(win4,xko,yko);
drawimage(win8,xkc,ykc);
if keyToAction(GetKeyPressed) = GA_left then x:= x-s; 
if keyToAction(GetKeyPressed) = GA_right then x:=x+s;
if keyToAction(GetKeyPressed) = GA_Up   then y:=y-s;
if keyToAction(GetKeyPressed) = GA_down then y:=y+s;
if GetKeyPressed = ke_key4 then  x:=x; 
if GetKeyPressed = ke_key6 then  x:=x;
if GetKeyPressed = ke_key2 then  y:=y;
if GetKeyPressed = ke_key8 then  y:=y;
if ((x>xko) and (y>yko) and  (x<xko+20) and (y<yko+22))  then
begin
ankomp;
end;

if ((x>xkc) and (y>ykc) and  (x<xkc+20) and (y<ykc+22))  then
begin
ancpanel;
end;

if ((x>0) and (y>304) and  (x<55) and (y<320))  then
begin
anpusk;
end;

if BULdwcpanel=true then dwcpanel;
if BULcpanel=true then cpanel;
if Buldcpanel=true then dcpanel;
if BULmycomp=true then mycomp;
if BULdwigokna=true then dwigokna;
if BulDrawKomp=true then kompdwig;

if ((x>3) and (y>3) and  (x<23) and (y<25))  then
begin
if keyToAction(GetKeyPressed)=Ga_fire then BULmycomp:=true;
end;
{в углы}
if GetKeyPressed=ke_key1 then 
begin x:= x-s; y:=y-s; end;

if GetKeyPressed=ke_key3 then 
begin x:= x+s; y:=y-s; end;

if GetKeyPressed=ke_key7 then 
begin x:= x-s; y:=y+s; end;

if GetKeyPressed=ke_key9 then 
begin x:= x+s; y:=y+s; end;

{чтоб курсор не выходил за экран}
if x<0 then  x:=0;
if x>239 then  x:=239;
if y<0 then  y:=0;
if y>319 then  y:=319;
drawimage(win1,x,y);
repaint;
until GetKeyPressed=ke_key0;

end;

procedure base;
begin
  if not OpenPlayer('/m_22794_94327.mp3', 'audio/mpeg') then // загрузка музыки
     Halt; // ошибка при загрузке (не поддерживается midi формат или звук отключен)
   if not SetPlayerCount(1) then // проигрывать бесконечное число раз 
     Halt;
   if not StartPlayer then // начать проигрывание
     Halt;
     delay(30);
win4:=SetOpaque(win4, 150); 
xcp:=33;
ycp:=50;
xkc:=30;
ykc:=5;
xko:=5;
yko:=5;
xmk:=33;
ymk:=50;
x:=33;
y:=33;
win8:=loadimage('/cpanel2.png');
win7:=loadimage('/140zz.png');
win6:=loadimage('/puskbutton.png');
win5:=loadimage('/comp1.png');
win4:=loadimage('/mycomp.png');
win3:=loadimage('/55zzz.png');
win2:=loadimage('/55z.png');
win1:=loadimage('/kur.png');
BULMycomp:=false;
kursor;
repaint;
end;

begin
base;
drawimage(win3,0,0);
repaint;
delay(1000);
 if not OpenPlayer('/Windows Vista Logoff.wav.MP3', 'audio/mpeg') then // загрузка музыки
     Halt; // ошибка при загрузке (не поддерживается midi формат или звук отключен)
   if not SetPlayerCount(1) then // проигрывать бесконечное число раз 
     Halt;
   if not StartPlayer then // начать проигрывание
     Halt;
     delay(30);
drawimage(win2,0,0);
repaint;
delay(5000);
end.

[odd]

Выложил бы уже весь проект в архиве, а то к программе там слишком много файлов прикреплено, а у меня их нет.
Да, и переименуй файлы с двойным расширением типа "music.wav.mp3" на некоторых телефонах от таких имен может возникнуть проблема при открытии, я уже не говорю о том, что не все телефоны поддерживают MP3.