The app starts and stops VLC each time channel is changed etc as I had too many issues with timeshift file going back to the beginning when the channel changed otherwise.
I use CreateProcess windows API from within the application, and keep track of the ProcessID. Each card gets a separate instance of VLC as it has a different stream URL. I use the Process ID to kill the process when I want to stop it.I hope to set it up this weekend, but there's some big car race on.....
I will be a definate user as I can see this as being the only way to use an old amd2000 as a client as most content is now HD. Maybe even the kids iPods...
I played around last week trying to start VLC using WMI as created by MJGraf with MPTvClient which was a bit of a mare between XP & Vista. Because of the problem with WMI, Im interested in how you are remotely starting & stopping VLC.
Cheers
void __fastcall TMPWebSvr::StartStreaming(int CardID, AnsiString FileName)
{
AnsiString AppExe = "\"" + IncludeTrailingBackslash(VLCPath) + "vlc.exe\"";
if (FileName.IsEmpty())
AppExe += " rtsp://" + VLCServer + "/stream" + CardID + ".0";
else
{
VLCStreams->File[CardID] = FileName;
int Pos = FileName.Pos("\\");
while (Pos > 0)
{
FileName.Delete(Pos, 1);
FileName.Insert("/", Pos);
Pos = FileName.Pos("\\");
}
AppExe += " file:///\"" + FileName +"\"";
}
AppExe += " :sout=#transcode{" + VLCStreams->Transcode[CardID] + "}
:duplicate{dst=std{access=http,mux=ts,dst=" + VLCServer + ":" + VLCStreams->Port[CardID] + "}} :sout-keep";
AnsiString Desktop = "default";
AnsiString StartDir = "";
bool WaitForReturn = false;
AnsiString LogString = Now().FormatString("c") + " - Preparing to stream on card " + AnsiString(CardID)+" - Command = " + AppExe + "\r\n";
if (LogStream == NULL)
LogStream = new TFileStream(IncludeTrailingBackslash(ServicePath) + "MPWebInt.log", fmCreate | fmShareDenyNone);
LogStream->Write(LogString.c_str(), LogString.Length());
PROCESS_INFORMATION pi;
STARTUPINFO si;
ZeroMemory(&pi, sizeof(pi));
ZeroMemory(&si, sizeof(si));
si.cb = sizeof(si);
si.lpDesktop = Desktop.c_str();
VLCStreams->ProcessID[CardID] = 0;
bool Success = false;
try
{
if(::CreateProcess(NULL, AppExe.c_str(), NULL, NULL, false, DETACHED_PROCESS|NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi))
{
VLCStreams->ProcessID[CardID] = pi.dwProcessId;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
}
}
catch(Sysutils::Exception &e)
{
AnsiString Message = e.Message;
}
if (VLCStreams->ProcessID[CardID])
{
AnsiString LogString = Now().FormatString("c") + " - Streaming started on card " + AnsiString(CardID)+"\r\n";
if (LogStream == NULL)
LogStream = new TFileStream(IncludeTrailingBackslash(ServicePath) + "MPWebInt.log", fmCreate | fmShareDenyNone);
LogStream->Write(LogString.c_str(), LogString.Length());
}
}
//---------------------------------------------------------------------------
void __fastcall TMPWebSvr::StopStreaming(int CardID)
{
// Stop VLC Instance created for streaming...
if (VLCStreams->ProcessID[CardID]) // Check that this instance is still runninig...
{
try
{
HANDLE ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, false, VLCStreams->ProcessID[CardID]);
ULONG ExitCode;
GetExitCodeProcess(ProcessHandle, &ExitCode);
TerminateProcess(ProcessHandle, ExitCode);
CloseHandle(ProcessHandle);
AnsiString LogString = Now().FormatString("c") + " - Stop streaming on card " + AnsiString(CardID)+"\r\n";
if (LogStream == NULL)
LogStream = new TFileStream(IncludeTrailingBackslash(ServicePath) + "MPWebInt.log", fmCreate | fmShareDenyNone);
LogStream->Write(LogString.c_str(), LogString.Length());
}
catch(...)
{
}
VLCStreams->ProcessID[CardID] = 0;
VLCStreams->File[CardID] = "";
}
}
//---------------------------------------------------------------------------
. I think you need to PM a mod (Paranoid Delusion seems to be very helpful) to get a separate Hot Plugins thread for Web Interface.