From 93657c8a92b7f2c67e922f5ce051184d1d3d47e3 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Wed, 23 Jun 2021 15:39:56 +0000
Subject: [PATCH] Ansistring compatibility on Delphi 10+

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@232 7c85be65-684b-0410-a082-b2ed4fbef004
---
 ssl_openssl11.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ssl_openssl11.pas b/ssl_openssl11.pas
index 3dd20e7..f62deb4 100644
--- a/ssl_openssl11.pas
+++ b/ssl_openssl11.pas
@@ -73,6 +73,8 @@ Ad-Hoc key and certificate for each incomming connection by self. It slowdown
 accepting of new connections!
 }
 
+{$INCLUDE 'jedi.inc'}
+
 {$IFDEF FPC}
   {$MODE DELPHI}
 {$ENDIF}
@@ -89,6 +91,7 @@ interface
 
 uses
   SysUtils, Classes,
+  {$IFDEF DELPHI23_UP} AnsiStrings, {$ENDIF}
   blcksock, synsock, synautil,
   ssl_openssl11_lib;
 
@@ -169,7 +172,7 @@ begin
   if Length(Password) > (Size - 1) then
     SetLength(Password, Size - 1);
   Result := Length(Password);
-  StrLCopy(buf, PAnsiChar(Password + #0), Result + 1);
+  {$IFDEF DELPHI23_UP}AnsiStrings.{$ENDIF}StrLCopy(buf, PAnsiChar(Password + #0), Result + 1);
 end;
 
 {==============================================================================}