• Miércoles 20 de Noviembre de 2024, 18:43

Autor Tema:  Indiana jhones en busca del paquete perdido  (Leído 6175 veces)

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Indiana jhones en busca del paquete perdido
« en: Lunes 25 de Agosto de 2008, 12:13 »
0
Saludos.

He intentado agregarle funcionalidad multijugador a mi programita, y estoy teniendo varios problemas en lo que respecta al que hace de servidor, esperar a que llegue un paquete, y cargar datos de un ini.

Básicamente, el servidor no está reciviendo ningún dato del cliente, pero tampoco esperando a que lo reciba (o eso me parece). He intentado hacer varios fixes pero no he podido al final. Igual ustedes me pueden ayudar a encontrar el error.

Código: Text
  1. Private Sub Connect_Click()
  2. If ActAs = "Serve" Then Exit Sub
  3.  
  4. Winsock1.RemoteHost = txtIP.Text
  5. Winsock1.RemotePort = txtPORT.Text
  6.  
  7. Winsock1.Close
  8. Winsock1.Connect
  9.  
  10. ActAs = "Client"
  11.  
  12. txtIP.Text = "Found match!"
  13. End Sub
  14.  
  15. Private Sub CServ_Click()
  16. If ActAs = "Client" Then Exit Sub
  17.  
  18. Winsock1.Close
  19.  
  20. ActAs = "Serve"
  21.  
  22. Winsock1.LocalPort = txtPORT.Text
  23.  
  24. Winsock1.Listen
  25.  
  26. txtIP.Text = "Waiting for a rival . . ."
  27. End Sub
  28.  
  29. Private Sub Dissc_Click()
  30. Winsock1.Close
  31. End
  32. End Sub
  33.  
  34. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  35.  
  36. Winsock1.Close
  37.  
  38. ShallNotPass = True
  39.  
  40. Winsock1.Accept requestID
  41.  
  42. TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text)
  43. TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin.Text & TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") & " Is acting as SERVER!" & vbCrLf
  44. TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text)
  45.  
  46. Winsock1.SendData "1" & TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") & " Is acting as SERVER!" & vbCrLf
  47.  
  48. 'Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1")
  49. 'Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2")
  50. 'Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3")
  51. 'Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4")
  52. 'Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5")
  53. Debug.Print Cartejas1
  54. Winsock1.SendData "_"
  55.  
  56. txtIP.Text = "Found match!"
  57.  
  58. End Sub
  59.  
  60. Public Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  61.  
  62. Winsock1.Close
  63.  
  64. MsgBox "Lost connection with game partner. Error:" & Number
  65.  
  66. TTGameOnline.Hide
  67. MultiplayForm.Show
  68. End Sub
  69.  
  70. Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  71. Dim Buffer As String
  72.  
  73. Winsock1.GetData Buffer
  74.  
  75. If Left(Buffer, 1) = "1" Then
  76.     Buffer = Mid(Buffer, 2, Len(Buffer))
  77.     TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin & Buffer & vbCrLf
  78. End If
  79. If Left(Buffer, 1) = "z" Then
  80.     MsgBox "The game partner has left the session."
  81.     MultiplayForm.Winsock1.Close
  82.     Me.Show
  83.     TTGameOnline.Hide
  84. End If
  85. Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1")
  86. Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2")
  87. Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3")
  88. Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4")
  89. Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5")
  90. If Left(Buffer, 1) = "C" Then
  91. '    If ShouldClientNotPass = True Then Exit Sub
  92. '    If Left(Buffer, 2) = "Y" Then ShallNotPass = False
  93. '    If ShallNotPass = True Then Exit Sub
  94.  
  95.     If ActAs = "Serve" Then
  96. '        ShouldClientNotPass = True
  97.         Winsock1.SendData "CN" & Cartejas1 & Cartejas2 & Cartejas3 & Cartejas4 & Cartejas5
  98.     End If
  99.     'For i = 1 To 5
  100.     '    EneDCards(i) = CInt(Left(Buffer, i + 1))
  101.     'Next i
  102. '    Dim i As Integer
  103. '    Dim doomstring(1 To 5) As String
  104. '    For i = 1 To 5
  105. '        doomstring(i) = Left(Buffer, 2 + i)
  106. '        Debug.Print doomstring(i); v
  107. '    Next i
  108.    
  109.     EneCar = Left(Buffer, 3)
  110.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card1", EneCar)
  111.     EneCar = Left(Buffer, 4)
  112.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card2", EneCar)
  113.     EneCar = Left(Buffer, 5)
  114.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card3", EneCar)
  115.     EneCar = Left(Buffer, 6)
  116.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card4", EneCar)
  117.     EneCar = Left(Buffer, 7)
  118.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card5", EneCar)
  119.     TTGameOnline.Show
  120.     Me.Hide
  121.    
  122. End If
  123. If Left(Buffer, 1) = "_" Then
  124.     Winsock1.SendData "CY" & Cartejas1 & Catejas2 & Catejas3 & Catejas4 & Catejas5
  125. End If
  126. End Sub
  127.  

