Указатель на область памяти

[GSerg]

Довольно сложно вести подобный диалог

Я рассуждаю с позиции человека, работающего со всеми упоминаемыми языками. Я привожу те аргументы, которые считаю правильными. Я перечитал свои аргументы ещё раз и не нашёл ничего, что могло бы вызвать у недогматичного собеседника подобную реакцию.

Для тех кто знает что такое виртуальная машина, объяснять что такое псевдокод(P-code) не нужно. А вобще то это такой хитрожопый способ ...

Ну причём, причём здесь P-code???

[tyomitch]

BP, ты наверное и не заметил, что в VB5 появилась возможность компиляции в Native Code?
С тех пор "виртуальная машина" в VB есть только в виде двух букв "VM" в названии рантаймовой библиотеки. Кроме названия, её нигде больше нет.

[marvan]

Способ выполнения приложения
VB - вызовы модулей зашитых в виртуальную машину
PB - Непосредственное выполнение последовательно расположенных операций

Потрудись ка-нибудь дизассемблировать экзешник, созданный VB. Посмотри, как реализованы вызовы процедур. И подобных утверждений больше не делай.

Совершенно не понял причину наезда. Не знаю как это правильно называется:
CALL DWORD PTR DS:[<&MSVBVM60.vbaStrMove>]
но по любому, это медленнее, чем "Непосредственное выполнение последовательно расположенных операций"

С помощью CreateSAFEARRAY можно обратиться к любому участку памяти так, словно он содержит данные типа N. При этом соблюдается полный синтаксис VB, никаких копирований.

Вопрос: как создать байтовый массив, имея адрес и размер участка памяти? Пожалуйста с примером - очень надо.

[GSerg]

Код: Выделить всё

dim b() as byte

CreateSAFEARRAY ArrPtr(b), 1, PointerToData, 1, SizeOfData
'использование массива...
DestroySAFEARRAY ArrPtr(b)

http://www.vbstreets.ru/VB/Articles/65977.aspx

[FaKk2]

Код: Выделить всё

dim b() as byte

CreateSAFEARRAY ArrPtr(b), 1, PointerToData, 1, SizeOfData
'использование массива...
DestroySAFEARRAY ArrPtr(b)

http://www.vbstreets.ru/VB/Articles/65977.aspx

Браво маэстро!

Вообще здравый смысл предлагает показать зачатки интеллекта и прекратить спор

[alibek]

"Никогда не спорьте с дураком -- люди могут не заметить между вами разницы"

[GSerg]

Нет, вот только теперь - браво, маэстро

[marvan]

2 GSerg
Спасибо, разобрался, заработало. Правда в коментарии к статье сказано, "что работать используя структуру (тип) SAFEARRAY несомненно проще" - вот и вопрос: можно ли тоже самое сделать используя структуру (тип) SAFEARRAY?

[GSerg]

Мне не всё нравится в комментарии
Например, там сказано, что я ошибся с уровнем косвенности, а это не так, у меня всё правильно.
А работать через структуру SAFEARRAY - так я через неё и работаю, только это уже облачено в функции Функции используют структуру SAFEARRAY, ты используешь функции, все довольны

[Aleksej]

Вот кусочек кода для решения этой проблемы:

Код: Выделить всё

PBYTE _stdcall MapPhysToLin(PBYTE pbPhysAddr, DWORD dwPhysSize, HANDLE *pPhysicalMemoryHandle)
{
  PBYTE pbLinAddr;
  tagPhys32Struct Phys32Struct;
  DWORD dwBytesReturned;

  if (!IsWinIoInitialized)
    return false;

  if (IsNT)
  {
    Phys32Struct.dwPhysMemSizeInBytes = dwPhysSize;
    Phys32Struct.pvPhysAddress = pbPhysAddr;

    if (!DeviceIoControl(hDriver, IOCTL_WINIO_MAPPHYSTOLIN, &Phys32Struct,
                         sizeof(tagPhys32Struct), &Phys32Struct, sizeof(tagPhys32Struct),
                         &dwBytesReturned, NULL))
      return NULL;
    else
    {
      pbLinAddr = (PBYTE)((DWORD)Phys32Struct.pvPhysMemLin + (DWORD)pbPhysAddr - (DWORD)Phys32Struct.pvPhysAddress);
      *pPhysicalMemoryHandle = Phys32Struct.PhysicalMemoryHandle;
    }
  }
  else
  {
    _asm
    {
      Mov BX, WORD PTR [pbPhysAddr + 2]
      Mov CX, WORD PTR [pbPhysAddr]
      Mov SI, WORD PTR [dwPhysSize + 2]
      Mov DI, WORD PTR [dwPhysSize]
    }


    DPMICall(0x800, (DWORD)pbPhysAddr);   

    _asm
    {
      Jnc Success
      Xor BX, BX
      Xor CX, CX

    Success:

      Mov WORD PTR [pbLinAddr + 2], BX
      Mov WORD PTR [pbLinAddr], CX
    }
  }

  return pbLinAddr;
}


[tyomitch]

А hDriver в этом коде откуда берётся?

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