Path: news.cs.au.dk!news.net.uni-c.dk!howland.erols.net!newshub.northeast.verio.net!newsserver.jvnc.net!192.54.35.50!gmd.de!news.ruhr-uni-bochum.de!not-for-mail
From: "Sascha Kimmel" <webmaster@tricos.com>
Newsgroups: comp.lang.beta,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.components.usage,comp.lang.pascal.delphi.components.writing,comp.lang.pascal.delphi.misc
Subject: Re: AVI with sound
Date: Wed, 10 Feb 1999 18:34:34 +0100
Organization: Ruhr-Universitaet Bochum, Rechenzentrum
Lines: 38
Message-ID: <79sg4k$rjc$1@sun579.rz.ruhr-uni-bochum.de>
References: <36b23891.0@kaos.fastnet.co.uk> <78tgih$j3b$1@pegasus.csx.cam.ac.uk>
NNTP-Posting-Host: dialppp-1-46.rz.ruhr-uni-bochum.de
X-Trace: sun579.rz.ruhr-uni-bochum.de 918668244 28268 134.147.1.46 (10 Feb 1999 17:37:24 GMT)
NNTP-Posting-Date: 10 Feb 1999 17:37:24 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.0810.800
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.0810.800
Xref: news.cs.au.dk comp.lang.beta:11816 comp.lang.pascal.delphi.components.misc:17769 comp.lang.pascal.delphi.components.usage:13127 comp.lang.pascal.delphi.components.writing:15779 comp.lang.pascal.delphi.misc:184447


L.J. Wischik <ljw1004@cus.cam.ac.uk> schrieb in Nachricht
78tgih$j3b$1@pegasus.csx.cam.ac.uk...///
>Alex Tame <alex@atsys.co.uk> wrote:

>//-------------------------------------------------------------------------
--
>// Here are a couple of global variables for the multimedia playback,
>// so it can play from a memory AVI
>char *lpData=NULL;
>long fileSize=0;
>bool alreadyOpened=false;
>LRESULT CALLBACK IOProc(LPMMIOINFO lpMMIOInfo,UINT uMessage,LPARAM
>lParam1,LPARAM lParam2);
>//-------------------------------------------------------------------------
--
>__fastcall TSaverForm::TSaverForm(TComponent* Owner)
>        : TScrForm(Owner)
>{ Purpose=smSaver;
>  HaveStarted=false;
>}
>__fastcall TSaverForm::~TSaverForm()
>{ if (HaveStarted)
>  { MediaPlayer->Close();
>    mmioInstallIOProc(mmioFOURCC('M','E','Y',' '), NULL,MMIO_REMOVEPROC);
>    // Don't need to free the resource
>  }

......
That's all really very interesting for BETA programmers here @
comp.lang.beta.

regards,
Sascha Kimmel
webmaster@tricos.com