pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

use TByteDynArray for buffer instead of string :

Browse Source 
correction for tcp transport
  correction for library transport

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@809 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-05-25 16:13:54 +00:00
parent 4d76fe4edd
commit 13d1e675e6
15 changed files with 121 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/synapse_tcp_protocol.pas
View File

@ -12,7 +12,7 @@
}
{$INCLUDE wst_global.inc}
unit synapse_tcp_protocol;
interface
uses
@ -124,7 +124,7 @@ begin
wrtr.WriteAnsiStr(Self.Format);
SetLength(binBuff,ARequest.Size);
ARequest.Position := 0;
ARequest.Read(binBuff[1],Length(binBuff));
ARequest.Read(binBuff[0],Length(binBuff));
wrtr.WriteBinary(binBuff);
buffStream.Position := 0;
wrtr.WriteInt32S(buffStream.Size-4);
@ -146,9 +146,9 @@ begin
i := bufferLen;
SetLength(binBuff,i);
repeat
j := FConnection.RecvBufferEx(@(binBuff[1]),i,DefaultTimeOut);
j := FConnection.RecvBufferEx(@(binBuff[0]),i,DefaultTimeOut);
FConnection.ExceptCheck();
AResponse.Write(binBuff[1],j);
AResponse.Write(binBuff[0],j);
Inc(c,j);
i := Min(1024,(bufferLen-c));
until ( i =0 ) or ( j <= 0 );