Извините, ничего не найдено.

Dragonprof · 22.09.2006, 17:33

У меня Nokia 3230! Series 60!
очень хочеться иметь возможность доступ с файловой системой телефона!
Видел библиотеку для сименсов но я думаю она е подойдет для моего смарта!
Если есть какието соображения отпишитесь!
А если я чтото пропустил (если такое уже обсуждалось) то укажите где если не трудно!

Piligrim · 23.09.2006, 03:13

скорее всего JSR75 и библиотека jsr75i

Dragonprof · 23.09.2006, 17:07

Сообщение от pilgrim

скорее всего JSR75 и библиотека jsr75i

У меня теперь возник вопрос! Незнаю вроде все понял скопировал все в либы программы птом подключаю но как вызвать правильно функцию никак не могу понять!Если не трудно приведи пару маленьких примеров.. буду благодарен! А если библиотеки пишеш сам то хотябы манул небольшой накатал (З.Ы. это я так не указую а советую! Уважаю твой труд)...

Piligrim · 24.09.2006, 11:04

program NewProject3;
uses jsr75, str;
var i: integer; s, f, r: String;
begin
	s:= read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	write_file('root1/test1.txt', s);
	if open_file('root1/test.txt')=1 then begin
		drawText('OK',0,40);
		s:= read_string;
		drawText(s, 0, 50);
	end;
	repaint;	
	delay(5000);
end.

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

Dragonprof · 24.09.2006, 17:34

Сообщение от pilgrim

program NewProject3;
uses jsr75, str;
var i: integer; s, f, r: String;
begin
	s:= read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	write_file('root1/test1.txt', s);
	if open_file('root1/test.txt')=1 then begin
		drawText('OK',0,40);
		s:= read_string;
		drawText(s, 0, 50);
	end;
	repaint;	
	delay(5000);
end.

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

Незнаю почему но твой код ваще не прохавало!
Во первых так и не понял зачем ты сделал ( uses str )
И ваще он не хавает код грит не пойму read_file - что это значит
и так далее!
Счас опишу что у меня выдает:
---
При таком коде: (твой вариант примера):

program NewProject3;
uses jsr75,str;
var i: integer; s, f, r: String;
begin
	s:= read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	write_file('root1/test1.txt', s);
	if open_file('root1/test.txt')=1 then begin
	drawText('OK',0,40);
	s:= read_string;
	drawText(s, 0, 50);
	end;
	repaint;
	delay(5000);
end.

-- выдает такое:
...error, failed to load 'str' library/unit
...error, identifier 'read_file' is not constant, function or variable name.
2 error(s), 0 warning(s)

Ну думаю уберу из uses str - убрал:

program NewProject3;
uses jsr75;
var i: integer; s, f, r: String;
begin
	s:= read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	write_file('root1/test1.txt', s);
	if open_file('root1/test.txt')=1 then begin
	drawText('OK',0,40);
	s:= read_string;
	drawText(s, 0, 50);
	end;
	repaint;
	delay(5000);
end.

-- выдает такое:
...error, identifier 'read_file' is not constant, function or variable name.
1 error(s), 0 warning(s)

Потом вспомнил что гдето видел такое на форуме что писать нужно так
jsr75.read_file('root1/test.txt');

попробывал:

program NewProject3;
uses jsr75;
var i: integer; s, f, r: String;
begin
	s:= jsr75.read_file('root1/test.txt');
	drawText(s, 0, 30);
	s:= 'просто тетсовая stroka.';
	jsr75.write_file('root1/test1.txt', s);
	if jsr75.open_file('root1/test.txt')=1 then begin
	drawText('OK',0,40);
	s:= jsr75.read_string;
	drawText(s, 0, 50);
	end;
	repaint;
	delay(5000);
end.

-- выдает такое:
...error, error, library/unit does not constain function 'read_file'
...error, error, library/unit does not constain function 'write_file'
...error, error, library/unit does not constain function 'open_file'
... тут сказануло что нема ';' в drawText('OK',0,40);
...error, error, library/unit does not constain function 'read_string'
а тут еще сказало что нужна '.' а не ';' в

//...
end; // вот на это строке
repaint;
delay(5000);
end.

6 error(s), 0 warning(s)
опять

Вот решил перечислить все либы что лежат у меня может в них трабл! :
MIDletPascal\Libs\..
Lib_jsr75.class
Lib_jsr75s.class
Lib_rsenum.class
Lib_jsr75is.class
Lib_rsenum.java
и все собсно больше ничего не кидал...
Может я чето пропустил или чтото не так делаю! Просьба помочь разобраться!
P.S. у меня MIDlet Pascal 2.01

Dragonprof · 03.10.2006, 19:26

у меня начало пахать в мидл паскале все - разобрался (трабл был в версии паскаля)!
Вот привожу кусочек кода

