Оберон-клуб «ВЄДАsoft»

Твердыня модульных языков
Текущее время: 16 июн 2025, 14:59

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: FileSystemObject
СообщениеДобавлено: 08 сен 2018, 06:33 
Не в сети

Сообщения: 116
Откуда: Каменск-Уральский
Как получить доступ к FileSystemObject из библиотеки Scrrun.dll? Понятно, что после имени модуля надо указать ["Scrrun.dll"]; но вот дальше, как создать объект, не знаю.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 08 сен 2018, 08:05 
Не в сети
Аватара пользователя

Сообщения: 67
Откуда: Equestria
Смотри в документации раздел Platform-Specific Issues. Там подробно описан синтаксис интерфейсных модулей.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 09 сен 2018, 13:51 
Не в сети

Сообщения: 116
Откуда: Каменск-Уральский
При помощи програмки Dependency Walker узнал, что библиотека Scrrun.dll 64 битная. В BlackBox может быть загружена только 32 разрядная Dll? Если так, то как узнать на Win 64, напиример, существует ли файл?


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 09 сен 2018, 16:19 
Не в сети
Аватара пользователя

Сообщения: 67
Откуда: Equestria
Да, blackbox может загружать только 32-битные либы. Сделать 64-битную версию до сих пор никто не почесался.
Для работы с файлами, внезапно, есть модуль Files. (или подсистема Win/Lin если стандартных возможностей не хватает)


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 10 сен 2018, 17:11 
Не в сети

Сообщения: 116
Откуда: Каменск-Уральский
Что за подсистема Win/Lin? Можно по подробнее.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 11 сен 2018, 08:03 
Не в сети
Аватара пользователя

Сообщения: 67
Откуда: Equestria
Платформозависимые модули. Например модуль WinApi с готовым интерфейсом к соответствующему вендовому api. Там уж точно можно найти всё нужное для работы с файлами.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 12 сен 2018, 13:19 
Не в сети

Сообщения: 116
Откуда: Каменск-Уральский
В модуле WinApi я нашёл процедуру GetLogicalDrives (): INTEGER. Но она выдаёт какие-то странные числа. При двух логических дисках на жёском диске и одном DVD приводе выдаёт 28. Подключаю флешку - 60, две флешки - 124, три флешки - 252. Что значат эти числа? Почему не 3, 4, 5, 6?


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: FileSystemObject
СообщениеДобавлено: 12 сен 2018, 18:38 
Не в сети
Аватара пользователя

Сообщения: 1019
Откуда: Днепропетровская обл.
Len писал(а):
Почему не 3, 4, 5, 6?
А как бы ты стал хранить ВСЕ эти числа в ОДНОЙ переменной? :-)

Цитата:
Функция GetLogicalDrives возвращает число — битовую маску, в которой хранятся все доступные диски.
http://www.helloworld.ru/texts/comp/lang/visualc/vc2/25.htm

Код: "OBERON"
  1. VAR drives: SET; i: INTEGER;
  2. BEGIN
  3. drives := BITS(WinApi.GetLogicalDrives());
  4. FOR i := 0 TO 25 DO
  5. IF i IN drives THEN Log.Char(CHR(i+97)) END
  6. END;


Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 8 ] 

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
© VEDAsoft Oberon Club