pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Ansistring compatibility on Delphi 10+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@232 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2021-06-23 15:39:56 +00:00
parent f780253e44
commit 93657c8a92
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ssl_openssl11.pas
View File

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