También les dejo el código completo por si quieren echarle un vistazo más de cerca:
*cought mejor no, privilegios cought*

Espero su respuesta.
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #1 en: Lunes 25 de Agosto de 2008, 13:14 »
0
En Connect_Click() deberías de poner Winsock1.Close antes de asignar IP y puerto.

En Winsock1_ConnectionRequest (el evento de cuando se recibe una petición de conexión, que debería estar en el servidor) no deberías hacer Winsock1.Close porque sino cierras la conexión  :P

Llamar dos veces seguidas (líneas 42 y 46) a TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") es ineficaz. Guarda el valor en una variable para volverlo a utilizar.

A ver si con las dos primeras se arregla algo, sino ya le echo un vistazo más en profundidad.

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #2 en: Lunes 25 de Agosto de 2008, 13:39 »
0
Gracias por el interés, moskit0, cuántas veces me habrás ayudado  :lol:

Ahora me da un error tonto con esta línea:

Citar
Winsock1.Accept requestID
40020 Invalid operation at current state

Pongo el código modificado  ^_^
Código: Text
  1. Public ActAs As String
  2.  
  3. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nsize As Long, ByVal lpfilename As String) As Long
  4. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpString As String, ByVal lpfilename As String) As Long
  5.  
  6. Public Cartejas1 As String
  7. Public Cartejas2 As String
  8. Public Cartejas3 As String
  9. Public Cartejas4 As String
  10. Public Cartejas5 As String
  11.  
  12. Public EneCar As String
  13.  
  14. Public ShouldNotPass As Boolean
  15. Public ShouldClientNotPass As Boolean
  16. Public Sub PutVar(File As String, Header As String, Var As String, Value As String)
  17.     Call WritePrivateProfileString(Header, Var, Value, File)
  18. End Sub
  19.  
  20. Private Sub cOFF_Click()
  21. TTGameOffline.Show
  22. Me.Hide
  23. End Sub
  24. Private Function GetVar(File As String, Header As String, Var As String) As String
  25. Dim sSpaces As String   ' Max string length
  26. Dim szReturn As String  ' Return default value if not found
  27.  
  28.     szReturn = vbNullString
  29.  
  30.     sSpaces = Space$(1000)
  31.  
  32.     Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), File)
  33.  
  34.     GetVar = RTrim$(sSpaces)
  35.     GetVar = Left(GetVar, Len(GetVar) - 1)
  36. End Function
  37.  
  38. Private Sub Connect_Click()
  39. If ActAs = "Serve" Then Exit Sub
  40.  
  41. Winsock1.Close
  42.  
  43. Winsock1.RemoteHost = txtIP.Text
  44. Winsock1.RemotePort = txtPORT.Text
  45.  
  46. Winsock1.Connect
  47.  
  48. ActAs = "Client"
  49.  
  50. txtIP.Text = "Found match!"
  51. End Sub
  52.  
  53. Private Sub CServ_Click()
  54. If ActAs = "Client" Then Exit Sub
  55.  
  56. Winsock1.Close
  57.  
  58. ActAs = "Serve"
  59.  
  60. Winsock1.LocalPort = txtPORT.Text
  61.  
  62. Winsock1.Listen
  63.  
  64. txtIP.Text = "Waiting for a rival . . ."
  65. End Sub
  66.  
  67. Private Sub Dissc_Click()
  68. Winsock1.Close
  69. End
  70. End Sub
  71.  
  72. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  73.  
  74. ShallNotPass = True
  75.  
  76. Winsock1.Accept requestID
  77.  
  78. Dim nombrejugador As String
  79.  
  80. nombrejugador = TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name")
  81.  
  82. TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text)
  83. TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin.Text & nombrejugador & " Is acting as SERVER!" & vbCrLf
  84. TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text)
  85.  
  86. Winsock1.SendData "1" & nombrejugador & " Is acting as SERVER!" & vbCrLf
  87.  
  88. 'Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1")
  89. 'Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2")
  90. 'Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3")
  91. 'Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4")
  92. 'Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5")
  93. Debug.Print Cartejas1
  94. Winsock1.SendData "_"
  95.  
  96. txtIP.Text = "Found match!"
  97.  
  98. End Sub
  99.  
  100. Public Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  101.  
  102. Winsock1.Close
  103.  
  104. MsgBox "Lost connection with game partner. Error:" & Number
  105.  
  106. TTGameOnline.Hide
  107. MultiplayForm.Show
  108. End Sub
  109.  
  110. Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  111. Dim Buffer As String
  112.  
  113. Winsock1.GetData Buffer
  114.  
  115. If Left(Buffer, 1) = "1" Then
  116.     Buffer = Mid(Buffer, 2, Len(Buffer))
  117.     TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin & Buffer & vbCrLf
  118. End If
  119. If Left(Buffer, 1) = "z" Then
  120.     MsgBox "The game partner has left the session."
  121.     MultiplayForm.Winsock1.Close
  122.     Me.Show
  123.     TTGameOnline.Hide
  124. End If
  125. Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1")
  126. Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2")
  127. Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3")
  128. Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4")
  129. Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5")
  130. If Left(Buffer, 1) = "C" Then
  131. '    If ShouldClientNotPass = True Then Exit Sub
  132. '    If Left(Buffer, 2) = "Y" Then ShallNotPass = False
  133. '    If ShallNotPass = True Then Exit Sub
  134.  
  135.     If ActAs = "Serve" Then
  136. '        ShouldClientNotPass = True
  137.         Winsock1.SendData "CN" & Cartejas1 & Cartejas2 & Cartejas3 & Cartejas4 & Cartejas5
  138.     End If
  139.     'For i = 1 To 5
  140.     '    EneDCards(i) = CInt(Left(Buffer, i + 1))
  141.     'Next i
  142. '    Dim i As Integer
  143. '    Dim doomstring(1 To 5) As String
  144. '    For i = 1 To 5
  145. '        doomstring(i) = Left(Buffer, 2 + i)
  146. '        Debug.Print doomstring(i); v
  147. '    Next i
  148.    
  149.     EneCar = Left(Buffer, 3)
  150.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card1", EneCar)
  151.     EneCar = Left(Buffer, 4)
  152.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card2", EneCar)
  153.     EneCar = Left(Buffer, 5)
  154.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card3", EneCar)
  155.     EneCar = Left(Buffer, 6)
  156.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card4", EneCar)
  157.     EneCar = Left(Buffer, 7)
  158.     Call PutVar(App.Path & "player.ini", "PLAYER2", "Card5", EneCar)
  159.     TTGameOnline.Show
  160.     Me.Hide
  161.    
  162. End If
  163. If Left(Buffer, 1) = "_" Then
  164.     Winsock1.SendData "CY" & Cartejas1 & Catejas2 & Catejas3 & Catejas4 & Catejas5
  165. End If
  166. End Sub
  167.  
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #3 en: Lunes 25 de Agosto de 2008, 15:01 »
0
Pues efectivamente, tenías esa parte bien. Todo parece correcto. Voy a echarle un vistazo al conjunto. Ya te cuento.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #4 en: Lunes 25 de Agosto de 2008, 15:10 »
0
Añádete un evento Winsock1_Connect() y ponle un MsgBox, para ver si la conexión se realiza con éxito. Dependiendo de ello, buscaremos en un sentido u otro. Y en el evento Winsock1_Error() usa Description en vez de Number. Suerte.

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #5 en: Lunes 25 de Agosto de 2008, 16:29 »
0
Cita de: "m0skit0"
Añádete un evento Winsock1_Connect() y ponle un MsgBox, para ver si la conexión se realiza con éxito. Dependiendo de ello, buscaremos en un sentido u otro. Y en el evento Winsock1_Error() usa Description en vez de Number. Suerte.

