Midletpascal только ТУТ в этой теме !, Пишем на Паскале - запускаем на телефоне Поделиться Опции

[miha-il2]

А я уж понадеялся на лёгкий способ.
В получаемом списке папки/файлы разделяются знаком вертикальной черты (у меня на мобиле просто значка такобо нет...).
Вот и приходится извращаться =)

[om2804]

Люди, больно видеть как вы убиваетесь по поводу файл менеджера, могу помочь , стучите 335962171 или пишите в личку
P.S. В МидлетПаскале всегда приходиться извращаться

Сообщение отредактировал om2804 - 21.7.2007, 10:17

[MOTOCoder]

Я полученную строку просто парсил в цикле-после каждого "|" писал значение в массив-не очень экономично, но вполне преемлемо.

[om2804]

Кому интересно. Исходники файлбраузера + либы (copyfile копирует файл по кускам)


Удаление, копирование, переименование думаю сами прикрутите если надо. В либе есть почти всё, кроме присвоения аттрубутов файлам.
com\telecom\FileSystemAccessor.class в мидлет добавлять обязательно

Сообщение отредактировал om2804 - 24.7.2007, 7:35

[shevayura]

есть код ::
for i:=1 to count do
begin
tempstring:=(readline(res));
x:=i+1;
text[i] := tempstring;
end;

вопрос: как остановить цикл когда строки в файле закончились? а то программа стопорится когда файл заканчивается.. или расскажите как здесь обозначаются пустые строки.

[rusiki]

mojno vmesto "for...do"..
isplolzvatai "repeat..until"

Сообщение отредактировал rusiki - 17.3.2008, 11:19

[shevayura]

Так смысл не в этом.. readline возвращает строку прочитаную из ресурса. если строки закончились он возвращает "пустую строку".. но мидлет при привоении (или сравнении) пустой строки переменной почемуто стопорится.. немогу понять почему.. мне нужно выйти из цикла (любого) когда строки закончатся, а я немогу, потомучто мидлет зависает при конце..

Добавлено позже (17.3.2008, 16:20):
Вот описания проблеммы:

Код

program Table;

var
u,i,y:integer;
t:string;
res:resource;


begin
res:=openresource('/data.txt');
if (resourceavailable(res)) = false then halt;


repeat
u:=u+15;
i:=i+1;
t:=t+'.';
drawtext(t,0,u);
drawtext((integertostring(length(t))),20,u);
repaint;
until (readline(res)) = '';

drawtext('complete',0,u+15);
repaint;
delay(10000);
end.

в файле 3 строки.. когда цикл заходит на четвёртый круг мидлет просто виснет и далее работать отказывается.. тоесть строку drawtext('complete',0,u+15); он уже не обрабатывает.. и так везде.

Добавлено позже (17.3.2008, 16:20):
хоть бери да на яву переучивайся...

[grafmoto]

until (readline(res)) = '';

ну а так:
until (readline(res)) = nil;
?

[rusiki]

poprobui posledniu stroku ostaviti pustim


toesti
"lalala
lalal2
lalal3

"

[belpilgrim]

в МР криво сделано чтение из ресурса. надо последнюю строку делать маркером, например ##END## и сравнивать с ним при чтении иначе он виснет на ней.

[shevayura]

ну а так:
until (readline(res)) = nil;
?

тоже не пойдёт.. мидлет виснет при попытке прочтения строки, которой вобщем то и нету..

таки криво..

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

Кстати! а с помощью библиотеки jsr75i этот глюк можно обойти?

Добавлено позже (18.3.2008, 21:09):
Я тащусь с мидлетпаскаля!:)

Код

procedure edit;
begin
  showTextBox('Edit string', text[sel], 400, TF_ANY);
  Save := createCommand('Save', CM_OK, 2);
    Cancel := createCommand('Cansel', CM_BACK, 1);
  addCommand(Save);
    addCommand(Cancel);
repaint;
    repeat
   delay(100);
    until getClickedCommand <> emptyCommand;
    
    if getClickedCommand = Save then
begin
text[sel]:=getTextBoxString;
end;
    if getClickedCommand = Cancel then

end;

и когда нажимаю любую команду оно почемуто кидает меня на начало процедуры... а тут в чём загвоздка?
тоесть со строки until getClickedCommand <> emptyCommand; оно кидает меня на showTextBox('Edit string', text[sel], 400, TF_ANY); ..... юмор у них оригинальный какойто.
З.Ы.: извините что надоедаю..

Сообщение отредактировал shevayura - 18.3.2008, 17:10

[belpilgrim]

В принципе, никто не мешает сделать свою процедуру чтения из ресурса, просто всем лень.
В jsr75i этой пробемы нет.
По поводу приведенного кода: никуда он не кидает, он просто ждет команду и обрабатывает ее, а вот что дальше делает твоя программа это вопрос, может она просто форму не закрывает?

[shevayura]

хм.. там всё дело было в самом простом.. вместо getkeypressed нужно было написать getkeyclicked... но всёровно не работает строка text[sel]:=getTextBoxString;.. какая строка до этого была в масиве - такая и остаётся..

[belpilgrim]

Код

  
  Cmd := getClickedCommand;
until Cmd <> emptyCommand;
if Cmd = Save then

по моему все-таки так надо. getClickedCommand возвращает верное значение только первый раз

[shevayura]

спс.. терь понял.. это типа getkeycklicked - тоже только первый раз..
а библиотека jsr75i при вызове процедуры read_string что возврацает, если строки закончились?

[shevayura]

МидлетПаскаль ругается при вызове процедуры jsr75i.write_string(s) - говорит что в модуле такой процедуры нету.. правописание и синтаксис проверял... опечатка исключена..

[belpilgrim]

а версия МР какая? должна быть не ниже 2.0.2

[shevayura]

2.0.2.. а выше и нету вроде бы..
тем не менее ругается.. где можно скачать новую версию либы?

[belpilgrim]

forum.boolean.name в разделе MIDletPascal

[shevayura]

печатаю себе на досуге:

Код

Procedure saveall;
begin
setcolor(255,255,255);
fillrect(0,0,getwidth,getheight);
setcolor(0,0,0);
i:=jsr75i.open_file('/b/temp.txt');
jsr75i.reset;
if i = 1 then
    begin    
    drawtext('Saving',0,0);
    repaint;
    for i:=0 to x-1 do
        begin
        jsr75i.write_string(text[i]);
            setcolor(255,255,255);
            fillrect(0,59,getwidth,80);
            setcolor(0,0,0);
            drawtext(integertostring(i),1,60);
            repaint;
        end;
    i:=jsr75i.close_file('/b/temp.txt');
    end;
    else
    drawtext('error',  0,0);
repaint;
end;

а мидлетпаскаль мне:
error, library/unit does not contain function 'write_string'
а я ему: "?;(;?%;*";*№..
а он мне: format c:\ ....
вот такая у нас ним любовь...
какие мысли?

[belpilgrim]

Код

program JSR75iDemo;
uses
    jsr75i;
procedure Alert(msg: String);
var
    cm : command;
begin
  showAlert('Info', msg, loadImage('/icon.png'), ALERT_INFO);
  cm := createCommand('OK', CM_OK, 1);
  addCommand(cm);
  repeat
        delay(100);
  until getClickedCommand <> emptyCommand;
  showForm; // Убираем предупреждение с экрана
end;  
begin
    jsr75i.file_create('/root1/test.txt');
                jsr75i.open_file('/root1/test.txt');
    jsr75i.write_string('test line to file'+chr(13));
    if jsr75i.close_file('') <> 1 then
        Alert('Error closing file!!!');
    alert('All done');
end.

Проверено на МР 2.0.2 оригинальном и русской версии. Библиотека взята с boolean.name
Все прекрасно компилируется.

Сообщение отредактировал belpilgrim - 11.4.2008, 6:59

[MOTOCoder]

Че-то Boolean.name накрылся, никто не знает, что случилось?

[Budyaga]

Есть ли в MP паскалевский оператор CASE или аналогичный ему??? Ни в одном описании не могу найти. Как быть???

[grafmoto]

Budyaga, бр:
case I of
1..5: Caption := 'Low';
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;

равносильно:

if I in [1..5] then
Caption := 'Low'
else if I in [6..10] then
Caption := 'High'
else if (I = 0) or (I in [10..99]) then
Caption := 'Out of range'
else
Caption := '';

[Risk]

