comp.lang.ada
 help / color / mirror / Atom feed
From: "Martin Dowie" <martin.dowie@nospam.baesystems.com>
Subject: Re: Win32 filetype problem
Date: Fri, 14 Sep 2001 11:17:45 +0100
Date: 2001-09-14T11:17:45+01:00	[thread overview]
Message-ID: <3ba1d695@pull.gecm.com> (raw)
In-Reply-To: 3ba1d1b9$1@pull.gecm.com

Martin Dowie <martin.dowie@nospam.baesystems.com> wrote in message
news:3ba1d1b9$1@pull.gecm.com...
> System: WIntel NT, GNAT 3.13p
[snip]
> declare
>    function To_LPCSTR is
>       new Ada.Unchecked_Conversion (Source => System.Address,
                                                ^^^^^^^^^^^^^^

I'm an idiot, this should be Chars_Ptr...

>                                     Target => Win32.LPCSTR);
>    C_Filename : Chars_Ptr := New_String (Trimmed_Filename);
>    Result : Win32.DWORD;
> begin
>   Result := Win32.Winbase.GetFileAttributesA (lpFileName => To_LPCSTR (S
=>
>      C_Filename'Address));
                 ^^^^^^^^
...and then remove this!








  reply	other threads:[~2001-09-14 10:17 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-09-14  9:57 Win32 filetype problem Martin Dowie
2001-09-14 10:17 ` Martin Dowie [this message]
  -- strict thread matches above, loose matches on Subject: below --
2001-09-14 16:19 Beard, Frank
2001-09-14 18:34 ` martin.m.dowie
2001-09-15  9:16   ` Pascal Obry
     [not found] <B6A1A9B09E52D31183ED00A0C9E0888C469C65@nctswashxchg.nctswash.navy.mil>
2001-09-16  4:11 ` David Botton
2001-09-16  7:44   ` Pascal Obry
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox