Rational Apex for NT WinNT API problem.

Rational Apex for NT WinNT API problem.

[Roga Danar]

Hi,

  What is happening here?  The debugger tells me that the result coming back
from the
call to Create is an "invalid address".

  I am using the Rational Apex WinAPI.  Ofcourse, I could be using it wrong but
I don't know what is going on here, exactly.  I think that the invalid address
does not equal null and therefore passes the initail condition and then die when
this invalid address is dereferenced.

  The error is "Constraint Error"  as indicated below.

  Hope this block is enough.

     declare

            function "=" (L, R : Windows.Pvoid) return Boolean
               renames Windows."=";

            function "=" (L, R : Windows.Void) return Boolean
               renames Windows."=";

        begin -- Open port block

            Handle := Winbase.Createfile
                         (Port_Name,
                          V_Bits.Bit_Or
                             (Windows.Generic_Read, Windows.Generic_Write),
                          0,
                          null,
                          Winbase.Open_Existing,
                          Windows.File_Attribute_Normal,
                          null);

-- **** ==> Contraint Error here <== ****
           if (Handle /= null) and then
------------------------------------------------------------
               (Handle.all /= null) then
                if Handle.all.all = Winbase.Invalid_Handle_Value then

                    Win_Show.Display (" ** Invalid handle ** ");

                end if;

                Win_Show.Display (" ** Comm handle is NULL ** ");

            end if;


        exception
          when E: others =>
                Win_Show.Display
                   ("Somethin' BAD happened OPENING " & Port_Name &
                    Aen (E));
        end; -- Opening port



--