Как прикрутить Giveio ?

Тема в разделе "Delphi - Система", создана пользователем caveman, 2 дек 2007.

Статус темы:
Закрыта.
  1. caveman

    caveman Гость

    Доброе время суток. Мне необходимо писать в LPT-порт. Скачал пакет, в котором лежит модуль GIVEIO.pas и другие файлы. Вот листинг моего тестового модуля:
    Код (Text):
    unit LPTforHobby;  

    interface  

    uses  
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
    Dialogs, StdCtrls, GIVEIO;  

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

    var  
    Form1: TForm1;  

    implementation  

    {$R *.dfm}  

    procedure OutPort(PortAddr:  
    word; Databyte: byte);  
    {$IFDEF WIN32}  
    assembler; stdcall;  
    asm  
    mov al,Databyte  
    mov dx,PortAddr  
    out dx,al  
    end  
    {$ELSE}  
    begin  
    Port[PortAddr] := DataByte;  
    end;  
    {$ENDIF}  

    procedure TForm1.Button1Click(Sender: TObject);  
    begin  
    InitDriver;  
    OutPort(888, 200);  
    DoneDriver;  
    end;  


    end.
    В данном случае пытаюсь записать в порт байт 200. Мне Windows при нажатии на button1 выдает ошибку про Priveleged Level. В чем могут быть грабли?
    PS все файлы giveio лежат в той же папке, где и мой модуль.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей