pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Fixed TSSLOpenSSL.RecvBuffer condition on connection close.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@114 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-01-22 15:03:30 +00:00
parent e536e080ee
commit 5897e87cf7
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ssl_openssl.pas
View File

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.001.000 | | Project : Ararat Synapse | 001.001.001 |
|==============================================================================| |==============================================================================|
| Content: SSL support by OpenSSL | | Content: SSL support by OpenSSL |
|==============================================================================| |==============================================================================|
@ -615,10 +615,9 @@ begin
err := SslGetError(FSsl, Result); err := SslGetError(FSsl, Result);
until (err <> SSL_ERROR_WANT_READ) and (err <> SSL_ERROR_WANT_WRITE); until (err <> SSL_ERROR_WANT_READ) and (err <> SSL_ERROR_WANT_WRITE);
if err = SSL_ERROR_ZERO_RETURN then if err = SSL_ERROR_ZERO_RETURN then
Result := 0 Result := 0;
else if (err <> 0) then
if (err <> 0) then FLastError := err;
FLastError := err;
end; end;
function TSSLOpenSSL.WaitingData: Integer; function TSSLOpenSSL.WaitingData: Integer;