ayy q manera de complicarse la vida xD
dim dat
dat = File1.Path & "\" & File1.FileName
winsock1.sendata "t#" & dat
haora viene el problema
servidor
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Select Case datos
Case "t#"
Kill (datos)
End Select
end sub
el problema ahi es lo q te explico seba...
vos estas mandando esto por ejemplo: t#C:\Archivo.txt
pero cuanod esto llega al cliente, nunca entra en el case... x datos es igual a t#C:\Archivo.txt y no a t#
lo q podes hacer ahora es esto... sin modificar el servidor, solamente cambiar a esto en el cliente
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Select Case Left(datos,2)
Case "t#"
Kill (Right(datos, Len(datos) - 2)
End Select
end sub
----------------------
ahora:
Select Case datos 'no funca
Case "t#" &dat
eso no funca xq
"t#" &dat
&dat = Null... no es nada.. nunca declaraste nada con dat...
---------------------
desp lo q puso Cassiani esta bien... es mas o menos lo q te explique yo mas arriba...
y despues lo q volviste a publicar
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim data1 as string
winsock1.getdata dato
DoEvents
Select Case Mid(data1, 1, 10)
case "t#"
MsgBox Mid(data1, 11, Len(data1))
end select
end sub
esta mal xq vos declaras la variable
data1
pero desp llamas para q reciba los datos a
dato
y finalmente lees nuevamente la primer variable q nunca modificaste (solo la declaraste)
bue espero q hayas entendido... estoy al dope x eso me puse a explicar un poco este lio q se armo xD..
SALUDOS
Mostrar Mensajes
