修改视频时间太长出错的问题

ericwang2006 · Apr 8, 2022 · ff7347a · ff7347a
1 parent d8811be
commit ff7347a
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/uFrmBcut2Strt.pas b/uFrmBcut2Strt.pas
@@ -92,7 +92,7 @@ procedure TFrmBcut2Strt.FormCreate(Sender: TObject);
 
 procedure _BcutToSrt(const AFileName: string; List: TStrings);
 
-  function inPointToStr(inPoint: Integer): string;
+  function inPointToStr(inPoint: Int64): string;
   var
     h, m, s, ms: Integer;
   begin
@@ -115,7 +115,8 @@ procedure _BcutToSrt(const AFileName: string; List: TStrings);
   AXmlDoc: IXMLDocument;
   videoTrack, videoTracks, trackCaptions, caption: IXMLNode;
   NodeList: IXMLNodeList;
-  I, J, inPoint, duration: Integer;
+  I, J: Integer;
+  inPoint, duration: Int64;
   sText: string;
   bFound: Boolean;
 begin
@@ -146,9 +147,8 @@ procedure _BcutToSrt(const AFileName: string; List: TStrings);
         begin
           caption := NodeList.Get(J);
           sText := caption.Attributes['text'];
-          inPoint := caption.Attributes['inPoint'];
-          duration := caption.Attributes['duration'];
-
+          inPoint := StrToInt64(VarToStr(caption.Attributes['inPoint']));
+          duration := StrToInt64(VarToStr(caption.Attributes['duration']));
           List.Add(IntToStr(j + 1));
           List.Add(inPointToStr(inPoint) + ' --> ' + inPointToStr(inPoint + duration));
           List.Add(sText);