C语言里面的outportb()在Delphi里面有没相同功能的函数

[caojiang]

C语言里面的outportb()在Delphi里面有没相同功能的函数

[caojiang]

up

[caojiang]

up

[comanche]

没有, windows api 里都没有, 看是什么东东的了, 232 的用文件代替

[xixuemao]

在VC中C语言里的outputb和inportb对应的函数为_inp和_outp,应该是读取I/O端口的函数吧

在Delphi里应该可以用汇编来实现吧.

具体楼主查查资料吧

[xixuemao]

找找有没有读写I/O的控件,或者看看汇编in/out的相关资料应该可以实现的.

下班回家啦.^_^

[xixuemao]

最后一贴,找到点资料,参考下:
实现对端口读写



public: // User declarations
void __fastcall OutPort(unsigned short port,unsigned char value);
unsigned char __fastcall InPort(unsigned short port);

void __fastcall TForm1::OutPort(unsigned short port,unsigned char value){
asm
{
MOV DX,port; //把端口地址送到处理器DX寄存器中
MOV AL,value; // 把value 送到处理器AL寄存器中
out DX,AL; // 把AL寄存器中的值送到端口
};
}
//---------------------------------------------------------------------------

unsigned char __fastcall TForm1::InPort(unsigned short port){
unsigned char value;
asm
{
MOV DX,port;
in AL,DX;
MOV value,AL;
};
return value;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
OutPort(0x37a,0x02);
OutPort(0x379,0x00);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int value;
value=InPort(0x37a);//从地址为37aH的端口读入数据
ShowMessage(value);
}