forum.boolean.name - Помогите начинаешему ЯВеру!

Страница 2 из 4

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Помогите начинаешему ЯВеру! (http://forum.boolean.name/showthread.php?t=3789)

ViNT	06.07.2007 20:15

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

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

BASSON XVI

06.07.2007 21:36

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

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

ViNT	06.07.2007 22:18

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

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

BASSON XVI

07.07.2007 00:36

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

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

ViNT	07.07.2007 01:38

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

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

BASSON XVI

07.07.2007 01:51

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

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

ViNT	07.07.2007 03:10

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

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

BASSON XVI

07.07.2007 05:12

Вложений: 2

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

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

ViNT	07.07.2007 13:19

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

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

shybovycha

07.07.2007 14:43

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

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

ViNT	07.07.2007 14:50

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

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

BASSON XVI

07.07.2007 21:15

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

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

BASSON XVI

08.07.2007 16:42

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

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

ViNT	08.07.2007 22:57

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

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

Код:

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

09.07.2007 03:40

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

Ok проверю! !!

Часовой пояс GMT +4, время: 14:55.

Страница 2 из 4

Показывать 64 сообщений этой темы на одной странице