C语言里面的outportb()在Delphi里面有没相同功能的函数 C语言里面的outportb()在Delphi里面有没相同功能的函数 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 没有, windows api 里都没有, 看是什么东东的了, 232 的用文件代替 在VC中C语言里的outputb和inportb对应的函数为_inp和_outp,应该是读取I/O端口的函数吧在Delphi里应该可以用汇编来实现吧.具体楼主查查资料吧 找找有没有读写I/O的控件,或者看看汇编in/out的相关资料应该可以实现的.下班回家啦.^_^ 最后一贴,找到点资料,参考下:实现对端口读写 public: // User declarationsvoid __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);} 数据库里的数据加密了,有加密算法,绑定到dbgrid,咋显示明文? 有关access数据表的自动编号数据类型插入问题. 爱情究竟是TMD的什么东西 关于DBGRID的一个菜鸟级问题 请推荐一个实现ftp上传下载与显示服务器FTP目录树的第三方控件 用windows低下的ms-dos方式在ms-dos输出一些字符,我需要帮忙! 如何... 日期的模糊查询 怎样在delphi中拦截消息 idtcpserver readbuffer 读数据问题 关于QReport分页的问题 数据库连接设置的问题!新手的问题。
实现对端口读写 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);
}