From WikiChip
Editing mirc/commands/sockread

Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then save the changes below to finish undoing the edit.

This page supports semantic in-text annotations (e.g. "[[Is specified as::World Heritage Site]]") to build structured and queryable content provided by Semantic MediaWiki. For a comprehensive description on how to use annotations or the #ask parser function, please have a look at the getting started, in-text annotation, or inline queries help pages.

Latest revision Your text
Line 1: Line 1:
{{mirc title|/sockread Command}}
+
The '''/sockread''' command reads bytes from the receive buffer into a specified variable.
The '''/sockread''' command reads bytes from the receive buffer of a socket connection into a specified variable. This command must be and is to be used inside socket events.
 
 
 
mIRC in general only understand {{mIRC|$crlf}} terminated line. With socket, mIRC only understands {{mIRC|$lf}} terminated line (any {{mirc|$cr}} before a {{mirc|$lf}} is removed).
 
 
 
The number of bytes waiting to be read can be retrieved using {{mIRC|$sock|$sock(name).rq}}
 
 
 
By default:
 
 
 
* /sockread %var reads a terminated line into the variable, if the received buffer does not contain a terminated line, no byte are read into the variable.
 
* /sockread &var try to read 4096 bytes into the variable.
 
 
 
The real number of bytes read by /sockread can be retrieved using {{mIRC|$sockbr}}.
 
  
 
== Synopsis ==
 
== Synopsis ==
<source lang="mIRC">
+
<source lang="mIRC">/sockread [-fn] [numbytes] <%var|&binvar></source>
/sockread [-fn] <%var|&binvar>
 
/sockread [numbytes] <%var|&binvar>
 
</source>
 
  
 
== Switches ==
 
== Switches ==
{| class="wikitable" style="line-height: 25px;"
+
{| class="wikitable" style="line-height: 25px; margin-left: 75px;"
 
|-
 
|-
 
! Switch !! Description
 
! Switch !! Description
 
|-
 
|-
| '''f''' || When reading a terminated line (/sockread %var or /sockread -n &var), forces mIRC to fill the variable with whatever text is in the receive buffer, even if it does not end in a terminated line.
+
| '''f''' || Forces mIRC to fill the variable with whatever text is in the receive buffer, even if it does not end in a [[$crlf identifier - mIRC|$crlf]].
 
|-
 
|-
| '''n''' || Reads a terminated line into a {{mIRC|binary variables|&binvars}}. If the incoming line does not contain a terminated line, no byte will be read into the {{mIRC|binary variables|&binvars}}, unless you specify the '''-f''' switch.
+
| '''n''' || Reads a [[$crlf identifier - mIRC|$crlf]] terminated line into a [[&binvar - mIRC|&binvar]]. If the incoming line does not contain a [[$crlf identifier - mIRC|$crlf]], no bytes will be read into [[&binvar - mIRC|&binvar]], unless you specify the '''-f''' switch.
 
|}
 
|}
  
 
== Parameters ==
 
== Parameters ==
{| class="wikitable" style="line-height: 25px;"
+
{| class="wikitable" style="line-height: 25px; margin-left: 75px;"
 
|-
 
|-
 
! Parameter !! Description
 
! Parameter !! Description
Line 39: Line 24:
 
|}
 
|}
  
== Reading ==
+
== Example ==
 +
When a socket connection, '''mySocket''', has info waiting to be read from the buffer, store the info into a '''%myVar''' variable and echo it to a custom '''@myBuffer''' window:
 +
<source lang="mIRC">ON 1:SOCKREAD:mySocket:{
 +
  var %myVar
  
A single /sockread may not be enough to read the entire buffer (if you are reading line by line for example). You might want to keep reading until {{mIRC|$sockbr}} (the number of bytes read) is set to zero. This is far faster than letting mIRC re-trigger the event. If your script does not read the whole buffer, the on sockread event is re-triggered if:
+
  ; Check for any socket errors; if they exist exit out of the event
 
+
  if ($sockerr > 0) { return }
    a) you were reading into a &binvar.
 
    b) you were reading into a %var and there is still a terminated line in the buffer waiting to be read.
 
 
 
