Forums Developers sockets problem

i have two mircs open, in the first one i put this:
on *:socklisten:dg:{ sockaccept dg1 | sockclose dg }
on *:sockread:dg1:{
while ($sock(dg1).rq) {
sockread &var
bwrite f.txt -1 &var
}
}
and in the second i put this:
on *:sockopen:dg:{
if ($sockerr) halt
var %a = 0,%b = 8192
while (%b <= $file(versions.txt).size) {
bread versions.txt %a %b &f
sockwrite dg &f
inc %a 8192 | inc %b 8192
}
sockwrite dg &f
sockclose dg
}
so the script should listen in the first mirc (/socklisten dg 78) and connect from the second (//sockopen dg $ip 78), after it connects it sends a file from the second mirc to the first mirc
the problem is that it doesn't send the whole file, the size of versions.txt is 42740 bytes and what i get to f.txt is only 32768 bytes
what's the problem??

You can't send the entire file at once, it'll exceed a queue limit. You need to use the on SOCKWRITE event to detect when you can send another lot of data.

try http://helpdesk.zaz.net/documents/socks.php (assuming it still exists...)

that's why i used loop that will send 8192 each time and it CAN be done becuz 8192 is the maximum bytes u can send at once, the problem is that the 1KB from the end of versions.txt didn't send, i dunno why
any ideas??

while (%b <= $file(versions.txt).size) {
bread versions.txt %a %b &f
sockwrite dg &f
inc %a 8192 | inc %b 8192
}

%b shouldn't exist, it should simply be a static 8192 in the /bread line and you should be comparing %a in the while condition.

while (%a <= $file(versions.txt).size) {
bread versions.txt %a 8192 &f
sockwrite dg &f
inc %a 8192
}

still, doesn't working it sends the same data like before not the whole file

When you use /sockwrite you are in effect queuing data to be sent on that socket.

Once the queued data has been sent, mIRC will trigger the on sockwrite event to indicate that you can now send more data.

Remember to check for $sockerr in the first line of the event though to check if an error has occurred.

Just like Khaled said before, once the data are send, you have an on sockwrite event. You can only queue 8192 bytes in the buffer to be sent, so with your while, you are reading 8192 bytes at each bread, but you are trying to queue all the file at the sametime. When you have an on sockwrite event, you queue 8192 bytes, another on sockwrite means the queue is empty, so you can queue another 8192 bytes ... and on. I hope you will understand how it works.
And you don't have to queue 8192 bytes, you can queue less that this if you want, 8192 is only the maximum.

it works great!!!!!!!!
on *:sockopen:dg:{
if ($sockerr) halt
%a = 0
bread versions.txt %a 8192 &f
sockwrite dg &f
}
on *:sockwrite:dg:{
if (!$sockerr) {
if (%a <= $file(versions.txt)) {
inc %a 8192
bread versions.txt %a 8192 &f
sockwrite dg &f
}
else { sockclose dg }
}
}
thanks alot Khaled & Artwerks