Leer direccion de memoria

[brandolin]

Hola a todos,

el problemilla es simple. Necesito leer el contenido de la direccion de memoria 201h o 513d y guardar su contenido en un archivo. Lo del archivo lo se pero no se como acceder a la direccion especificada.

¿Alguna sugerencia? Gracias desde ya

[marcoszorrilla]

Puedes hacerlo con ensamblador, pero necesitas dos números:
Segmento y Desplazamiento.

Un Saludo.

[delphi.com.ar]

Si se trata de una dirección del mismo proceso, podrías hacer algo así:

const
  BUFFER_SIZE = 1000;
var
  PData: Pointer absolute $00400000;
begin
  with TFileStream.Create('C:\MEM.DAT', fmCreate) do
    try
      WriteBuffer(PData, BUFFER_SIZE);
    finally
      Free;
    end;
end;

Saludos!

[brandolin]

En realidad lo que necesito es leer un datos que entra por el puerto del joystick y grabarlo

el puerto esta en las direcciones 201h y el largo debe ser de un integer o algo parecido.
estoy utilizando win2000

gracias

[Viet]

Esto seguro que te sirve

http://www.elrinconcito.com/delphi/trucos/Comu2.htm

Saludos

[delphi.com.ar]

¿Que te parece este código?

unit RX2_Util;

interface

uses Windows;

// set address of game port (default '$201')
procedure SetPortAddr(const addr: string);

// get current channel number and signal presence
procedure GetStatus(var chan: Integer; var signal: Boolean);

// push button for t milliseconds
procedure PushButton(t: Integer);

implementation

uses SysUtils;

var
  port_addr: Word;

function ReadPort: Byte;
begin
  asm
    mov dx,port_addr;
    in al,dx
    shr al,4
    mov result,al
  end;
end;

procedure SetPortAddr(const addr: string);
begin
  port_addr := StrToInt(addr);
end;

procedure GetStatus(var chan: Integer; var signal: Boolean);
var
  data: Byte;
const
  chan_no: array[0..7] of Integer = (0,1,2,3,0,4,0,5);
begin
  data := ReadPort;
  signal := data > 8;
  chan := chan_no[data mod 8];
end;

procedure PushButton(t: Integer);
var
  start: Integer;
begin
  start := GetTickCount;
  repeat
    asm
      mov dx,port_addr
      mov al,1
      out dx,al
    end;
  until (GetTickCount - start) >= t;
end;

initialization
  SetPortAddress('$201');

finalization 
end.

Saludos!

[delphi.com.ar]

Recién me doy cuenta que estas hablando de Win2000... dudo que esta plataforma te deje leer directamente el puerto, pero no tengo como probarlo, pues solamente tengo un Win98

Saludos!

[brandolin]

y ahora? que hacemos?

[delphi.com.ar]

Probalo, y comentanos si te funciona... caso contrario comentanos los errores!