|
Основной форум Сюда все проблемы связанные с программированием. |
06.07.2007, 20:15
|
#16
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
У меня работает, но у меня c650, там 100 пудов motofs, а на счет l6 не уверен . Попробуй либу JSR75 вместо mfs.
|
(Offline)
|
|
06.07.2007, 21:36
|
#17
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Помогите начинаешему ЯВеру!
А где взять её! нескажеш!
|
(Offline)
|
|
06.07.2007, 22:18
|
#18
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
|
(Offline)
|
|
07.07.2007, 00:36
|
#19
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Все переделал под JSR75 тоже не работает! не менял сомманды, только поменял название либы везеде!
А вот подскажи как мне это разделить на три процедуры! Хоть что то сделать а потом разбираться почему не работает либа!
|
(Offline)
|
|
07.07.2007, 01:38
|
#20
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Даже хз. Попробуй всетаки доступ дать вручную, малоли что. Кстати попробуй jsr75i. Спроси на мотофане какая всетаки у тебя ФС.
|
(Offline)
|
|
07.07.2007, 01:51
|
#21
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Ужу спросил жду овета! Доступ давал в ручную везде пишет доступ дан!
|
(Offline)
|
|
07.07.2007, 03:10
|
#22
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
А ты чем приложения ставишь? Если мидвеем, посмотри, какие ошибки.
|
(Offline)
|
|
07.07.2007, 05:12
|
#23
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Я ставлю МММ но могу мидвеем поставить и выложить лог!
вот лог мидвея но не при установке а при попытке считать и записать файл!
Вот лог!
|
(Offline)
|
|
07.07.2007, 13:19
|
#24
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Чё это за версия Midway(лог какрйто навороченный)?
Вообще ошибок нет.
А другие приложения с доступом к ФС работают?
|
(Offline)
|
|
07.07.2007, 14:43
|
#25
|
ПроЭктировщик
Регистрация: 27.05.2007
Сообщений: 110
Написано 40 полезных сообщений (для 33 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Pascal ужэдавно устарел! Переходи на Джаву!!!
1) Кросплатформенный (Linux, Mac, Windows, Mobile)
2) Гибкий!!!
3) Не знаешь Яву- не мечтай найти НОРМАЛЬНУЮ работу!
Сам 2-3 дня назад перешел - ужэ к окнам подбираюсь.
Шоб с Явой работать - надо иметь:
-jdk
-Intelij idea/Eclipse/JEdit/Notepad++
-туториэл
|
(Offline)
|
|
07.07.2007, 14:50
|
#26
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Всетаки на L6 JSR75.
Где грабли непонятно.
|
(Offline)
|
|
07.07.2007, 21:15
|
#27
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Спастбо что подсказал что jsr75! А доступ к ФС другие приложения имеют!
не знаю мне обешали выложить исходник Фменеджера! из не го посмотрим что можно будет сделать!
shybovycha vbmenu_register("postmenu_46390", true); Я не могу найти ни диска не книги по ява у нас в городе! А снета скачать 50-60мигов не возможности!
|
(Offline)
|
|
08.07.2007, 16:42
|
#28
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Помогите начинаешему ЯВеру!
ВСЕ ЮДИ ПОНЯЛ В ЧОМ БЫЛА ПРОБЛЕМА! НЕ НАДО БЫЛО ПИСАТЬ ПЕРЕД БУКВОЙ ДИСКА /. НУ ТЕПЕРЬ ПОДСКАЖИТЕ КАК МНЕ ЭТО ВСЕ РАЗБИТЬ НА ТРИ ПРОЦЕДУРЫ! ЧТЕНИЕ-РЕДОКТИРОВАНИЕ-СОХРАНЕНИЕ!
|
(Offline)
|
|
08.07.2007, 22:57
|
#29
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
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.
|
(Offline)
|
|
09.07.2007, 03:40
|
#30
|
Нуждающийся
Регистрация: 04.06.2007
Сообщений: 87
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: Помогите начинаешему ЯВеру!
Ok проверю! !!
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 07:00.
|