Привет.
Работаю с телефоном Siemens S65. Компилятор Midlet Pascal 2. Возникли вопросы.
Как работать с файловой системой: получить список файлов, загружать их, читать.

перейти на Java. Поставить WTK, JSR-75

LordGuest, а что это за зверь такой midlet pascal ?

Это такой компилятор для разработки мидлетов. Все пишется на паскале, а компилятор преобразует все в байт-код на Java. В общем можно писать мидлеты для мобильных на удобном языке, правда возможности похоже ограничены MIDP 1/2.

On a computer, the data is saved to files which exist on a disk drive. Mobile phones don't have disks, so MIDlet applications need a different method of saving data. J2ME provides access to phone's flash memory through an interface called record store.

Ozzя, есть у мобильника и файловая система, и приложения могут сними работать, просто необходима поддержка ряда API производителями аппаратов. (RMS конечно рульная штука, но я так понимаю вопрос был именно про файловую систему телефона, то есть смотрим в сторону JSR-75)
как с ним работать на более или менн примитивном уровне, я уже кажется описывал здесь где-то.
Если не поленюсь и время будет, но накатаю статейку как этим можно начать пользоваться, хотя всю инфу можно конечно найти на java.sun.com

Dancer
Я разве спорю ;)
Вопрос был про Midlet Pascal. У него нет такой возможности.

Продолжаем тему
http://midletpascal.com


______________
а то вроде форум программистов в про midletpascal не слова нет 


моё первое приложение на midlet pascal


Присоединённый файл ( Кол-во скачиваний: 48 )
 wgrtetris.jar 12,21 Kb

WGR, симпатичный тетрис. Молодец! =)

если я ничего не путаю, MidletPascal позволяет подключать "сторонние" библиотеки на Java как модули. Потому проблема состоит только в поиске библиотеки, реализующей нужные функции...
[offtop]
Проект, кстати, уже больше полгода не развивается... А жаль... Реализовали бы ещё динамические массивы, и расширили бы возможности записей - даже без объектов можно было бы обойтись... А так... 
[/offtop]

ЭХХХХ как на душе хорошо когда тебя похвалили

А подключаемые библиотеки очень легко делать  (я смотрел)
найду инфу скину сюда

______
народ подтягиваитесь -есть много вопросов будем обсуждать
могу исходник тетриса выложить....

Добавлено @ 12:04 

НЕ надо ничего искать 
Человек знающий яву -легко напишет

Это сообщение отредактировал(а) WGR - 11.8.2006, 12:03

WGR, человек, знающий Java - будет писать на Java, а не пользоваться довольно ограниченным транслятором с Паскаля.

skyboy, НУ понятное дело 
я имел ввиду кому нужна библиотека попросит друга которыу напишет на яве библиотеку с нужными процедурами и функциии 
и скажет тому другу название функции и входные переменные 
и уСЁ 

Или можно ёщё самому пробовать писать библиотеки небольшие
для начального обучения явы в самый раз - для тех кто начинал в паскале

Добавлено @ 12:58 
skyboy, 



и с библиотеками там нет ограничений

Интересно, а как выглядит исходный код на этом МидлетПаскале?   
Кто-нибудь может привести пример? 

Да, я тож хо увидеть  Правда код паскаля уже не видел 4 года ))

Взято с http://www.midletpascal.com/projects.php


Это сообщение отредактировал(а) Mayk - 11.8.2006, 15:48

) Извращение 

ВАУ!!!   Вот это прикол!!!!   

Настоящий процедурный подход.

Явно с любовью к Паскалю написано! 

Добавлено @ 15:59 
Особенно мне понравился цикл в самом конце проги! =)

javastic, а в j2me можно отталкиваться от событий или тоже - так же, цикл с ожиданием?

Там ожидание нажатия в отдельном системном потоке идет:


Добавлено @ 16:29 
Здесь нормально написано

Это сообщение отредактировал(а) W0LF - 11.8.2006, 16:25

skyboy, а коммандные кнопки могут обрабатываться откуда угодно и из любого класса.
А если хочешь в текущем, то просто назначаешь интерфейс обработки нажатия кнопок как CommandListener
WOLF тебе правильно истолковал.


Давай, переходи на Джаву 

Да, JAVA РУЛИТ!

Добавлено @ 16:42 

Исходник тетриса на мидлет паскаль


Присоединённый файл ( Кол-во скачиваний: 28 )
 wgrtetris.txt 20,12 Kb

отдельный поток - это хорошо. потому я и сказал, что этот интерпретатор сильно ограничен. А теперь ещё и развиваться перестал 

Перейду. Через полгода нырну...

уже на 90 процентов доделал 
универсальное приложение для мобильнык книг с рисунками

Простенький мидлет проигрывает wavку

program midi;
begin
    if not openPlayer('/windows.WAV', 'audio/x-wav') then halt;    
    if not setPlayerCount(-1) then halt; 
    if not startPlayer then halt; 
    delay(5000);     
end.
_____
А как это будет выглядеть в j2me ????????????

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

Всем, здрасте!! 
Помогите решить трабл, не доходит до меня, как исправить!!
Вот код:

