sam speelt jingle niet af als script hem in queue plaatst

[Eagle 1974]

ik plaats deze vraag voor dollemarcel1980 ,

dit is het script wat hij gebruikt,

Code: Selecteer alles

 
PAL.Loop := True; 

PAL.LockExecution; 
var AQuery : TDataSet; 
var Song : TSongInfo; 
var RightDay, Count  : Integer;
var mySonggenre1, mySonggenre2, mySonggenre3 : String;
mySonggenre1 := 'Kerst';
mySonggenre2 := 'Sinterklaas';
mySonggenre3 := 'Jingle';

// deze count aanpassen voor hoeveel nummers die moet wachten
count := 5;
// deze count aanpassen voor hoeveel nummers die moet wachten

AQuery := Query('SELECT songlist.*, requestlist.*, requestlist.ID as requestID ' 
+' FROM songlist, requestlist ' 
+' WHERE (requestlist.ETA<:now) AND (requestlist.status=''new'') AND (songlist.ID=requestlist.songID) AND (genre != "mySonggenre1") AND (genre != "mySonggenre2") AND (genre != "mySonggenre4") AND (genre != "mySonggenre5") AND (genre != "mySonggenre6") AND (genre != "mySonggenre7") AND (genre != "mySonggenre8") AND (genre != "mySonggenre9") '
+ 'ORDER BY requestlist.ETA ASC ' 
+' LIMIT 1 ',[Now],True);
//request zoeken
WriteLn('count:'+IntToStr(count));
if not(AQuery.BOF and AQuery.EOF) then 
BEGIN 
  WriteLn('request gevonden');
  Song := TSongInfo.Create(); 
  Song['ID'] := AQuery['ID']; 
  Song['filename'] := AQuery['filename']; 
  Song['artist'] := AQuery['artist']; 
  Song['title'] := AQuery['title']; 
  Song['duration'] := AQuery['duration']; 
  Song['genre'] := AQuery['genre'];
//request regel 1.1
  if Song['genre']<>mySonggenre1 then
  BEGIN
//request regel 1.2
    if Song['genre']<>mySonggenre2 then
    BEGIN
//request regel 1.3
      if Song['genre']<>mySonggenre3 then
      BEGIN
                   Song['requestID'] := AQuery['requestID'];
// plaats hier het adres van de jingle na Queue.AddFile(' en voor ',ipBottom);
                   Queue.AddFile('C:\jingle,s theplace2be.Vraag nu een verzoekplaat aan.mp3',ipBottom);
// plaats hier het adres van de jingle na Queue.AddFile(' en voor ',ipBottom);
                   Queue.Add(Song,ipBottom);
                   WriteLn('genre');
                   WriteLn(Song['genre']);
                   WriteLn('0');
                   WriteLn('Request handled: '+Song['artist']+' - '+Song['title']);
                   ExecSQL('UPDATE requestlist SET status=:status WHERE (songID = :songID) AND ((status=''new'') OR (status=''pending'')) ',['pending',song['ID']]);
                 END
//request regel 1.3 einde
   END
//request regel 1.2 einde
  END;
//request regel 1.1 einde
//  ELSE
//request regel 2.all
  if (Song['genre']=mySonggenre1) OR (Song['genre']=mySonggenre2) OR (Song['genre']=mySonggenre3) THEN
  BEGIN
    count := (count -2);
    WriteLn('verkeerde genre2');
    WriteLn('genre');
    WriteLn(Song['genre']);
    WriteLn('Request afgekeurd');
    WriteLn('count:'+IntToStr(count));
    WriteLn('Request handled: '+Song['artist']+' - '+Song['title']); 
    ExecSQL('UPDATE requestlist SET status=:status WHERE (songID = :songID) AND ((status=''new'') OR (status=''pending'')) ',['pending',song['ID']]);
  END;
//request regel 2.all einde
END
//request zoeken einde
else
//request niet gevonden 
BEGIN
  count := (count -2);
  WriteLn('No request found');
  WriteLn('count:'+IntToStr(count));
END;
//klaar met zoeken
if count = 0 then
count := (count +1);
PAL.UnLockExecution; 
AQuery.Free; 
Song.Free;
WriteLn('count:'+IntToStr(count));
PAL.WaitForPlayCount(count);

 

als ik het cript op zijn pc compile geeft hij over de regel een error,

- Queue.AddFile('C:\jingle,s theplace2be.Vraag nu een verzoekplaat aan.mp3',ipBottom);

de error die die geeft volgt zo,
die post dollemarcel1980 , zo.

[dollemarcel1980]

syntax Error: unknown name ''C'' (line:44,colum: 31)

dat is de error die van toepassing is van de schript die ik gebruikt hij ziet de jingle zet hem klaar als die aan de beurt is gooi die hem gewoon weg m,v,g dollemarcel1980

ooo zou het bijn a vergeten ik gebruik de sam 4,9.2 met mysql 5.1 voor een date base

[drOhimself]

Dolle Marcel,
Ik zou eens kijken of het ligt aan de naam van je mp3.
Daar zitten te veel rare tekens in.
Maak daar eens een 'normale' naam van, zoiets als 'jingle-verzoekplaat.mp3'.
Pas dan je PALscript hierop aan.
Dan nog even testen.
Succes !

[dollemarcel1980]

goeie avond thnx voor je hulp heb me bestandsnaam veranderd verkort maar helaas nog steeds de zelfde code fout zal ff copie er bij doen hoe ik hem nu in het schript had staan


Queue.AddFile(C:\jingle.mp3\verzoekplaat.mp3',ipBottom);


maar helaas niet gelukt(

[drOhimself]

Code: Selecteer alles

Queue.AddFile(C:\jingle.mp3\verzoekplaat.mp3',ipBottom); 

maar helaas niet gelukt(

Zo kan het ook niet goed zijn.......je vergeet een ' teken in die regel...!

Maak er nou eens dit van :
Map in je c-schijf : 'jingle'
MP3 met naam : 'verzoekplaat.mp3'
En je script aanpassen naar dit :

Code: Selecteer alles

Queue.AddFile('C:\jingle\verzoekplaat.mp3',ipBottom);

[dollemarcel1980]

jaaaaaaaaa.... dat was het al ik zelf niet weet waarom het fout is gegaan ja die comma maarwaarom het daar voor mis ging ik ben echt een beginneling en leek daar in alleen wil ik er me zeker in gaan verdiepen ik wil jou drohimself super bedanken voor het mee denken .... super bedankt