filesearch.avi 2

[KoenPiller]

Hi,

I would like to play the FileSearch.AVI file whilst the SQL SELECT() is composing my array.

Any Idea how to do?

Thanks,

Koen

 

[Diederik]

Maybe thread184-39909 is helpfull?

Diederik Vermeeren
verm1864@exact.nl

 

[KoenPiller]

Diederik,

Oops, I am looking for a way to play the "findfile.avi" and not the filesearch.avi, sorry.
Yes I have studied Vlad's suggestion on 184-39909 already, that does not bring me to the result yet. Have also studied and tried the advice on Microsoft HowTo Question 136763, but you don't want to know howmany error numbers I have seen when I copied and run that program.
Wil keep on looking.
Koen

 

[Diederik]

Koen,

Sorry to have stated the obvious (but then, it seems that so much people don't use the 'search' facility...)

Maybe this is helpfull (didn't create a class myself yet):
Check out Q260155 on

http://support.microsoft.com/support/kb/articles/Q260/1/55.ASP

It contains a (downloadable) example, using Microsoft Animation Control 6.0 (MSCOMCT2.OCX)

Once again, didn't have the time yet to implement it myself, but it seems straight forward enough.

Have fun implementing, Diederik Vermeeren
verm1864@exact.nl

 

[jonscott8]

Hi Koen,

Tom Gahagan did an introduction to playing AVI files using the MS Animation Control in the August '00 & October '00 VFUG newsletters. They are available, with sample downloads, at

http://www.vfug.org.

A simplistic example of this functionality:

WITH MyForm.MyAnimationControl
.Open('C:\mypath\findFile.Avi')
.Play()
SELECT * FROM MyTable WHERE MyCond=MyCry INTO ARRAY MyArr
.Stop()
.Close()
ENDWITH

Also, the Windows Media Player includes an OCX. See:

http://msdn.microsoft.com/library/p...softwindowsmediaplayercontrolversion64sdk.htm

Jon Hawkins

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed

 

[KoenPiller]

Hi Jon,
This was a golden tip. Tom's article is as simple and with your simplistic example even more simple all works fine. Thanks!

 

[Guest_imported]

Dear Jon,

Here is a learning experience to use "find-file". I put it in the click event of the splash form just before I open the 00001rolodexsearch form. here is what I did...

alfcod=''
select dex
WITH 000001SPLASH.MyAnimationControl
Open('C:\JOHN\findFile.Avi')
Play() SELECT * FROM DEX
WHERE MyCond=MyCry
INTO ARRAY MyArr
Stop()
Close()ENDWITH
do zcolectionsall.prg
set filter to
set order to
go top
set order to TAG
thisform.refresh

do forms 000111rolodexsearch.scx

====any corrections and tnx ahead of time.