El msgbox de connect aparece, pero el mensaje de error de _Error no lo hace.
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #6 en: Martes 26 de Agosto de 2008, 09:25 »
0
Ahora mete otra MsgBox en Winsock1_DataArrival() que te imprima bytesTotal. ¿Cuánto sale?

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #7 en: Martes 26 de Agosto de 2008, 10:30 »
0
No le da tiempo a aparecer. Sale el error de conexión.

Si quieres te envio al mail el código completo  :mellow:
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #8 en: Martes 26 de Agosto de 2008, 11:04 »
0
Lo puedes postear aquí, así lo puede ver más gente. Pero como quieras. Si lo envías a mi email, avisa, que sino lo borro por spam jajaja.

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #9 en: Martes 26 de Agosto de 2008, 12:47 »
0
Intenté postearlo cuando hice el tema, pero no me dejaba por falta de posts  :mellow:

Voy a ver si ahora . . . Subiendo.

http://www.fileden.com/files/2006/10/6/ ... T3.1B4.rar
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #10 en: Martes 26 de Agosto de 2008, 13:36 »
0
Al parecer funciona la conexión (sale el mensaje de "WTF"  :D ), pero da error en

Código: Text
  1.  
  2. Sub Form_Load()
  3. (...)
  4. R1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)
  5.  
  6.  

