minor fix

URUWorks · Feb 27, 2024 · 78c971b · 78c971b
1 parent ca3abef
commit 78c971b
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/TeroSubtitler/common/UWSystem.InetUtils.pas b/TeroSubtitler/common/UWSystem.InetUtils.pas
@@ -423,9 +423,17 @@ procedure TDownload.Execute;
   DS: TDownloadStream;
   Flags: Word;
   Success: Boolean;
+  Dir: String;
 begin
   FStartTime := GetTickCount64;
-  if GetContentLength then
+
+  Dir := ExtractFileDir(FLocalFile);
+  if not DirectoryExists(Dir) and not CreateDir(Dir) then
+  begin
+    FErrMsg := '-1';
+    Synchronize(@DoOnDownloadError);
+  end
+  else if GetContentLength then
   begin
     Flags := fmOpenWrite;
     Success := False;