program Test;
uses jsr75i;
var s:string;
begin 
  showCanvas; 
  s:=jsr75i.get_roots; 
  drawtext(s,10,10);
  repaint;
  delay(2000);
end.

компилится не выдает ошибок!
Вот тока теперь такой вопрос!
На мобилке выдает ошибку!
Говорит: ошибка 91 java.lang.Error
что делать подскажите?

shammy · 29.10.2006, 22:51

Сообщение от Dragonprof

у меня начало пахать в мидл паскале все - разобрался (трабл был в версии паскаля)!

компилится не выдает ошибок!
Вот тока теперь такой вопрос!
На мобилке выдает ошибку!
Говорит: ошибка 91 java.lang.Error
что делать подскажите?

У меня тоже 2.01 как решил проблему?
и на телефоне таже ошибка nokia 3230

Dragonprof · 02.11.2006, 00:40

Сообщение от shammy

У меня тоже 2.01 как решил проблему?
и на телефоне таже ошибка nokia 3230

Ваще проблема осталась открытой! ТОесть ява с Нокиями работать отказуется (ИМХО...)! Вот наднях скачал себе SDK для мобилы своей ( S60 ),
вот юуду разбираться... На мидлет паскале писать легко....но я уже перешел на яву, уже есть проект по ходу выполнения учу язы и его подводные камни... Все равно если не знать Java то на мидлет паскале толком ничего не напишеш!
думаю изучаю SDK я найду способ связаться с файловой системой смарта.. как только справлюсь сразу же отпишусь...
--
З.Ы. Счас юзаю NetBeans 5.0 и NetBeans Mobility Pack.

Fire_Phoenix · 18.12.2007, 17:50

Решил получить доступ к файловой системе, попробвал разобраться с библиотекой jsr75. Програмка должна вывести текст на экран из файла, в случае отсутствия файла, создает его и записывает в него 5 строчек....как я думал

