Hi,
I want to use my Camera IP with our DVR,
I play my Camera IP with LtmmPlay without problem. The URL to connect my Camera IP is URL: "rtsp://admin:
[email protected]:554/cam/realmonitor?channel=1&subtype=0"
My probleme is when i use our composant DVR, it's not work. this my code, i use Delphi XE2:
procedure TForm12.Button1Click(Sender: TObject);
Var punk: IUnknown; pDvrSink: ILMDVRSink; Hr: HResult;
begin
ltmmPlay.AutoStart:= False;
ltmmPlay.sourcefile:= 'rtsp://admin:
[email protected]:554/cam/realmonitor?channel=1&subtype=0';
punk:= ltmmPlay.GetSubObject(ltmmPlay_Object_SourceFilter);
if (punk <> NIL) then begin
Hr:= punk.QueryInterface(IID_ILMDVRSink, pDvrSink);
punk:= NIL; //Release
if SUCCEEDED(Hr) then Begin
pDvrSink.StartChangingAttributes;
pDvrSink.FolderCount:= 1;
pDvrSink.BaseName:= 'Capture.LBL';
pDvrSink.FolderName[0]:= 'C:\Temp';
pDvrSink.SetBufferSize(0, 5, 102400000);
pDvrSink.StopChangingAttributes(FALSE);
pDvrSink:= NIL; //Release
End;
end;
ltmmPlay.Run;
end;
The pDvrSink is always NIL, what's the problem?