C/Visual C - acceso a puerto paralelo

#include <vcl.h>

#include <windows.h>

#pragma hdrstop

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    // Dirección del puerto paralelo (generalmente 0x378 para LPT1)

    const int PORT_ADDRESS = 0x378;

    // Enviar un byte al puerto paralelo

    outportb(PORT_ADDRESS, 0xFF); // Enviar 255 (todos los bits en alto)

    // Leer un byte del puerto paralelo

    unsigned char data = inportb(PORT_ADDRESS);

    ShowMessage("Datos leídos del puerto: " + IntToStr(data));

}

// Funciones para acceder a los puertos

void outportb(unsigned short port, unsigned char value) {

    __asm {

        mov dx, port

        mov al, value

        out dx, al

    }

}

unsigned char inportb(unsigned short port) {

    unsigned char value;

    __asm {

        mov dx, port

        in al, dx

        mov value, al

    }

    return value;

}