|
Как объединить 2 динамических массива в VBA
#36893880
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: мы пришли, кто мы, куда идем?
Сообщения: 6 294
|
|
Komil_,
Копимемори это функция АПИ
MSDNСовет 171. Используйте функцию CopyMemory из Win32 API
При разработке приложений довольно часто встречается простая задача пересылки N последовательных байтов из одной области оперативной памяти в другую. В VB проблема возникает, когда такая область памяти определена не именем переменной, а в виде адреса (указателя — Pointer). К сожалению, встроенные средства VB не позволяют работать с адресами, а порой это крайне необходимо.
Так, некоторые функции Win API, используемые для получения информации о ресурсах системы (например, VerQueryValue), возвращают в качестве параметра адрес области памяти FiAddr&, где лежит искомая информация. Но как переписать эти данные, к примеру, в целочисленный массив для дальнейшей обработки в среде VB? Это можно сделать с помощью функций Win API.
В составе Win16 API для этого имелась функция HMemCpy:
Листинг 1.
1.
Declare Sub HMemCpy Lib "kernel"_
(hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Она появилась только в расширенном варианте функций в Windows 3.1 (в версии 3.0 ее не было), а в пакете VB 3.0 ее описание было приведено только в файле WIN31WH.HLP.
Что же касается Win32 API, то в описании WIN32API.TXT для VB 4.0 и 5.0 о функции HMemCpy или ее аналоге даже и не упоминается. Более того, в книге Дэна Эпплмана по Win32 API, на которую мы часто ссылаемся (о ней мы писали в Совете 133), ничего не говорится о подобной функции. Однако, поскольку такая функция действительно очень нужна, Дэн предлагает использовать процедуру agCopyData из его собственной библиотеки APIGI32.DLL, которая приводится на прилагаемом компакт-диске.
Все это выглядит весьма странно. Более тщательный поиск, проведенный с помощью специалиста московского отделения Microsoft Юрия Томашко, увенчался успехом — в Win32 есть функция копирования байтов CopyMemory и ее описание появилось в VB 6.0 в файле WIN32API.TXT. Почему Microsoft скрывает от пользователей VB 4.0 и 5.0 ее существование, и почему Дэн Эпплман хранит эту тайну — можно только гадать. Кстати, настоящее имя функции в библиотеке KERNEL32 — RtlMoveMemory:
Листинг 2.
1.
2.
3.
Public Declare Sub CopyMemory Lib _
"kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, _
ByVal Length As Long)
Вот типичный пример применения этой функции:
Листинг 3.
1.
2.
3.
4.
5.
6.
7.
8.
Di& = VerQueryValue(VerBuf( 0 ), "\", FiAddr&, FiLen&)
' Возвращаются:
' FiAddr& - адрес области с информацией
' о версии файла
' FiLen& - длина области в байтах
CopyMemory ByVal FiAddr&, Ffi, 52
' Ffi - структура данных для информации о версии
' 52 - ее длина
CopyMemory можно использовать для создания очень полезных функций преобразования типов данных (см. Совет 172), а также для ускорения в сотни и даже тысячи раз выполнения операций, реализуемых традиционными средствами VB. Например, для копирования целых массивов или их фрагментов:
Листинг 4.
1.
2.
3.
4.
5.
6.
7.
Dim Arr1!( 1000 ), Arr2!( 2000 ), i%
For i = 1 To 1000 : Arr1(i) = i + 0 . 1 : Next
' Вместо:
' For i = 1 To 1000: Arr2(1000 + i) = Arr1(i): Next
' Использовать:
CopyMemory Arr2( 1001 ), Arr1( 1 ), 1000 * 4
'
MsgBox ("result =" & Arr2( 1600 ))
|
|
|
