Winsock solo recibe 83 caracteres?

Iniciado por FaiF (A¥åHøRå), 24 Agosto 2008, 18:48 PM

0 Miembros y 1 Visitante están viendo este tema.

FaiF (A¥åHøRå)

Hola!

Estoy creando un programa similar a un chat para usarlo entre un PC y una PDA pero enviando los mensajes cifrados en RC4.
El servidor está hecho en VB 6.0 y el cliente en EVB 3.0 para Pocket PC. Ambos con el control Winsock que proporciona Microsoft.

El problema es que cuando envio del servidor (PC) al cliente (PDA) cadenas de más de 83 caracteres, la PDA deja de recibir nada más. Al revés pasa igual, solo recibe 83 caracteres, pero a diferencia de la PDA el PC sigue recibiendo mensajes.

Los códigos usados son (solo pongo lo relacionado con este problema):

Código (vb) [Seleccionar]

'SERVIDOR
Private Sub enviar_Click()

Dim datosenviar As String
datosenviar = RC4(aenviar.text, "123456789")

wS.SendData datosenviar
pant.Text = pant.Text & "Yo digo (" & Format(Now, "dd/mm/yyyy hh:mm:ss") & "):" & vbCrLf _
& "   " & aenviar.Text & vbCrLf & vbCrLf
aenviar.Text = ""

End Sub


Código (vb) [Seleccionar]

'CLIENTE

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String

WinSock1.GetData datos, vbString

Text1.Text = Text1.Text & "Server dice:" & vbCrLf & "  " & RC4(datos, "123456789") & vbCrLf
   
datos = ""

End Sub


Puede alguien ayudarme a solucionar este error?

Salu2  ;)

vivachapas

es xq el winsock no manda TODO junto, sino q de a "pedazos", tienes q hacer q cuando lo recibe "junte" esos "pedazos"...
en el buscador busca "enviar archivos por winsock" hay varios Source de como harcelo