Ошибки при чтении памяти: 32 vs 64 бит в программировании на Delphi и Pascal

Delphi , Синтаксис , Память и Указатели

Название статьи:

В процессе разработки программного обеспечения на языках Delphi и Pascal, особенно при работе с системными функциями операционной системы, разработчики могут столкнуться с различными проблемами, связанными с различиями между 32-битными и 64-битными приложениями. Одним из таких примеров является использование функции ReadProcessMemory для чтения памяти другого процесса. В данной статье мы рассмотрим проблему, с которой столкнулся разработчик при переходе от 32-битной версии программы к 64-битной, и подробно опишем, как решить возникшую проблему.

Описание проблемы

Разработчик столкнулся с ошибками при попытке чтения памяти процессов с помощью 64-битной версии программы, написанной на Delphi. Ранее, при использовании 32-битной версии, таких проблем не возникало. Код, который вызывал проблемы, использовал функции OpenProcess и ReadProcessMemory для доступа к памяти процессов. После компиляции в 64-битную версию, программа начала аварийно завершаться при работе с некоторыми процессами.

Подтвержденный ответ

Проблема заключалась не в самой функции ReadProcessMemory, а в функции VirtualQueryEx, которая используется для получения информации о регионах памяти. В документации по MEMORY_BASIC_INFORMATION указано, что для работы с 32-битными и 64-битными процессами необходимо использовать соответствующие версии структуры.

typedef struct _MEMORY_BASIC_INFORMATION32 {
    // Поля структуры для 32-битного процесса
} MEMORY_BASIC_INFORMATION32;

typedef struct DECLSPEC_ALIGN(16) _MEMORY_BASIC_INFORMATION64 {
    // Поля структуры для 64-битного процесса
} MEMORY_BASIC_INFORMATION64;

В Delphi структура MEMORY_BASIC_INFORMATION определена в соответствии со старым 32-битным форматом, что приводит к проблемам при использовании в 64-битных приложениях. Для решения проблемы необходимо определить соответствующие версии структуры в коде и использовать функцию IsWow64Process для определения, является ли процесс 32-битным или 64-битным, после чего использовать соответствующий метод сканирования памяти.

Пример кода на Object Pascal для 32-битного процесса:

type
  PMEMORY_BASIC_INFORMATION32 = ^MEMORY_BASIC_INFORMATION32;
  MEMORY_BASIC_INFORMATION32 = record
    // Определение полей структуры для 32-битного процесса
  end;

function VirtualQueryEx32(hProcess: THandle; lpAddress: Pointer; var lpBuffer: MEMORY_BASIC_INFORMATION32; dwLength: SIZE_T): SIZE_T; stdcall; external 'kernel32' name 'VirtualQueryEx';

procedure TForm1.ScanMemory32(PIDHandle: THandle; const ProcessName: string);
begin
  // Реализация сканирования памяти для 32-битного процесса
end;

Аналогично, для 64-битного процесса:

type
  PMEMORY_BASIC_INFORMATION64 = ^MEMORY_BASIC_INFORMATION64;
  {$ALIGN 16}
  MEMORY_BASIC_INFORMATION64 = record
    // Определение полей структуры для 64-битного процесса
  end;

function VirtualQueryEx64(hProcess: THandle; lpAddress: Pointer; var lpBuffer: MEMORY_BASIC_INFORMATION64; dwLength: SIZE_T): SIZE_T; stdcall; external 'kernel32' name 'VirtualQueryEx';

procedure TForm1.ScanMemory64(PIDHandle: THandle; const ProcessName: string);
begin
  // Реализация сканирования памяти для 64-битного процесса
end;

И, наконец, общая функция для сканирования памяти, которая вызывает нужную функцию в зависимости от битности процесса:

procedure TForm1.ScanMemory(PIDHandle: THandle; const ProcessName: string);
begin
  // Определение битности процесса и вызов соответствующей функции сканирования
end;

Альтернативный ответ

В комментариях разработчик отметил, что проблема с замедлением работы программы при чтении памяти как AnsiString была решена путем изменения типа переменной на String. Это могло быть связано с изменениями в менеджере памяти и различиями в обработке строк в зависимости от версии Delphi.

Заключение

При переходе от 32-битных к 64-битным приложениям важно учитывать различия в структуре данных и системных вызовах. В данном случае, для корректной работы с памятью процессов, необходимо использовать соответствующие версии структур MEMORY_BASIC_INFORMATION и функции VirtualQueryEx. Это позволит избежать ошибок, связанных с несоответствием типов данных и битностью процессов.

Создано по материалам из источника по ссылке.

, с которой столкнулся разработчик при переходе от 32-битной версии программы на Delphi к 64-битной, заключается в ошибках при попытке чтения памяти процессов, возникших из-за несоответствия типов данных и системных вызовов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Память и Указатели ::