Wild media server (UPnP, DLNA, HTTP)

Code: Select all

const
  csVeetleServer = '77.67.109.221'; 
var
  i: Integer;
  sh, shExec: Variant;                       
  sPriorLine, sLine, sVeetleChannelID, sVeetlePort: string;
begin
  TranscodingParams := '';
  if WmsRegExMatch('#(.*)', mpFilePath, sVeetleChannelID) then begin  
    sh := CreateOleObject('Wscript.Shell');     
//    shExec := sh.Run(mpFilePath);    
    sVeetlePort := '';
    for i := 1 to 15 do begin
      WmsSleep(1000);
      shExec := sh.Exec('netstat -p TCP -b -n');
      while not shExec.StdOut.AtEndOfStream do begin
        sLine := shExec.StdOut.ReadLine;
        if Pos('player.exe', sLine) > 0 then begin
          WmsRegExMatch('TCP.*?\:.*?\:(\d+)', sPriorLine, sVeetlePort)
        end else                                        
          sPriorLine := sLine;      
      end;
      if sVeetlePort <> '' then Break      
    end;                   
    if sVeetlePort <> '' then                                                
      TranscodingParams := ReplaceStr(WmsTranscodingProfileParams('Internet-television'), '"<INPUT FILE>"',
                             Format('"http://127.0.0.1:%s/%s,%s"', [sVeetlePort, csVeetleServer, sVeetleChannelID]))        
  end  
end.

Code: Select all

//    shExec := sh.Run(mpFilePath);