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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a3914332df5b6ff9
X-Google-Attributes: gid103376,public
From: David Botton <David@Botton.com>
Subject: Re: GetOpenFilename
Date: 1999/04/19
Message-ID: <371BD4D2.F8EE9F39@Botton.com>#1/1
X-Deja-AN: 468540700
Content-Transfer-Encoding: 7bit
References: <4AsR2.646$dd.256779@WReNphoon3>
To: "Boulais, Jeffrey M" <jboulais@sikorsky.com>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@gate.net
X-Trace: news.gate.net 924570836 65012 199.227.148.101 (20 Apr 1999 01:13:56
 GMT)
Organization: CyberGate, Inc.
Mime-Version: 1.0
NNTP-Posting-Date: 20 Apr 1999 01:13:56 GMT
Newsgroups: comp.lang.ada
Date: 1999-04-20T01:13:56+00:00
List-Id: <comp.lang.ada>

There is an example of using the GetOpenFileName function on the Ada
Source Code Treasury:

http://www.botton.com/ada

The example is located under the OS section:

Using the Open File Common Dialog Box
http://www.botton.com/ada/os/win32-opencmdlg.html

There are many other examples there that you may find of interest. New
examples are always on the hunt, so let me know if you have any thing
interesting.

David Botton

"Boulais, Jeffrey M" wrote:
> 
> I am trying to use GetOpenFilename to get an open file dialong.  I have code
> that work fine under gnat 3.04
> 
> ( using -gnatp ) that doesn't work now under gnat3.11 (w/o -gnatp).  I was
> previously using an unchecked
> 
> conversion of the first character of a string to a Win32.LPSTR for the
> lpstrFile field.  Now this causes the
> 
> open file dialog to not display.  If I use a dummy variable defined of type
> Win32.LPSTR, the dialog opens
> 
> fine, but I can't get the filename from the LPSTR type to a standard String.
> I also tries assigning the LPSTR
> 
> variable the unchecked conversion of the string, and that made it stop
> working as well.
> 
> Does anyone have suggestions for this type of thing?  Greatly appreciated...
> 
>    -**** Posted from RemarQ, http://www.remarq.com/?a ****-
>  Search and Read Usenet Discussions in your Browser - FREE -