Admin: 1 revision imported

2021-02-07T06:51:38Z

1 revision imported

Admin: /* Примеры */

2020-05-11T11:07:35Z

‎Примеры

New page

{{infobox function
|name=Load
|object=[[Объект загружаемой системной библиотеки|Библиотека]]
|caption=Загрузка библиотеки
|type=1
|status=2
|db=0
|exception=Невозможно превратить в строку, файл библиотеки не найден
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Объект загружаемой системной библиотеки|Библиотека]]}}
Функция производит попытку загрузки указанной библиотеки в память. Если путь не указан, операционная система ищет файл библиотеки в стандартных папках, заданных в переменных окружения. Если для загрузки библиотеки требуется загрузить еще какую-либо промежуточную библиотеку, последняя должна также находиться по указанному пути (либо быть доступна в окружении). В момент загрузки клиент временно меняет текущую директорию в соответствии с путем загрузки, чтобы предусмотреть такие случаи. Если библиотека (или связанные с ней библиотеки) не найдена, функция вызовет исключение. Клиент автоматически вызовет функцию отмены загрузки библиотеки, когда объект будет удален из системы. Функция не принимает серверного пути для загрузки. Если необходимо использовать файл, находящийся на сервере, его необходимо сначала скопировать на локальный компьютер (к примеру, во временную папку).

== Синтаксис ==
<code>
{{Grey|Lib.}}'''Load'''(''<Путь и имя библиотеки (STRING)>''):''<Новый объект (LIB)>''
</code>
==== Аргументы ====
* <code>''<Путь и имя библиотеки (STRING)>''</code> - Путь и имя или просто имя библиотеки. Серверные пути не допускаются. Если путь не указан, операционная система попытается найти библиотеку самостоятельно. Примеры: <code>"advapi32.dll"</code>, <code>"C:\Sound\vorbis.dll"</code>.

==== Возвращаемое значение ====
Возвращается новый объект библиотеки, после чего можно регистрировать функции.

== Примеры ==
<pre>
Function ПолучитьСтрокуЗначенияРеестра(Раздел,Путь,Значение)
aAdvapi32:=Lib.Load("advapi32.dll");
aAdvapi32.RegisterFunction("RegOpenKeyW:RegOpenKey","stdcall","UN,^SZW,@UN","I32");
aAdvapi32.RegisterFunction("RegQueryValueExW:RegQueryValueEx","stdcall","UN,^SZW,@UI32,@UI32,P,@UI32","I32");
aAdvapi32.RegisterFunction("RegCloseKey","stdcall","UN","I32");
ERROR_SUCCESS:=0;

аКлюч:=0;
If aAdvapi32.RegOpenKey(Раздел,Путь,аКлюч)<>ERROR_SUCCESS Then
Exit "";
EndIf;
Try
ТипЗнач:=0;
Размер:=1024;
rData:=MemoryRecord.Create("szData:SZW"+Размер);
rData.Allocate();
If aAdvapi32.RegQueryValueEx(аКлюч,Значение,,ТипЗнач,rData,Размер)<>ERROR_SUCCESS Then
Exit "";
EndIf;
Finally
aAdvapi32.RegCloseKey(аКлюч);
EndTry;
Exit rData.szData;
EndFunction

HKEY_CLASSES_ROOT:=$80000000;
HKEY_CURRENT_USER:=$80000001;
HKEY_LOCAL_MACHINE:=$80000002;
HKEY_USERS:=$80000003;
HKEY_PERFORMANCE_DATA:=$80000004;
HKEY_CURRENT_CONFIG:=$80000005;
HKEY_DYN_DATA:=$80000006;
Стр:=ПолучитьСтрокуЗначенияРеестра(HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\System\BIOS","BaseBoardProduct");

Message("Результат чтения наименования версии материнской платы: "+Стр);
</pre>

← Older revision	Revision as of 06:51, 7 February 2021
(No difference)

Lib.Load - Revision history

Admin: 1 revision imported

Admin: /* Примеры */