procedure on (st : string) ; 
begin 
setColor(255, 255, 255); 
fillRect(0, 0, GetWidth, GetHeight); 
setColor(255, 0, 0); 
setfont(FONT_FACE_SYSTEM , FONT_STYLE_BOLD, FONT_SIZE_LARGE); 
DrawText(st, (Getwidth) div 2, ((Getheight - 6) div 2) + 1); 
repaint; 
delay(1000); 
end; 

procedure menu; 
begin 
ShowMenu('Выберите действие', CH_IMPLICIT); //это заголовок меню 
igrat := MenuAppendString('Играть'); //это добавляются 3 пункта меню 
about := MenuAppendString('Автор'); 
vyhod := MenuAppendString('Выход'); 
play := CreateCommand('Выбрать', CM_SCREEN , 1); //тут добавляются команды, для 2 кнопок сразу под экраном 
AddCommand(play); 
exit := CreateCommand('Выход', CM_EXIT, 1); 
AddCommand(exit); 
repeat //запускаем цикл, пока игрок не нажал одну из 2 кнопок 
delay(100); 
clicked := getClickedCommand; 
until (clicked = play) or (clicked = exit); 
if clicked = exit then halt; //если выбрали выход, то... 
showCanvas; // "убираем" меню 
if menuGetSelectedIndex = igrat then igra; //смотрим, какой пункт выбрал игрок и в зависимости от этого вызываем нужную процедуру 
if menuGetSelectedIndex = about then ab; 
if menuGetSelectedIndex = vyhod then halt; 
menu; //опять вызываем меню 
end; 

type zp=record 
b : boolean; 
end; 

var a : array [0..20, 0..20] of zp;

if direction_y = up then y1 := y1 - speed; 
if direction_y = down then y1 := y1 + speed; 
if direction_x = left then x1 := x1 - speed; 
if direction_x = right then x1 := x1 + speed;

key := GetKeyPressed; 
if KeyToAction(key) = GA_UP then 
if y2<>0 then y2 := y2 - 3; 
if KeyToAction(key) = GA_DOWN then 
if y2<>(GetHeight - 5) then y2 := y2 + 3; 
if KeyToAction(key) = GA_LEFT then 
if x2<>0 then x2 := x2 - 3; 
if KeyToAction(key) = GA_RIGHT then 
if x2<>(GetWidth - 30) then x2 := x2 + 3;

procedure block; 
var i,k : integer; 
begin 
for i:=0 to (GetWidth div 10) - 1 do 
for k:=0 to (GetHeight div 10) - 1 do 
if a[i,k].b then 
begin 
SetColor(0, 0, 0); 
fillRect(i*10, k*10, 10, 10 ); 
SetColor(255, 255, 255); 
drawRect(i*10+2, k*10+2, 6, 6 ); 
end; 
end; 

for z:=0 to GetWidth div 10 do 
for d:=0 to GetHeight div 10 do 
if ( d < 5 ) and ( d > 0 ) and ( z > 0 ) and ( z < (GetWidth div 10) - 1) 
then a[z,d].b:=true else a[z,d].b:= false;

if (a[ x1 div 10, y1 div 10].b) or (a[ (x1+10) div 10, y1 div 10].b) or 
(a[ x1 div 10, (y1+10) div 10].b) or (a[ (x1+10) div 10, (y1+10) div 10].b) 
then 
begin 
if direction_y = down then direction_y := up else direction_y := down; 
if direction_x = left then direction_x := right else direction_x := left; 
if (a[ x1 div 10, y1 div 10].b) then 
a[ x1 div 10, y1 div 10].b:=false; 
if (a[ (x1+10) div 10, y1 div 10].b) then 
a[ (x1+10) div 10, y1 div 10].b:=false; 
if (a[ x1 div 10, (y1+10) div 10].b) then 
a[ x1 div 10, (y1+10) div 10].b:=false; 
if (a[ (x1+10) div 10, (y1+10) div 10].b) then 
a[ (x1+10) div 10, (y1+10) div 10].b:=false; 
end;

Ошибочка в строке 15 и 34:
" error, identefier 'igrat' is not procedure, function, variable or unit name"
"newproject.mpsrc:34: error, character '.' expected, 'type' found"


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

объяви кто у тебя такой igrat а так же avtor, vyxod, play.
Var igrat,vyhod,play: UserType; 
ну или какой-то определённый в MIDlet Pascal. я в нём не силён сорри. Но при описании процедуры то обязан описать переменные, которые будут в ней использоваться, либо эти перемнные уже должны быть глобально описаны у тебя где-то "выше"

Dancer, 

Спасибо!!

У меня вот такой вот вопрос,можно ли в MP написать игры типа dope wars?

Я с этой игрой не знаком.

IMHO
Если оптимизировать графику настолько чтобы размер игры не превышал ограничения по размеру мобильного телефона для которого вы пишите, то можно.

Привет! Только начинаю писать на MidletPascal`e, поэтому еще не все разгребаю.  
Так вот. Пишу редактор расписания.Необходимо записывать данные в RecordStore. все хорошо, но русские буквы не распознает. Вот что получается.

http://ipicture.ru/Gallery/Viewfull/1689447.html

Как с этим бороться?