оптимизации

2025-08-17 00:39:58 +03:00
parent 8357a587df
commit d7bf17daa2
7 changed files with 260 additions and 229 deletions
@@ -189,8 +189,9 @@ var
  ssl: TIdSSLIOHandlerSocketOpenSSL;
 begin
  Result := '';
-  http := TIdHTTP.Create(nil);
+
  try
+    http := TIdHTTP.Create(nil);
    ssl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      http.IOHandler := ssl;
@@ -200,6 +201,7 @@ begin
      Result := http.Get('https://api.betterttv.net/3/cached/' + aMethod);
    finally
      ssl.Free;
+      http.Free;
    end;
  except
    on E: Exception do
@@ -208,7 +210,7 @@ begin
      Result := '';
    end;
  end;
-  http.Free;
+
 end;

 procedure TBTTV.toLog(alevel: integer; amethod, amessage: string);