Unit WaveClip

File Name: WaveClip.PAS V1.00 Created: Apr 17 1997, 06:40 on the PS/2 60 by John Mertus Revision #6: Oct 12 1997, 10:56 on the Gateway by John Mertus This unit copies sound files from the clipboard and back. There are 5 calls SendWaveToClipboard writes an entire WAV file to the clipboard. CopyWaveFromClipboard creates a file from the clipboard data. PlayClipBoard just plays the clipboard mmioOpenClipboard opens the clipboard as a mmio file. mmioCloseClipboard closes the opened file. This software is copyright 1997 by John Mertus (John_Mertus@Brown.EDU) This software may be distributed and used without cost subject to the contstraint that the Author's Name and Copyright is not modified and the software is not sold. Edit history Version 1.00 Initial release {------------------Unit WaveClip---------------------John Mertus April 97---

Classes

Functions

CopyWaveFromClipboard - -------------CopyWaveFromClipboard---------John Mertus---27-May-97---
mmioCloseClipboard - -------------mmioCloseClipboard------------John Mertus---27-May-97---
mmioOpenClipboard - --------------mmioOpenClipboard-------------John Mertus---27-May-97---
PlayClipboard - ----------------PlayClipboard--------------John Mertus---27-May-97---
SendWaveToClipboard - Function and Subroutines

-------------SendWaveToClipboard-----------John Mertus---27-May-97---

Types

pWaveClipBoardFmt
TWaveClipBoardFormat

Constants

Variables


Functions


Function CopyWaveFromClipboard(fname : String) : Boolean;

-------------CopyWaveFromClipboard---------John Mertus---27-May-97---

Procedure mmioCloseClipboard(mmfp : HMMIO; Var ClipBoardFormat : TWaveClipBoardFormat);

-------------mmioCloseClipboard------------John Mertus---27-May-97---

Function mmioOpenClipboard(Var ClipBoardFormat : TWaveClipBoardFormat) : HMMIO;

--------------mmioOpenClipboard-------------John Mertus---27-May-97---

Function PlayClipboard : Boolean;

----------------PlayClipboard--------------John Mertus---27-May-97---

Function SendWaveToClipboard(fname : String) : Boolean;

Function and Subroutines

-------------SendWaveToClipboard-----------John Mertus---27-May-97---


Types


pWaveClipBoardFmt = ^TWaveClipBoardFormat
Special record for mmioOpenClipBoard
TWaveClipBoardFormat = record
WaveFmtEx : TWaveFormatEx;
ClipH : THandle;
Data : PChar;
DataSize : Integer;
ClipBoard : TClipBoard;
end;

Constants


Variables