This means you will miss the last line if it is not a terminated line and you are reading line by line only (and not in a binvar, although it's also easier to use on sockclose with binvar if you are reading line by line and facing this). You can read that line in the on sockclose event, {{mIRC|/sockread#Last line not showing up|see below}}.
 
  
'''Note''' (fixed since mIRC 7.36): Using SSL, on sockread might not be retriggered as it should, {{mIRC|on events/on sockclose|on sockclose}} will be triggered too early with $sockerr sets to 3, you must read the receive buffer from that event
+
  ; Create our jump loop for reading the socket buffer
 +
  :nextread
  
 +
  ; Read the buffer into the %myVar variable
 +
  sockread %myVar
  
It is important to note that the data received will vary in size. Practically speaking, we receive several kilobytes per second, it is easy to assume that the data you want is going to be sent and received the same way and above all, the way you want, but that's incorrect, you might receive very small packet at a very small speed.
+
  ; Make sure that there is no socket break; if so exist out of the event
 +
  if ($sockbr == 0) { return }
  
A common situation when dealing with HTML is to check the source of the page you are working with, to identify something that is unlikley to change, and to use that as a reference. Doing this is not bad, but the way it is usually implemented by mIRC user is incorrect.
+
  ; If the buffer was empty, set the variable to printable empty space
 +
  if (%myVar == $null) { %myVar = $chr(160) }
  
The common errors are to blindly try to match what you saw in the source as you read it with your socket but also to try to read from the received buffer assuming it will always have the data already, let's consider the following source of a page:
+
  ; Make sure our @myBuffer window is open; if not, create it
 +
  if (!$window(@myBuffer)) { window @myBuffer }
  
"this is my reference:
+
  ; Echo the contents of the buffer variable into the @myBuffer window
 +
  echo @myBuffer %myVar
  
I want that line"
+
   ; Go to the jump loop and read the rest of the buffer
 
+
  goto nextread
There are two mistakes:
 
* Trying to match the reference as you are reading. Consider the following code
 
 
 
<source lang="mIRC">
 
on *:sockread:name:{
 
var %a
 
sockread -f %a
 
if (%a == this is my reference:) {
 
    ...
 
}
 
}</source>
 
If you do that, you cannot guarantee it will work 100% of the time.
 
 
 
If the received buffer is filled with a few bytes and ends up being "this is my ref" when on sockread triggers, the -f switch will force mirc to read that, and you won't be able to match your full line, for example here, the next time the event triggers, you might have a received buffer containing "erence:", but it might be "erence:\r\nI want that line" as well, screwing you anyway.
 
 
 
So you might think here "let's not use -f then":
 
 
 
<source lang="mIRC">
 
on *:sockread:name:{
 
var %a
 
sockread %a
 
if (%a == this is my reference:) {
 
    ...
 
}
 
}</source>
 
 
 
And that, assuming what you are looking for is not on the last non terminated line (which would be missed because -f is not there, although note that you can read that last non terminated line inside the {{mIRC|on sockclose}} event), should be fine. In fact, in this specific example and in general, it will work, because you are making sure %a is a full line or nothing. Well that's why it works in most situation, you are checking that %a is a specific text, which would fail if no byte were read into %a because a terminated line couldn't be found. However, if you are in a situation where you must check that %a is $null (usually because it read an empty $crlf line), you must check {{mIRC|$sockbr}} to know if you read bytes at all, a good example of this usage is shown below, which discard the headers of HTTP (check for an empty value after /Sockread %a reads an empty $crlf line):
 
 
 
<source lang="mIRC">
 
alias testHTTP {
 
sockclose testHTTP
 
sockopen testHTTP mirc.com 80
 
}
 
 
 
on *:sockopen:testHTTP:{
 
if (!$sockerr) {
 
  sockwrite -n $sockname GET / HTTP/1.1
 
   sockwrite -n $sockname Host: mirc.com
 
  sockwrite -n $sockname
 
}
 
}
 
on *:sockread:testHTTP:{
 
if (!$sockerr) {
 
  if ($sock($sockname).mark) {
 
  ; here you can start reading the real source the way you want
 
  }
 
  else {
 
    var %a
 
    sockread %a
 
    if ($sockbr) {
 
    if (%a == $null) sockmark $sockname 1
 
    }
 
  }
 
}
 
}</source>
 
 
 
Getting problem because you are not checking properly for $sockbr is very unlikely to happen if you are reading line by line, because it is much much slower than reading the whole content of the received buffer and as such, the received buffer is filled by mIRC faster than your socket code reads it. But it is still possible.
 
 
 
Another solution consists in making a buffer by yourself and adding what you are reading to it, until you get the correct portion you want (a terminated line in these examples).
 
 
 
If you are reading the whole content of the received buffer with one /sockread using binary variable or just large portion of the received buffer in a binary variable, you are more likely to see the
 
issue because you are basically reading the buffer as fast as mIRC fills it (or faster than line by line for large portion). The same solutions exists for binary variables, use /sockread -n to read a terminated line into the binvar, check $sockbr to make sure you read something etc. Using $bfind is the correct way to parse, unless you have very good evidence about the length of the lines you are going to receive and you want to go the easy way: if (text operator $bvar(&a,1,4096)) or similar.
 
 
 
* Reading from the receive buffer
 
 
 
This is the same as above but once you found the reference with the script, you want to grab the next line:
 
<source lang="mIRC">
 
on *:sockread:name:{
 
var %a
 
sockread %a
 
if ($sockbr == 0) return
 
if (%a == this is my reference:) {
 
    sockread %a
 
  echo -a my line: %a
 
}
 
 
}
 
}
 
