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

  • Автор темы caveman
  • Дата начала
Статус
Закрыто для дальнейших ответов.
C

caveman

Гость
#1
Доброе время суток. Мне необходимо писать в LPT-порт. Скачал пакет, в котором лежит модуль GIVEIO.pas и другие файлы. Вот листинг моего тестового модуля:
Код:
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 лежат в той же папке, где и мой модуль.
 
Статус
Закрыто для дальнейших ответов.