Привет всем. Вот решил заниматься програмированием, уже как второй день :-) скажите пож, а лучше напишите, какой оператор рисует в буфер обмена часть изображеия? И если не трудно примерчик тоже.

[MOTOCoder]

В java нет понятия "буфера обмена".
Или имеется в виду копирование на Canvas?

[Risk]

Да на Canvas, но программирование идет в этой проге не на java, a на pascal.

[MOTOCoder]

Да на Canvas, но программирование идет в этой проге не на java, a на pascal.

Я понимаю, что прога пишется на MP, но в итоге получается мидлет, такой же, как если бы он был написан на java.
В MP для копирования части изображения служит функция ImageFromImage:

Код

var
si:image;

begin
si:=LoadImage('/icon.png');
DrawImage(ImageFromImage(si,0,0,5,5),0,0);
Repaint;
Delay(2000);
end.

Данный код загрузит изображение "icon.png" и нарисует в левом верхнем углу экрана часть этого изображения, с координатами (0,0) и размером 5*5.

[lol2Fast4U(tm)]

У меня мп 2.0.2 русский не разрешает пдключить более одной либы!((
что делать?

[MOTOCoder]

У меня мп 2.0.2 русский не разрешает пдключить более одной либы!((
что делать?

Пересаживайся на английскую или пиши

Код

uses Lib_jsr75;
uses Lib_jsr75ex;
uses ...

Этот глюк возник в процессе русификации, и вряд ли будет устранен в ближайшее время.

[miha-il2]

Как не разрешает? Если вылетает отчёт об ошибке то поставь совместимость с Win98

[digget]

Mortiy, не знаеш ли ты, как использовать вывод графики, если была нажата клавиша(дольше, чем на 1сек? )

[miha-il2]

Mortiy, не знаеш ли ты, как использовать вывод графики, если была нажата клавиша(дольше, чем на 1сек? )

чёт я не понял? ты хочешь различать короткие и длинные нажатия?

[beelineman]

А есть мидлет, который на мобилу ставится, а потом через мобилу и пишешь проги на Паскале? Потом он чтобы сам мог всё скомпилировать и в мобилу положить яву. Потом устанавливаешь через "Установить новое" и всё! Готово приложение! Мне было бы так удобней, когда например не с компом а такая-то софтина нужна, пишешь на мобиле, потом запускаешь!
Можно ли такое реализовать?

[BAK]

beelineman, почитай здесь, уже так можно на мобиле кодить,
http://waper.ru/forum/topic/312618
http://waper.ru/forum/topic/216839
http://waper.ru/forum/topic/268437
http://waper.ru/forum/topic/279505
http://waper.ru/forum/topic/225116
http://waper.ru/forum/topic/290052
http://waper.ru/forum/topic/288210

[Risk]

подскажите пожалуйста как воспроизвести файл из фс телефона

if not openPlayer('*мпз файл*', 'audio/mpeg') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;

не хочет всопроизводить, возможно пишу не правильно расположение мп3(скажите как надо)

есть либы Lib_jsr75i.class и Lib_jsr75ex.class

помогите пож

телефон L9 с доступом к фс

Добавлено позже (22.3.2009, 17:09):
ещё вопрос: какая функция возвращает, например: false, когда мелодия проиграна?

и ещё вопрос: почему когда пишу в коде
Uses jsr75i;
или
Uses jsr75ex;
и пытаюсь компильнуть у меня вылетает MidletPascal? как это исправить?

Сообщение отредактировал Risk - 22.3.2009, 14:11

[belpilgrim]

Для воспроизведения из ФС надо использовать библиотеку mmapi.
Чтобы отлавливать события плеера надо использовать библиотеку player.
Для компиляции программ, использующих библиотеки, МР надо ставить совместимость с Win98.
PS: Все это есть здесь.

[Risk]

Для компиляции программ, использующих библиотеки, МР надо ставить совместимость с Win98.

как это сделать? я слышал что этот глюк на руссифицированных МР, у меня английская.

[belpilgrim]

Это глюк МР любых версий. Жмем правую кнопку на файле МР.exe и выбираем нужный вариант на вкладке "Совместимость"

[Risk]

belpilgrim, огромное четловеческое спс, хы, очень помог!!! как смогу поставлю +