vcbroadcast-client.pxs

来自「Voice Commnucation Components for Delphi」· PXS 代码 · 共 57 行

{
	vcBroadcast-client 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 Client.

        SCRIPT INFORMATION:

	This is client part of vcBroadcast demo.
	No configuration is required, just execute
	the script to listen to the broadcast stream.

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

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

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

clear;


// -- create devices --

waveOut = TunavclWaveOutDevice;

codec = TunavclWaveCodecDevice;
codec.isFormatProvider = True;
codec.formatTagImmunable = False;
codec.inputIsPcm = False;

client = TunavclIPBroadcastClient;
client.port = 17830;


// -- link components --

codec.consumer = waveOut;
client.consumer = codec;


// -- activate --

client.active = true;


// -- EOF --