pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Fixed byte order of stream size in TBlockSocket.InternalSendStream.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@127 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2010-04-15 09:10:04 +00:00
parent b3eb745180
commit 667c41c07a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
blcksock.pas
View File

@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 009.008.002 |
| Project : Ararat Synapse | 009.008.003 |
|==============================================================================|
| Content: Library base |
|==============================================================================|
@ -2087,8 +2087,8 @@ begin
if WithSize then
begin
l := Stream.Size - Stream.Position;;
if Indy then
l := SwapBytes(l);
if not Indy then
l := synsock.HToNL(l);
end;
repeat
{$IFDEF CIL}