From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,d0077c2a3f44fc09
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!news.glorb.com!newsfeed.pionier.net.pl!news.man.lodz.pl!not-for-mail
From: "Slawo - MIR" <mszajac@poczta.onet.pl>
Newsgroups: comp.lang.ada
Subject: Re: Port LPT + ADA (whta do I wrong?)
Date: Tue, 7 Dec 2004 19:13:52 +0100
Organization: LODMAN - Metropolitan Area Network in LODZ, Poland
Message-ID: <cp4rsq$qou$1@kujawiak.man.lodz.pl>
References: <copra3$a8p$1@kujawiak.man.lodz.pl>
 <cosu9o$mnk$1@kujawiak.man.lodz.pl>
 <1gr5159dmj2vk.5tkxiw6kxrmv.dlg@40tude.net>
NNTP-Posting-Host: r1ds.p.lodz.pl
X-Trace: kujawiak.man.lodz.pl 1102443226 27422 212.51.207.146 (7 Dec 2004
 18:13:46 GMT)
X-Complaints-To: abuse@man.lodz.pl
NNTP-Posting-Date: Tue, 7 Dec 2004 18:13:46 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-Priority: 3
X-MSMail-Priority: Normal
Xref: g2news1.google.com comp.lang.ada:6820
Date: 2004-12-07T19:13:52+01:00
List-Id: <comp.lang.ada>

Hello !

O.K., but it still doesn't read :|
I did it all you wrote, and now the LPT_Error is raised :-(, and nothing is
read from LPT port :(

struktura: aliased Win32.Winbase.OVERLAPPED;

struktura.Offset := 16#01#;


if
Win32.Winbase.Readfile(hLPT,st'address,Dword(1),read'access,struktura'access
) = Win32.False then

        Put_Line ("Nie udalo sie odczytac z LPT");

        raise LPT_Error;    --this exception is raised

end if;



stan := st;



I try to assingn to variable (field of record) "struktura.Offset" and  to
"struktura.OffsetHigh" some different values - 16#379# (address of input
register), 16#01#... and it didn't work :(



Help, someone ! :(