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
Show Stats 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!
}
{$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;
{==============================================================================}