Re: Thick Ada bindings to C Win32

[Nick Roberts <nick.roberts@acm.org>]

Try:


   function Addr (S : BYTE_Array) return LPCVOID is

      function To_LPCVOID is new
        Ada.Unchecked_Conversion (System.Address, LPCVOID);

   begin
      return To_LPCVOID( S(S'First)'Address );
   end;

   pragma Inline(Addr);


   procedure Put(Handle : Handle_Type; Item : in Byte_Array) is

      Successful: Win32.BOOL;
   begin

      Successful :=
         Win32.Winbase.WriteFile
         ( ...
          lpBuffer              => Addr(Item),  -- Win32.Lpcvoid
          nNumberOfBytesToWrite => Item'Length, -- Win32.Dword  => 1 bytes
          ... );

      if not Successful then raise ???_Error; end if;
   end Put;


I haven't tested this. It might be GNAT-specific. Must dash!

-- 
Nick Roberts