</source>
 
</source>
The same issue can happen, you cannot make sure there is a terminated line in the receive buffer. People mainly uses that because it avoids saving the state for the next time the event retriggers, indeed the correct way to read the next line once you found the reference is to try reading a terminated line using /sockread %var (or to use your own buffer and check when you have a new line, just like above) but you need to save the state if you can't find the next line currently:
 
  
<source lang="mIRC">
+
== Compatibility ==
on *:sockread:name:{
+
Added: mIRC v5.3
var %a
 
sockread %a
 
if ($sockbr == 0) return
 
if (%tryingnextline) { echo -a my line: %a | unset %tryingnextline | return  }
 
if (%a == this is my reference:)  {
 
    set %tryingnextline 1
 
    sockread %a
 
    if ($sockbr) {
 
    echo -a my line: %a
 
    unset %tryingnextline
 
  }
 
}
 
}
 
</source>
 
 
 
'''General Note''': it can be a good idea and might be simpler for you to read everything to a file and then parse that file.
 
 
 
== Last line not showing up ==
 
 
 
Another common problem is reading the last line sent by an HTTP server, which isn't a terminated line (no $crlf or $lf).
 
 
 
Indeed, if you are using /sockread %var, you're will read properly line by line but that last line won't be read by this sockread command.
 
 
 
We also saw how this non terminated line in the received buffer wouldn't make mIRC retrigger the on sockread event.
 
 
 
One solution which doesn't involve more than that, is to read that line from the on sockclose event, indeed you are sure on sockread read the previous line, so inside on sockclose, you should get only that last non terminated line, this time we use the -f switch to force the read:
 
 
 
<source lang="mIRC">
 
on *:sockclose:name:{
 
  if (!$sockerr) {
 
  var %a
 
  sockread -f %a
 
  if ($sockbr == 0) return
 
  echo -a > %a
 
}
 
}
 
</source>
 
 
 
If you are using HTTP 1.1 and you actually want the socket to remain open, you would need to grab the value of the content-length header, store that in a variable and increase another variable with the length of what you are reading, if the length of the received buffer + the value of that variable equal the value of the content length, you should first try to see if you have a line by reading with /sockread %a, and if no byte is read, then use /sockread -f %a.
 
 
 
== Example ==
 
 
 
Here is an example which will read and echo to the status window what is sent by a server line by line.
 
 
 
'''Note''': leading/consecutives and trailing spaces and non-printable characters won't be shown correctly.
 
 
 
