forum.boolean.name - Lib_jsr75: работа с файловой системой.

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

- Библиотеки (http://forum.boolean.name/forumdisplay.php?f=124)

- - Lib_jsr75: работа с файловой системой. (http://forum.boolean.name/showthread.php?t=5498)

Ответ: Lib_jsr75: работа с файловой системой.

ViNT
Переделал на использование jsr75ex.
1. Виснет при findfirst(Dir); Если в Dir нет папок или файлов, Вместо того чтоб вернуть пустую строку как в конце списка возвращает findnext.
2. Скорость работы примерно равна варианту с jsr75i, и составила 1200 мс на 30 папок и файлов. Почемуто выйгрыша нет. Вот процедура:

PHP код:




procedure ReadDir(MyDir : string);  // читать все папки и файлы в 2 строки 
var time : integer; 
begin 
  time := GetRelativeTimeMs; 
  if MyDir = '' then begin 
    DirsStr := jsr75ex.get_roots;  // взять корень файловой системы 
    FilesStr := ''; 
  end   
  else begin 
    DirsStr := '';   
    FilesStr := ''; 
    s := jsr75ex.findfirst('/'+MyDir);     // взять первый объект 
    while s <> '' do begin 
      if jsr75ex.is_directory('/'+MyDir + s) > 0 then 
        DirsStr := DirsStr + s + '|' 
      else 
        FilesStr := FilesStr + s + '|'; 
      s := jsr75ex.findnext;  
    end;  {while}  
  end;  
  DrawText(IntegerToString(GetRelativeTimeMs - time), 10, 200); 
  repaint; 
  delay(2000);  
end;

Ответ: Lib_jsr75: работа с файловой системой.

У меня почему-то MP пишет нет ...
функций в jsr75i: Есть похоже только одна функция get_dirs...

Ответ: Lib_jsr75: работа с файловой системой.

Подскажите ,пожалуйста, почему у меня МП (2.02 и 3.0 бета 6) вылетает с ошибкой "Отправлять, не отправлять отчет" при компиляции кода?

PHP код:




jsr75i.open_file('/e:/res.txt'); 
res:=jsr75i.get_stream;

Заранеее спасибо.

Ответ: Lib_jsr75: работа с файловой системой.

Цитата:

Сообщение от Molegos (Сообщение 144967)

PHP код:




jsr75i.open_file('/e:/res.txt'); 
res:=jsr75i.get_stream;

Заранеее спасибо.

Попробуй поставить совместимость с windows 98.
Правая кнопка мыши на ярлыке►Свойства►Совместимость.

Ответ: Lib_jsr75: работа с файловой системой.

При компиляции ошибка на строке с
jsr75i.open_file('/e:/res.txt');
error, identifier '(' is not a procedure or virable name.
Чего это такое?

Ответ: Lib_jsr75: работа с файловой системой.

Вообще это глюк MP, но ошибка видимо в том, что нет присваивания переменной результата, возвращаемого функцией.
Должно быть нечто в роде res:=jsr75i.open_file('/e:/res.txt');

Ответ: Lib_jsr75: работа с файловой системой.

Кроме исправления бага с зависаниями добавил:

Код:

public static int create_folder(String name) - создать папку

public static int folder_size(String name) - получить размер дериктории в байтах

Осмелился добавить себя в "доработчиков" библиотеки :rolleyes:

Ответ: Lib_jsr75: работа с файловой системой.

Piligrim, какой процедурой удаляется папка?

Ответ: Lib_jsr75: работа с файловой системой.

Небольшая модификация:
write_string_a - запись строки с преобразованием ascii>unicode (записывает русский текст в файл в win-кодировке)
Автор: DaGGeR