[futurebasic] Re: QuickTime Get Files dialog...

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : November 1997 : Group Archive : Group : All Groups

From: Bill Sanford <bsanford@...>
Date: 19 Nov 97 11:33:26 -0600
I'd like to thank John and the others who replied and helped me out!

This list is a fantastic resource...

Before the list was recently moved to the new server, I wasn't able to
post to the list because our mail server wouldn't talk to the old server,
but now all is well !! 

Yippie....

Hopefully I can provide some help once in a while...

Bill Sanford
Director of Engineering and Operations
--------------------------------------------
KAWE Ch-9 Bemidji  -  KAWB Ch-22 Brainerd
Public TV for Northern and Central Minnesota
**  Visit our web site at www.nmptv.org   **
--------------------------------------------
** Support Your Local Public TV Station!! **
--------------------------------------------


John Morrison wrote:
>Try this...
>
>% _acount,0
>
>CLEAR LOCAL MODE
>LOCAL FN SFPGetFilePreview(where&,@prompt&, fileFilter&, numTypes%,
>typeList&, dlgHook&, @sfReply&, dlgID%, filterProc&)
>'--------------------------------------------------------
>`
>`   MOVE.L ^where&, -(sp)        ;point
>`   MOVE.L ^prompt&, -(sp)       ;prompt string address
>`   MOVE.L ^fileFilter&,-(sp)    ;fileFilter procPtr
>`   MOVE.W ^numTypes%, -(sp)     ;number of file types
>`   MOVE.L ^typeList&,-(sp)      ;array address of 4 longs (DIM
>myTypes&(3),pass as @myTypes&(0))
>`   MOVE.L ^dlgHook&, -(sp)      ;dialog hook routine ptr
>`   MOVE.L ^sfReply&, -(sp)      ;address of 88 byte StandardFileReply
>RECORD
>`   MOVE.W ^dlgID, -(sp)         ;dialog ID
>`   MOVE.L ^filterProc&, -(sp)   ;dialog filterproc
>`   DC.W    $303C,$0042,$AAA3     ;trap number
>`
>END FN
>
>CLEAR LOCAL
>LOCAL FN openPreview
>prompt$ = ""
>FN SFPGetFilePreview(0,prompt$, 0, 0, 0, 0, sfReply&, dlgID%,
>filterProc&)
>LONG IF PEEK(@sfReply& + _sfGood)
>WINDOW 1
>fileName$;63 = (@sfReply& + 10)
>volRefNum% = {@sfReply& + 6}
>PRINT volRefNum%
>PRINT fileName$
>XELSE
>volRefNum = 0
>dirID& = 0
>END IF
>
>END FN
>
>FN openPreview
>
>DO
>UNTIL FN BUTTON
>SYSTEM
>
>
>It will even preview sounds, QT's etc.
>
>
>John M.
>--
>To unsubscribe, send ANY message to <futurebasic-unsubscribe@...
m>
>
>RFC822 header
>-----------------------------------
>
>Received: from freegroups.net (148.59.131.2) by nmptv.org
> with SMTP (Eudora Internet Mail Server 1.2); Tue, 18 Nov 1997 14:15:53
-0600
>Received: (qmail 11155 invoked by alias); 18 Nov 1997 19:57:04 -0000
>Mailing-List: contact futurebasic-help@...; run by ezmlm
>Reply-To: futurebasic@...
>Delivered-To: mailing list futurebasic@...
>Received: (qmail 26879 invoked from network); 18 Nov 1997 19:57:02 -0000
>Received: from fh102.infi.net (208.131.160.101)
>  by stewart.pnet.msen.com with SMTP; 18 Nov 1997 19:57:02 -0000
>Received: from 206.100.248.141 (pm1-141.clt.infi.net [206.100.248.141])
>	by fh102.infi.net (8.8.5/8.8.5) with SMTP id PAA30163
>	for <futurebasic@...>; Tue, 18 Nov 1997 15:10:21 -0500 (EST)
>Message-ID: <3471F74F.7B63@...>
>Date: Tue, 18 Nov 1997 15:15:10 -0500
>From: John Morrison <jsmorr@...>
>Reply-To: jsmorr@...
>Organization: Morrison softDesign
>X-Mailer: Mozilla 3.01 (Macintosh; I; PPC)
>MIME-Version: 1.0
>To: futurebasic@...
>Subject: Re: [FB] QuickTime Get Files dialog...
>References: <H00004c00043c696@MHS>
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
>