unit1.cpp

PC 端口控制

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "PrnPort.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  if(!WinIo.IsValid)
   {
     Application->MessageBox("无法装载 WinIo 驱动程序!", "错误信息", MB_OK|MB_ICONSTOP);
     Application->Terminate();
   }

  LedDat = 0;
  Timer1->Enabled = false;
  ParallelPort.Base = 0x378; //默认为 0x378
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ParallelPort.printf("用打印机打印内容\r\n");
  for(int i=1; i<=3; i++)
    ParallelPort.printf("i=%d\r\n",i); //用打印机输出i值
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  //测试直接控制并行口的数据和状态信号
  if((LedDat<<=1)==0)LedDat=1;
  ParallelPort.Data = LedDat;                 //数据输出移位
  ParallelPort.Ctrl^=TParallelPort::pcSelect; //Select引脚电平翻转
}
//---------------------------------------------------------------------------