Jump to content
Fórum Script Brasil
  • 0

Funções Inportb E Outportb


D4n1l0d
 Share

Question

Como eu faço para "obter" as funções inPortB e OutPortB no delphi:???

Em C seria assim ( apesar delas já virem no stdio.h )

unsigned char inportb (unsigned short _port)

{

unsigned char rv;

__asm__ __volatile__ ("inb %1, %0" : "=a" (rv) : "dN" (_port));

return rv;

}

void outportb (unsigned short _port, unsigned char _data)

{

__asm__ __volatile__ ("outb %1, %0" : : "dN" (_port), "a" (_data));

}

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

opa

faz o download da biblioteca inpout32 aqui é opensource...

copie a dll inpout32.dll que vem dentro da pasta binaries\DLL para a pasta do

sistema normalmente

Win9x,ME: c:\Windows\system

NT, 2000, XP, Vista: c:\Windows\System32

declare no seu código

function inportb(_Port: Integer): BYTE; StdCall; external 'inpout32.dll';

procedure outportb(_Port: Integer; _Data: BYTE); StdCall; external 'inpout32.dll';

abraço

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...