iodemo.pas

来自「直接存取硬件设备 IO 口地址 ( IO Port Address ) 的非可视」· PAS 代码 · 共 48 行

unit Iodemo;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, BAIOPort, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    BAIOPort1: TBAIOPort;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   i, j, k, z: integer;
begin
BAIOPort1.PortAddress := 97;
z := 255;

for k := 1 to 100 do
    begin
         for i := 1 to 50 do
         begin
         BAIOPort1.PortData := z;
         BAIOPort1.Write;
         z := z Xor 255;
         for j := 1 to 1000+(500*k) do ;
         end;
    end;

end;

end.