From 667c41c07a542a8fa1ebc7c67fdc516513aa8b48 Mon Sep 17 00:00:00 2001
From: geby <geby@7c85be65-684b-0410-a082-b2ed4fbef004>
Date: Thu, 15 Apr 2010 09:10:04 +0000
Subject: [PATCH] Fixed byte order of stream size in
TBlockSocket.InternalSendStream.
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@127 7c85be65-684b-0410-a082-b2ed4fbef004
---
blcksock.pas | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/blcksock.pas b/blcksock.pas
index 5f41f02..ddefee3 100644
--- a/blcksock.pas
+++ b/blcksock.pas
@@ -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}