'''Note2''': too long line will produce an error.
 
  
'''Note3''': Using SSL, the on sockread event might not be triggered though it should, you must read the rest in the on sockclose event (has been fixed since mIRC 7.36).
+
Added On: 13/12/97
 
 
<source lang="mIRC">ON *:SOCKREAD:mySocket:{
 
  var %a
 
  if ($sockerr > 0) { return }
 
  sockread %a
 
  if (!$sockbr) return
 
  while ($sockbr) {
 
    echo -a > %a
 
    sockread %a
 
  }
 
}
 
</source>
 
 
 
'''Note''': as we just saw, if the last line in the source does not end with a terminated line, it won't be read by that event.
 
 
 
If you ever worked with HTTP 1.1, you know that it can send data in chunk, here is a way to write the real content to a file:
 
 
 
<source lang="mIRC">
 
on *:sockopen:socket:{
 
  ... your request...
 
  sockmark $sockname 0
 
  ;we write to source.txt
 
  .remove source.txt
 
  unset %bytestoread
 
}
 
on *:SOCKREAD:socket: {
 
  if (!$sockerr) {
 
    if ($sock($sockname).mark) {
 
      ;if we have a chunk to read
 
      if (%bytestoread > 0) {
 
        ;we try to read that much
 
        sockread %bytestoread &a
 
        bwrite source.txt -1 -1 &a
 
        ;but $sockbr tells us how much we read, we decrease by that number (in case we received something smaller than what we want, this part of the code will retrigger in this case, until %bytestoread is 0)
 
        dec %bytestoread $sockbr
 
      }
 
      ;if we don't have a chunk
 
      else {
 
        var %a
 
        sockread %a
 
        ;skip empty line
 
        while ($sockbr) && (%a == $null) { sockread %a }
 
        if (!$sockbr) || (%a == $null) return
 
        ;last chunk
 
        if (%a == 0) echo -a done
 
        ;convert the hexadecimal number to decimal
 
        else { set %bytestoread $base(%a,16,10) }
 
      }
 
    }
 
    else {
 
      ;$sock().mark is used to discard the headers
 
      var %a
 
      sockread %a
 
      if (%a == $null) sockmark $sockname 1
 
    }
 
  }
 
}</source>
 
 
 
== Compatibility ==
 
{{mIRC compatibility|5.3}}
 
  
 
== See Also ==
 
== See Also ==
 
* [[List of commands - mIRC|List of commands]]
 
* [[List of commands - mIRC|List of commands]]
 
* [[List of identifiers - mIRC|List of identifiers]]
 
* [[List of identifiers - mIRC|List of identifiers]]
* {{mIRC|$sock}}
+
* [[$sock identifier - mIRC|$sock]]
* {{mIRC|$sockname}}
+
* [[$sockname identifier - mIRC|$sockname]]
* {{mIRC|$sockerr}}
+
* [[$sockerr identifier - mIRC|$sockerr]]
* {{mIRC|$sockbr}}
+
* [[$sockbr identifier - mIRC|$sockbr]]
* {{mIRC|/sockaccept}}
+
* [[/sockaccept command - mIRC|/sockaccept]]
* {{mIRC|/sockclose}}
+
* [[/sockclose command - mIRC|/sockclose]]
* {{mIRC|/socklist}}
+
* [[/socklist command - mIRC|/socklist]]
* {{mIRC|/socklisten}}
+
* [[/socklisten command - mIRC|/socklisten]]
* {{mIRC|/sockmark}}
+
* [[/sockmark command - mIRC|/sockmark]]
* {{mIRC|/sockopen}}
+
* [[/sockopen command - mIRC|/sockopen]]
* {{mIRC|/sockpause}}
+
* [[/sockpause command - mIRC|/sockpause]]
* {{mIRC|/sockrename}}
+
* [[/sockrename command - mIRC|/sockrename]]
* {{mIRC|/sockudp}}
+
* [[/sockudp command - mIRC|/sockudp]]
* {{mIRC|/sockwrite}}
+
* [[/sockwrite command - mIRC|/sockwrite]]
{{mIRC command list}}
 
  
[[Category:mIRC commands|sockread command - mIRC]]
+
[[Category:mIRC commands]]

Please note that all contributions to WikiChip may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see WikiChip:Copyrights for details). Do not submit copyrighted work without permission!

Cancel | Editing help (opens in new window)