work in progress

Author: GerryFerdinandus

source/code/main.pas

@@ -18,7 +18,10 @@ interface
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, CheckLst, DecodeTorrent, LCLType, ActnList, Menus, ComCtrls,
   Grids, controlergridtorrentdata, torrent_miscellaneous,
-  controler_trackerlist_online, controler_treeview_torrent_data, ngosang_trackerslist;
+  controler_trackerlist_online, controler_treeview_torrent_data, ngosang_trackerslist,
+  fphttpclient,// ssockets, sslsockets, fpopenssl,
+    //openssl, { This implements the procedure InitSSLInterface }
+  opensslsockets;
 
 type
 
@@ -195,6 +198,8 @@   TFormTrackerModify = class(TForm)
       False): boolean;
     procedure LoadTrackersTextFileAddTrackers(Temporary_SkipAnnounceCheck: boolean);
     procedure LoadTrackersTextFileRemoveTrackers;
+    //procedure GetSocketHandler(Sender: TObject; const UseSSL: Boolean; out
+  //AHandler: TSocketHandler);
   public
     { public declarations }
   end;
@@ -204,7 +209,7 @@   TFormTrackerModify = class(TForm)
 
 implementation
 
-uses fphttpclient, LCLIntf, lazutf8, LazFileUtils, trackerlist_online;
+uses LCLIntf, lazutf8, LazFileUtils, trackerlist_online, sslbase;
 
 const
   RECOMENDED_TRACKERS: array[0..2] of UTF8String =
@@ -1821,23 +1826,63 @@ procedure TFormTrackerModify.ShowHourGlassCursor(HourGlass: boolean);
 
 end;
 
+
+//
+//procedure TFormTrackerModify.GetSocketHandler(Sender: TObject; const UseSSL: Boolean; out
+//  AHandler: TSocketHandler);
+//begin
+//  AHandler := TSSLSocketHandler.Create;
+//  TSSLSocketHandler(AHandler).SSLType := stTLSv1_2;
+//end;
+//
+
 function TFormTrackerModify.TestConnectionSSL: Boolean;
+var
+  HTTPClient: TFPHTTPClient;
 begin
-  Result := ParamCount = 1;
-  if Result then
-  begin
-    // Check for the correct parameter.
-    Result := UTF8Trim(ParamStr(1)) = '-TEST_SSL';
-    if Result then
-    begin
-      // Check if there is SLL connection
-      try
-        TFPCustomHTTPClient.SimpleGet('https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/.travis.yml');
-      except
-        //No SLL or no internet connection.
-        System.ExitCode := 1;
-      end;
+    { SSL initialization has to be done by hand here }
+  //InitSSLInterface;
+
+  Result := False;
+  HTTPClient := TFPHTTPClient.Create(nil);
+  try
+    //HTTPClient.OnDataReceived := @DataReceived;
+    //HTTPClient.OnGetSocketHandler := @GetSocketHandler;
+    HTTPClient.AllowRedirect := True;
+    //HTTPClient.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)');
+    try
+      //HTTPClient.Get(AFrom, ATo);
+      HTTPClient.Get('https://github.com');
+      HTTPClient.Get('https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/README.md'); // donot work
+
+      HTTPClient.Get('https://google.com/'); // works
+      Result := True;
+    except
+      on E: Exception do
+        ShowMessage(E.Message)
     end;
+  finally
+     HTTPClient.Free;
   end;
+//begin
+//   TFPCustomHTTPClient.SimpleGet('https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/README.md');
+//
+//
+//  Result := ParamCount = 1;
+//  if Result then
+//  begin
+//    // Check for the correct parameter.
+//    Result := UTF8Trim(ParamStr(1)) = '-TEST_SSL';
+//    if Result then
+//    begin
+//      // Check if there is SLL connection
+//      try
+//        TFPCustomHTTPClient.SimpleGet('https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/README.md');
+//      except
+//        //No SLL or no internet connection.
+//        System.ExitCode := 1;
+//      end;
+//    end;
+//  end;
 end;
 end.