1

В Delphi XE2 Компилятор ругается на функции WriteProcessMemory и ReadProcessMemory, выдавая ошибку

error E2033: E2033 Types of actual and formal var parameters must be identical

В Delphi7 всё работает замечательно. Кто-нибудь сталкивался?

2
  • 2
    Не стесняемся, показываем код. Но сообщение компилятора, вроде бы, и так достаточно красноречиво: вы, передавая параметры, пытаетесь вызвать приведение типа. В Delphi 7 все могло прокатывать, например, потому что дельфёвая обертка к WinAPI-шному WriteProcessMemory выглядела немного иначе.
    – Nofate
    31 янв 2012 в 11:35
  • Любой пример для Delphi7, содержащий вышеуказанные функции, выдает такую ошибку. 31 янв 2012 в 15:32

1 ответ 1

4

Сравним определение методов в 2010 (7ки под рукой нет) и XE2:

//Delphi 2010
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
  nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;

//Delphi XE2
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;
  lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer;
  lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesWritten: SIZE_T): BOOL; stdcall;

Т.е. все что нужно - это явно указать тип данных для переменной, передаваемой в качестве lpNumberOfBytesWritten, как SIZE_T.

SIZE_T, очевидно, появился с поддержкой 64-битных систем.

2
  • Я вас люблю.. я вам раньше не говорил?)))))) 1 фев 2012 в 3:34
  • Нет, не случалось )
    – Nofate
    1 фев 2012 в 7:47

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.