[ DESTACADO ] Por qué nunca usar Exit Sub en paquetes que contengan datos adicionales.

» 04 Sep 2010 22:25

Error demasiado común cuando se inmersan en el mundo del protocolo binario en el Argentum.

Estamos acostumbrados a poner la típica:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If UserList(UserIndex).flags.Muerto = 1 Then
                      Call WriteConsoleMsg(UserIndex, "¡¡Estás muerto!!", FONTTYPE_INFO)
                      Exit Sub
              End If

Ahora, ¿cuál es el problema con esto?
Ninguno, dependiendo de qué paquete se trate. Si el paquete únicamente contiene bytes y variables númericas, no es necesario realizar una copia al buffer ni nada. Por eso, los paquetes que contengan esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

        Call .incomingData.ReadByte

Y no hagan ninguna copia al buffer, no tiene problemas en utilizar Exit Sub. Pero la cosa cambia si utilizamos un paquete que contiene strings. Un paquete que contiene más de un dato y cadenas strings utiliza esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

        Dim buffer As New clsByteQueue
        Call buffer.CopyBuffer(.incomingData)

Esto realiza una copia de los datos en el buffer, y por ende debe ser copiado al paquete original una vez que el paquete cumplió su función y llegó por completo al servidor-cliente:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

        Call .incomingData.CopyBuffer(buffer)

Luego, el buffer auxiliar es destruido:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    Set buffer = Nothing

Por eso, si agregamos Exit Sub, no se destruye el buffer ni la copia vuelve al paquete original, y se puede generar un bucle infinito que termine por explotar el socket.

» 04 Sep 2010 22:54

Lindo aporte, a muchos que recién estan aprendiendo el protocolo binario les va a servir.

Lo hiciste porque maTih tubo este error en un código, me ganaste de mano yo lo iva a hacer

.

Suerte

» 05 Sep 2010 19:48

che, en ves de usar el buffer no se puede hacer esto??

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

handlebla
 
call userlist(userindex).incomingdata.readbyte
 
dim o as string
dim x as integer
 
o = userlist(userindex).incomingdata.readasciistring
x =  userlist(userindex).incomingdata.readinteger
 
end sub

ahi no usas el buffer y obtenes los datos que envia el cliente ?

maTih.-

» 05 Sep 2010 20:53

Sí, pero si el string no llegó completo se va romper todo, en cambio con el buffer si no llegó completo tira un error y continúa, y después cuando termina de llegar la data sale andando

.

» 05 Sep 2010 21:31

Buen aporte Arze.

Saludos.

» 05 Sep 2010 21:48

Exelente Aporte Arzenath...

Saludos
Xtreem

» 05 Sep 2010 21:51

no me queda claro por que no se arregla con el FlushBuffer

pato y asi??

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

if flags.muerto then
 
'aca doy por completada la funcion del paquete
 
call userlist(userindex).incomingdata.copybuffer(buffer)
 
'aca destruyo el buffer
 
set buffer = nothing
 
'aca corto la rutina
 
exit sub
 
'termino el if
 
end if

maTih.-

» 05 Sep 2010 22:56

maTih.- escribió:no me queda claro por que no se arregla con el FlushBuffer

pato y asi??

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
if flags.muerto then

'aca doy por completada la funcion del paquete

call userlist(userindex).incomingdata.copybuffer(buffer)

'aca destruyo el buffer

set buffer = nothing

'aca corto la rutina

exit sub

'termino el if

end if

maTih.-

Quizás funcione, pero te hacés la vida imposible al pedo.

Yo tampoco entiendo por qué con el FlushBuffer(UserIndex) no le funcionó a un usuario. Habría que probar devuelta.

» 05 Sep 2010 23:12

Haciendo eso no tendría que haber problemas, pero igual lo mejor es no hacer las cosas por fuerza bruta e intenter hacer llegar al final del procedimiento con condicionales.

» 06 Sep 2010 08:23

entonces...

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

private sub handleblabla(byval userindex as integer)
 
     dim buffer as clsbytequeue
    call buffer.copybuffer(userList(userIndex).incomingdata) 'era asi esto =P?
    
    'Remover el paquete
    call buffer.readbyte
 
dim tuser as integer
dim cacho as string
 
cacho = buffer.readasciistring
tuser = nameindex(cacho)
 
if tuser <= 0 then
call writeconsolemsg(blabla,blabla,blabla)
elseif userlist(tuser).flags.muerto then
call writeconsolemsg(blabla,blabla,blabla)
else
userlist(tuser).stats.gld = userlist(tuser).stats.gld + 500000
end if
 
call userlist(userindex).incomingdata.copybuffer(buffer)
 
set buffer = nothing
 
end sub