Помогите начинаешему ЯВеру!

[ViNT]

У меня работает, но у меня c650, там 100 пудов motofs, а на счет l6 не уверен . Попробуй либу JSR75 вместо mfs.

[BASSON XVI]

А где взять её! нескажеш!

[ViNT]

В либах Pilgrim'а:
http://piligrim.at.tut.by/java/mp.html

[BASSON XVI]

Все переделал под JSR75 тоже не работает! не менял сомманды, только поменял название либы везеде!

А вот подскажи как мне это разделить на три процедуры! Хоть что то сделать а потом разбираться почему не работает либа!

[ViNT]

Даже хз. Попробуй всетаки доступ дать вручную, малоли что. Кстати попробуй jsr75i. Спроси на мотофане какая всетаки у тебя ФС.

[BASSON XVI]

Ужу спросил жду овета! Доступ давал в ручную везде пишет доступ дан!

[ViNT]

А ты чем приложения ставишь? Если мидвеем, посмотри, какие ошибки.

[BASSON XVI]

Я ставлю МММ но могу мидвеем поставить и выложить лог!

вот лог мидвея но не при установке а при попытке считать и записать файл!
Вот лог!

[ViNT]

Чё это за версия Midway(лог какрйто навороченный)?
Вообще ошибок нет.
А другие приложения с доступом к ФС работают?

[shybovycha]

Pascal ужэдавно устарел! Переходи на Джаву!!!
1) Кросплатформенный (Linux, Mac, Windows, Mobile)
2) Гибкий!!!
3) Не знаешь Яву- не мечтай найти НОРМАЛЬНУЮ работу!
Сам 2-3 дня назад перешел - ужэ к окнам подбираюсь.
Шоб с Явой работать - надо иметь:
-jdk
-Intelij idea/Eclipse/JEdit/Notepad++
-туториэл

[ViNT]

Всетаки на L6 JSR75.
Где грабли непонятно.

[BASSON XVI]

Спастбо что подсказал что jsr75! А доступ к ФС другие приложения имеют!
не знаю мне обешали выложить исходник Фменеджера! из не го посмотрим что можно будет сделать!

shybovycha vbmenu_register("postmenu_46390", true); Я не могу найти ни диска не книги по ява у нас в городе! А снета скачать 50-60мигов не возможности!

[BASSON XVI]

ВСЕ ЮДИ ПОНЯЛ В ЧОМ БЫЛА ПРОБЛЕМА! НЕ НАДО БЫЛО ПИСАТЬ ПЕРЕД БУКВОЙ ДИСКА /. НУ ТЕПЕРЬ ПОДСКАЖИТЕ КАК МНЕ ЭТО ВСЕ РАЗБИТЬ НА ТРИ ПРОЦЕДУРЫ! ЧТЕНИЕ-РЕДОКТИРОВАНИЕ-СОХРАНЕНИЕ!

[ViNT]

Примерно так:

program text;
uses jsr75;

var
buf,fname:string;
efile,i:integer;
ok,cancel,clicked:command;

procedure Init;//Инициализация
begin
showform;
ok:=createcommand('OK',cm_ok,0);
cancel:=createcommand('Отмена',cm_cancel,0);
efile:=formaddtextfield('Файл:','/a/mobile/text.txt',128,tf_any);
end;

procedure LoadFile;//Загрузка файла
begin
fname:=formgettext(efile);
buf:=read_file(fname);
showtextbox('Редактирование',buf,2000,tf_any);
end;

procedure SaveFile;//Сохранение файла
begin
fname:=formgettext(efile);
if file_exists(fname)=1 then
delete_file(fname);//иначе просто допишет текст в конец файла
write_file(fname,buf);
end;

procedure CheckCommand;//Проверяем, что нажал пользователь
begin
addcommand(ok);
addcommand(cancel);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
end;

begin
Init;
CheckCommand;
LoadFile;
CheckCommand;
showform;
buf:=gettextboxstring;
CheckCommand;
SaveFile;
end.

[BASSON XVI]

Ok проверю! !!