NWlib

Hello.

I using NWlib and need fast help with this.

This example only deletes one job (first) I need help to make it delete ALL job in queue.


var  
 tempList : TStringList ;
 queueJobInfo : TNWQueueJobInfo ;
 serverConn : TNWConnHandle ;
 queueName : string ;
begin    
 serverConn := getPrimaryServerID ;
 queueName := 'laser1' ;
 templist := TStringList.create ;
  if getQueueJobList(serverConn,queueName,tempList) then
     begin
         queueJobInfo.nServer := serverConn ;
         queueJobInfo.cQueue := queueName ;
         queueJobInfo.jobID := TNWQueueJobID(tempList.objects[0]) ;
         if deleteQueueJob(queueJobInfo) then
          //okBox('Queue Job Deleted!') ;
          MessageDlg('Queue Job Deleted!', mtConfirmation, [mbOk], 0)          
     end;
  tempList.free ;
end;