vctalknow-server.pxs

Voice Commnucation Components for Delphi

{
	vcTalkNow-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/
}

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

	TalkNow Server.

        SCRIPT INFORMATION:

	This is server part of vcTalkNow 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 --

waveOut = TunavclWaveOutDevice;
waveIn = TunavclWaveInDevice;
waveIn.pcm_numChannels = 1;		// mono
waveIn.pcm_samplesPerSec = 8000;	// voice

codecIn = TunavclWaveCodecDevice;
codecIn.inputIsPCM = true;
codecIn.formatTag = 49;	// GSM

codecOut = TunavclWaveCodecDevice;
codecOut.inputIsPCM = false;
codecOut.formatTagImmunable = false;

ipServer = TunavclIPInStream;
ipServer.port = 17820;
ipServer.proto = udp;


// -- link components --

waveIn.consumer = codecIn;
codecIn.consumer = ipServer;
ipServer.consumer = codecOut;
codecOut.consumer = waveOut;


// -- activate devices --
waveIn.active = true;

// -- EOF --