From d6e9e30d61214e7ec866e325f78b8eaa763af92a Mon Sep 17 00:00:00 2001
From: Craig Moksnes <cmoksnes@geodigital.com>
Date: Wed, 11 Mar 2020 16:54:34 -0500
Subject: [PATCH] More testing

---
 remuxtest/remuxing.dpr   | 10 +++++-----
 remuxtest/remuxing.dproj |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/remuxtest/remuxing.dpr b/remuxtest/remuxing.dpr
index 33d24f5..53a4f24 100644
--- a/remuxtest/remuxing.dpr
+++ b/remuxtest/remuxing.dpr
@@ -347,8 +347,8 @@ begin
     goto the_end;
   end;
 
-  for i := 0 to High(lastdts) do
-    lStreamdts[i] := 0;
+  for i := 0 to High(lstreamdts) do
+    lStreamdts[i] := AV_NOPTS_VALUE;
 
   while True do
   begin
@@ -370,7 +370,7 @@ begin
       out_stream := PPtrIdx(ofmt_ctx.streams, pkt.stream_index);
   //    log_packet(ifmt_ctx, @pkt, 'in');
 
-//      if pkt.dts > lstreamdts[pkt.stream_index] then
+      if (lstreamdts[i] = AV_NOPTS_VALUE) or (pkt.dts > lstreamdts[pkt.stream_index]) then
       begin
         lstreamdts[pkt.stream_index] := pkt.dts;
 //        if pkt.stream_index = 1 then
@@ -394,8 +394,8 @@ begin
             Break;
           end;
       end
-{      else
-        log.d('invalid dts on %d: %d', [pkt.stream_index, pkt.dts])};
+      else
+        log.d('invalid dts on %d: %d', [pkt.stream_index, pkt.dts]);
     end;
 
     av_packet_unref(@pkt);
diff --git a/remuxtest/remuxing.dproj b/remuxtest/remuxing.dproj
index 9cfbbc4..35d9ac1 100644
--- a/remuxtest/remuxing.dproj
+++ b/remuxtest/remuxing.dproj
@@ -66,7 +66,7 @@
         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
-        <Debugger_RunParams>SampleCh76P467.ts testoutput.ts</Debugger_RunParams>
+        <Debugger_RunParams>SampleCh76P4672.ts testoutput.ts</Debugger_RunParams>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">