WinIO для чтения/записи портов I/O и физпамяти

[Комиссар Катани]

Сообщение от DIONISKA

else Result:=addr(PhysStruct.pvPhysMemLin);

не?

Не подходит.

Ниже привожу мой новый вариант преобразования сишных функций MapPhysToLin и GetPhysLong, но судя по ApiMonitor буфер заполняется аналогично странно.

function MapPhysToLin(var PhysStruct: TtagPhysStruct) : PByte;
var
  dwBytesReturned : DWORD;
begin
  if not DeviceIoControl(hDriver,
                         $80102040,
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
		         dwBytesReturned,nil)
    then Result:=0
      else Result:=PByte(PhysStruct.pvPhysMemLin);
end;
/////////////////////////////////////////////////////////////////////////////////////////////
function GetPhysLong(pbPhysAddr: PByte; var pdwPhysVal: PDWORD) : Boolean;
var
  pdwLinAddr : PDWORD;
  PhysStruct : TtagPhysStruct;
begin
  ZeroMemory(@PhysStruct,SizeOf(PhysStruct));
  PhysStruct.pvPhysAddress:=DWORD(pbPhysAddr);
  PhysStruct.dwPhysMemSizeInBytes:=4;
  pdwLinAddr:=PDWORD(MapPhysToLin(PhysStruct));
  if pdwLinAddr = nil then Result:=False else
  begin
    pdwPhysVal:=pdwLinAddr;
    UnmapPhysicalMemory(PhysStruct);
    Result:=True;
  end;
end;
/////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////// Вызов функции GetPhysLong //////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
  dwresult: DWORD;
begin
  GetPhysLong($C0000,dwresult);
  showmessage(inttohex(dwresult,8)); //возвращает какой-то странный (виртуальный) адрес, как правило, вида 0х00XX0000
end;

А вот сами две сишные функции из WinIo32.dll:

PBYTE _stdcall MapPhysToLin(tagPhysStruct &PhysStruct)
{
	DWORD dwBytesReturned;

	if (!DeviceIoControl(hDriver, IOCTL_WINIO_MAPPHYSTOLIN, &PhysStruct,
		sizeof(tagPhysStruct), &PhysStruct, sizeof(tagPhysStruct),
		&dwBytesReturned, NULL))
	{
		return NULL;
	}
	return (PBYTE)PhysStruct.pvPhysMemLin;
}

bool _stdcall GetPhysLong(PBYTE pbPhysAddr, PDWORD pdwPhysVal)
{
	PDWORD pdwLinAddr;
	tagPhysStruct PhysStruct;

	if (g_Is64BitOS)
	{
		PhysStruct.pvPhysAddress = (DWORD64)pbPhysAddr;
	}
	else
	{
		// Avoid sign extension issues
		PhysStruct.pvPhysAddress = (DWORD64)(DWORD32)pbPhysAddr;
	}

	PhysStruct.dwPhysMemSizeInBytes = 4;

	pdwLinAddr = (PDWORD)MapPhysToLin(PhysStruct);

	if (pdwLinAddr == NULL)
		return false;

	*pdwPhysVal = *pdwLinAddr; //интересно, я правильно перевёл присваивание в своём коде?

	UnmapPhysicalMemory(PhysStruct);

	return true;
}

[Комиссар Катани]

Сам нашёл, сам исправил!

function GetPhysLong(pbPhysAddr: PByte; var pdwPhysVal: PDWORD) : Boolean;
var
  pdwLinAddr : PDWORD;
  PhysStruct : TtagPhysStruct;
begin
  ZeroMemory(@PhysStruct,SizeOf(PhysStruct));
  PhysStruct.pvPhysAddress:=DWORD(pbPhysAddr);
  PhysStruct.dwPhysMemSizeInBytes:=4;
  pdwLinAddr:=PDWORD(MapPhysToLin(PhysStruct));
  if pdwLinAddr = nil then Result:=False else
  begin
    pdwPhysVal^:=pdwLinAddr^;
    UnmapPhysicalMemory(PhysStruct);
    Result:=True;
  end;
end;

А вот и сам вызов функции:

procedure TForm1.Button1Click(Sender: TObject);
var
  InBuffer : Pointer;
  ValueInRAM : DWORD;
begin
  GetMem(InBuffer,4);
  GetPhysLong(Ptr($C0000),PDWORD(InBuffer));
  ValueInRAM:=DWORD(InBuffer^);
  showmessage(inttohex(ValueInRAM,8));
  FreeMem(InBuffer,4);
end;

В итоге физический адрес $C0000 прекрасно отображается в линейное пространство адресов процесса. Всем спасибо за участие!