The same error:
i've set
constructor TBlockSocket.CreateAlternate(Stub: string);
...
FSendMaxChunk := 8192;//c64k;
...
Some debug lines:
TBlockSocket.SendBuffer
...
l := Length;
writeln('Length: ',l); //debug
x := 0;
while x < l do
begin
y := l - x;
writeln('y.0: ',y); //debug
if y > FSendMaxChunk then
y := FSendMaxChunk;
writeln('y.00: ',y); //debug
if y > 0 then
begin
LimitBandwidth(y, FMaxSendBandwidth, FNextsend);
p := IncPoint(Buffer, x);
writeln('x.0: ',x); //debug
// r := synsock.Send(FSocket, p^, y, MSG_NOSIGNAL);
r := synsock.Send(FSocket, p, y, MSG_NOSIGNAL);
writeln('r: ',r); //debug
//SockCheck(r);
writeln(GetErrorDesc(SockCheck(r))); //debug
if Flasterror <> 0 then
Break;
Inc(x, r);
writeln('x.00: ',x); //debug
...
variable history:
Length: 43237
y.0: 43237
y.00: 8192
x.0: 0
r: 8192
x.00: 8192
y.0: 35045
y.00: 8192
x.0: 8192
r: 8192
x.00: 16384
y.0: 26853
y.00: 8192
x.0: 16384
r: 8192
x.00: 24576
y.0: 18661
y.00: 8192
x.0: 24576
r: 8192
x.00: 32768
y.0: 10469
y.00: 8192
x.0: 32768
r: -1
Operation would block
2007/1/12, Lukas Gebauer <[EMAIL PROTECTED]>:
> I'm using libraries on freebsd fpc and i've a serious probem with
> TBlockSocket.SendBuffer. When i try to send more then 32000 chrs
> synsock.Send(FSocket, p, y, MSG_NOSIGNAL) returns -1 (Operation would
> block) and truncs my data.
What happens if you set TBlockSocket.SendMaxChunk property to 8192?
--
Lukas Gebauer.
E-mail: [EMAIL PROTECTED]
http://synapse.ararat.cz/ - Ararat Synapse - TCP/IP Lib.
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share
your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