на самом деле в файле только последняя строчка оказывается(

program Tester_jsr75;
uses jsr75;
var 
 label_id: integer; 
 okCommand:command;
 tmp:integer;
 aa: String;
begin 
showForm; 
tmp:=file_exists('e:/lib.dat');//проверяем существование файла
if tmp=1 then
begin
tmp:=open_file('e:/lib.dat');//открываем файл, хотя вроде и без этого работает...
for tmp:=0 to 4 do //выводим 5 строчек из файла
begin
 aa:=read_file('e:/lib.dat');
 label_id := formAddString(integertostring(tmp)+' '+aa); 
end;
tmp:=close_file('e:/lib.dat');//закрываем файл...тоже кажется не обязательно
end
else
begin//здесь создаю файл и записывю 5 строчек в него
write_file('e:/lib.dat','01'+chr(10));//chr(10), это вроде бы переход на новую строчку, если не ошибся)))
write_file('e:/lib.dat','02'+chr(10));
write_file('e:/lib.dat','03'+chr(10));
write_file('e:/lib.dat','04'+chr(10));
write_file('e:/lib.dat','05'+chr(10));
end;
//тут создается кнопочка для выхода из програмки...при использовании jsr75i до нее даже дело не доходит, прога где то будто виснет
//то же самое касается и чтения лишней строчки
okCommand := createCommand('OK', CM_OK, 1); 
addCommand(okCommand); 
while (getClickedCommand <> okCommand) do 
delay(100); 
end.

У меня Nokia 6125, хотелось бы в полную силу использовать внешнюю память.
Те функции что есть в библиотеке не достаточны, к примеру..
1 - мне нужна возможность как создать так и удалить файл
2 - мне нужна возможность использовать файл как для чтения так и для записи
3 - было бы неплохо определять сколько строк в файле, так как при чтении чего то лишнего опять все виснет
4 - было бы вообще супер, если б я мог получить доступ к произвольно выбранной строке(байту), а не читать весь файл по порядку, тоже самое и к записи относится
5 - ? запись в файл и чтение данных типа "запись"
Еще есть такой момент, при чтении из файла, у меня вылезает сообщение для каждой строки, может можно как то файл весь прочитать в какой нибудь буфер?
Возможно я что то делаю не правильно, или не так использую функции, буду рад любой помощи

Fire_Phoenix · 18.12.2007, 18:03

Можно поинтересоваться, то что я выделил в коде, специально написано?(имя файла) И что означает "root1"? Это можно подставлять вместо названия диска? Или У каких то телефонов такая структура файловой системы?

Сообщение от pilgrim

program NewProject3;
uses jsr75, str;
var i: integer; s, f, r: String;
begin
    s:= read_file('root1/test.txt');
    drawText(s, 0, 30);
    s:= 'просто тетсовая stroka.';
    write_file('root1/test1.txt', s);
    if open_file('root1/test.txt')=1 then begin
        drawText('OK',0,40);
        s:= read_string;
        drawText(s, 0, 50);
    end;
    repaint;    
    delay(5000);
end.

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

Piligrim · 18.12.2007, 21:45

выделено потому что у разных производителей разные руты. у моторолы это a или b, у SE - nand и ms
а root1 по умолчанию используется в эмуляторах WTK Sun

Fire_Phoenix · 18.12.2007, 22:11

А чем отличаются библиотеки jsr75, jsr75i, jsr75is, jsr75s
А еще что то подобное вроде бы делает mfs
Никаких справок и примеров нет по ним, может кто объяснит как их использовать?
//аха, кажется jrs75is и jsr75s расчитны на работу с Siemens
//осталось еще с остальным разобраться))
Каков порядок доступа к файлам при записи и чтении с использованием библиотек?
Поиск пути, файлов, формирование их списков меня не так сильно интересует, предпологается что файл всегда находится в одном и том же известном месте.

ViNT · 18.12.2007, 22:48

Вот пример работы с mfs.
Кстати, mfs - это либа для доступа к ФС моторол.
Большинство функций помоемуназываются также, как и в jsr75(можно просто попробовать заменить либу в uses на jsr75).
Кстати, пытаться запускать не советую т.к. всеравно не сработает(заточено под моторолу), просто почитать и разобраться.
P.S. Корневые диски можно определить функцией get_roots.
P.P.S. С Nokia дел не имел, но возможно там нужно как-то разрешать приложению доступ к ФС.

Fire_Phoenix · 18.12.2007, 23:03

Спасибо за примерчик, теперь все проясняется по тихонечку, единственное что я еще не понимаю, почему не получается записать в файл больше чем одну строку?

Ситуация у меня примерно следующая, сделал програмку для работы, там нечт вроде таблицы параметров для обработки продукции:
[тип продукции1]
параметр1
параметр2
параметр3
...
[тип продукции2]
...
Мне нужно сделать так, чтоб можно было добавлять или удалять новые типы продукции, и чтоб я мог выборочно загружать данные из файла для отображения в програмке. То есть заранее не известно сколько строк в файле, возможно у каждого типа продукции разное кол во параметров...вот сижу голову ломаю, ничего путного не получается. Файл прочитать построчно смог(заранее зная сколько строк), создать смог(только почему то в нем последняя запись сохраняется, файл получается однострочным)
А разрешение доступа я ставлю, да и сейчас подписываю используемые приложения пользовательским сертификатом, чтоб потом не париться с настройками

----------------------------------------------------------
Мои эксперименты принесли свои плоды)))
Оказывается при чтении файла функцией read_file('путь к файлу'), считывается ег полное содержание....интересно что это за тип данных такой? Ведь обычная строка 255 символов кажется, а как с этой строкой работать? В принципе. если обрабатывать ее посимфольно, ориентируяси по меткам как и при детектировании перечня дисков и файлов, то можно найти нужные мне строки. Теперь было бы еще неплохо узнать, как можно записатьв файл такую же гигантскую строку...
В справке написано
Строковый тип (string) используется для представления текста и содержит последовательности символов. В отличии от строк в других диалектах Паскаля, строки в MIDletPascal не являются массивами символов
К какому же типу данных отнести String?
Это уже получается как поток данных, какова максимальная длинна такого буфера? Я смог извлечь из файла одной строкой 5кб данных (запихнул туда какую то статью))))

 
for tmp:=0 to 5 do //чтение 5 строчек из файла
  begin
  aaa:=read_file('e:/lib.dat');
  label_id := formAddString('строка:'+integertostring(tmp)+' '+aaa+chr(10)); 
  end;

результат вывода:

строка:1 ....здесь вывелся весь файл....
строка:2 //здесь и далее пусто...
строка:3
строка:4
строка:5

Со строкой такого типа получается можно работать уже без обращения к файловой системе задействовав скажем стандартную функцию паскаля function getChar(str: string; pos:integer): char;
//ладненько, завтра рано на работу вставать, да и сил нет на эти эксперименты)

Piligrim · 19.12.2007, 10:58

Строки в Ява, а соответственно и в МР ограничены только размером хипа.
Первой библиотекой была mfs, затем она была модифицирована под jsr75. Библиотека jsr75i расширение от OvZ. Остальные созданы на их базе, конечно лучше пользоваться последней версией от ViNT, т.к. по-моему у нее наиболее полный список функций.
Функция write_file стирает старое содержимое файла и записывает в него новое. Если не ошибаюсь (на работе сейчас) для последовательной записи нужно
open_file
write_line N раз
close_file
Считать файл построчно безусловно можно, просто нужно добавить такую функцию в библиотеку если ее там нет.

2Fire Phoenix пересмотрите свой подход к форматированию текста, не стоит использовать выделение к большей части текста.