vcbroadcast-server.pxs

Voice Commnucation Components for Delphi

{
	vcBroadcast-server 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/
}

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

	Broadcast Server.

        SCRIPT INFORMATION:

	This is server part of vcBroadcast demo.
	No configuration is required, just execute
	the script to start the server.

	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 --

server = TunavclIPBroadcastServer;
server.port = '17830';

codec = TunavclWaveCodecDevice;
codec.isFormatProvider = True;

// other possible values are:
//	 1 - PCM
//	 2 - ADPCM
//	49 - GSM
codec.formatTag = 2;

waveIn = TunavclWaveInDevice;
waveIn.isFormatProvider = True;


// -- link components --

waveIn.consumer = codec;
codec.consumer = server;


// -- activate devices --

waveIn.active = true;

// -- EOF --