vcloopback.pxs

Voice Commnucation Components for Delphi

{
	vcLoopback demo script.
	Use with VC 2.5 Pro Scriptor component.

	Copyright (c) 2002-2005 Lake of Soft, Ltd
	All rights reserved

	http://lakeofsoft.com/vc/
}

{===================================================

	Loopback Demo.

        SCRIPT INFORMATION:

	This simple script demonstrates how to create
	recording and playback devices and link
	them together. Soundcard must support full-duplex
	mode for this demo to work.

	Press Execute button to execute the script.
	Press Clear button to destroy the components.

====================================================}

// it is a good idea to clear the components list before doing a new job.

clear;


// -- create devices --

waveIn = TunavclWaveInDevice;
waveOut = TunavclWaveOutDevice;

// -- link components --

waveIn.consumer = waveOut;

// -- activate devices --

waveIn.active = true;

// -- EOF --