El problema radica en que en player.ini no tienes nada definido para [PLAYER2] y por tanto la línea (de la misma función):

Código: Text
  1.  
  2. EDC1 = GetVar(App.Path & "player.ini", "PLAYER2", "Card1")
  3.  
  4.  

deja EDC1 = "" con lo que esto crea problemas posteriormente en

Código: Text
  1.  
  2. If MultiplayForm.ActAs = "Serve" Then TemCarNumber = EDC1
  3. (...)
  4. TemCarNumberStr = "C" & TemCarNumber
  5. (...)
  6. TemCarRoute = GetVar(App.Path & "cards.ini", TemCarNumberStr, "NameR")
  7.  
  8.  

Soluciona esto y seguimos viendo.

Y unos consejos:

- Formatea mejor el código porque queda más legible y es más fácil encontrar los errores. Fíjate en la función GetVar() de tu código. Eso es buen formato (se nota que la has copiado :)).

- Especifica la visibilidad de las FUNCTION y SUB con PRIVATE/PUBLIC/FRIEND.

- ¡Comenta el código! Ya sabes, la puñetera comilla (').

- Las declaraciones (Dim) al principio, luego el código. No pongas declaraciones en medio del código, no ayuda a la legibilidad.

- Usa Option Explicit

- Usa módulos

Te aconsejo que hagas esto puesto que mucha gente ni siquiera leería el código en las condiciones en que me lo has mandado. Un saludo!

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #11 en: Martes 26 de Agosto de 2008, 14:39 »
0
Por cierto, no olvides volver a poner Winsock1.Close antes de Winsock1.Accept. Lo tenías bien puesto, pero en el código que me has mandado falta volver a ponerlo.

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #12 en: Martes 26 de Agosto de 2008, 14:54 »
0
Bien, veamos, el problema de Player2 y los valores que no se cargan desde el .ini residen en el paquete que no llega (problema que describo al principio del post).

Es una cadena de sucesos, y según el último fix que hice, tendría que:

Server acepta llamada, y manda paquete "_"
Cliente recibe paquete "_" y responde con paquete "C" acompañado de las cartas.
Server recibe paquete "C" y devuelve su versión del paquete "C", y de paso carga las cartas y demás datos en TTGameOnline (GameON.frm)
Cliente recibe paquete "C" de server y carga TTGameOnline con los datos.

El problema aquí es que el server no está recibiendo ningún dato, por algún motivo que desconozco. Entonces, los datos del paquete "C" se escriben en "player.ini", [PLAYER2]. Al no recibirse el paquete, no guarda los datos. Al no guardarse los datos, origina el problema que usted bien ha descrito justo ahora.  ;)

El programa tira a las mil maravillas con algo definido, pero se trata de que escriba sin que esté predefinido, para que ambos jugadores puedan tener sus propias cartas ;3
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #13 en: Martes 26 de Agosto de 2008, 15:06 »
0
¿Entonces para qué quiero el código que me has enviado?  :P

Postea el código correcto para que podamos depurarlo.

P.D: Por cierto, está interesante  :good:

Begeo

  • Nuevo Miembro
  • *
  • Mensajes: 21
  • Nacionalidad: es
    • Ver Perfil
Re: Indiana jhones en busca del paquete perdido
« Respuesta #14 en: Martes 26 de Agosto de 2008, 21:18 »
0
tsk tsk tsk tsk  :mellow:

No acabo de encontrar el error, sé que tiene que ver algo con una variable que no se escribe, por lo tanto, tiene que ser en MultiplayForm (del cual es el código que escribi en el primer, y siguiente post).

Sé que pasa algo con el paquete.
No sé qué es a ciencia cierta.
Asi concierne al proyecto mizuki, dejando a los dos solitarios. Debe de ser algo que hay en la vista, necesitando llevar las gafas por una razon.

m0skit0

  • Miembro de PLATA
  • *****
  • Mensajes: 2337
  • Nacionalidad: ma
    • Ver Perfil
    • http://fr33kk0mpu73r.blogspot.com/
Re: Indiana jhones en busca del paquete perdido
« Respuesta #15 en: Miércoles 27 de Agosto de 2008, 09:11 »
0
Cita de: "Begeo"
Sé que pasa algo con el paquete.
No sé qué es a ciencia cierta.

Sí, ya lo comentaste, pero sin el código no puedo ayudarte.