kick PAL voor 2 streams

[frankie]

Hallo Allemaal
ik ben op zoek naar een PAL scrip om 2 streams tegelijk te laten kicken
is er mischien zoon PAL script of zijn er nog andere manieren

[frankie]

de kick PAL wat in de sam zit is maar voor 1 stream te kicken ik
zou graag een kick PAL willen hebben dat ik 2 streams tegelijk kan kicken
ik was er al achter dat dit zo niet gaat werken heeft iemand een idee hoe het wel gaat werken
zie voorbeeld

const shoutcast_password = 'wachtwoord';
const shoutcast_host = 'ip nummer';
const shoutcast_port = 'poort nummer';
{==================================================}

const shoutcast_password = 'wachtwoord';
const shoutcast_host = 'ip nummer';
const shoutcast_port = 'poort nummer';
{==================================================}


var URL : String;
URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi?mode=kicksrc';

WebToFile('c:\dummy.txt',URL);

Encoders[0].Start;

[drOhimself]

Zijn beide streams Shoutcast v1.x ?


Sent from my iPhone using Tapatalk

[frankie]

ja allebij Shoutcast v1

[frankie]

ik heb wel wat gevonden maar kom hier niet uit iemand een idee

var URL : String;
URL := 'http://www.cashmoneybrothers.be/streamm ... StreamBron';

{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

URL := 'http://www.cashmoneybrothers.be/streamm ... StreamBron';

{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

Encoders.Start.All;

[drOhimself]

Probeer eens met deze -aangepaste- KickSource PAL :

Code: Selecteer alles

{ CONFIGURATION }
{==================================================}
const stream_1_password = 'changeme';
const stream_1_host     = 'localhost';
const stream_1_port     = '8000';   <<---AANPASSEN naar STREAM 1 poort
const stream_2_password = 'changeme';
const stream_2_host     = 'localhost';
const stream_2_port     = '8000';  <<---AANPASSEN naar STREAM 2 poort
{==================================================}
{ IMPLEMENTATION }
{--------------------------------------------------}
{ Build URL used to send command to SHOUTcast server STREAM 1}
var URL : String;
URL := 'http://admin:'+stream_1_password+'@'+stream_1_host+':'+stream_1_port+'/admin.cgi?mode=kicksrc';
{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

{ Build URL used to send command to SHOUTcast server STREAM 1}
URL := 'http://admin:'+stream_2_password+'@'+stream_2_host+':'+stream_2_port+'/admin.cgi?mode=kicksrc';
{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

{ Now start & connect all encoders }
{ NOTE: This assumes you only have one encoder }
Encoders.StartAll;

{TIP: Use this to start a specific encoder:
Encoders[0].Start;
}
{--------------------------------------------------}

[frankie]

beetje laat maar dankje wel drOhimself
het werkt topie [smilie=good.gif]