ConexióN WinsocK - Duda

[-sagitari-]

 
Estoy haciendo un programa para escuchar desde éste la radio de una web, para no tener que acceder a la web. Entonces, para que salga el status; estado de la radio... No lo tengo muy claro... había pensado esta forma:

1. poner un winsock
2. en las propiedades del winsock (en las propiedades que sale a la derecha) he puesto remoteip la ip de la radio, y remoteport, el puerto de la radio... y entonces, en el código del proyect he puesto que cuando el winsock conecte en el label1 salga (caption) ONLINE
y que cuando no conecte salga
offline

pero resulta que no sale nada... y me da a pensar que no conecta el winsock....... :S porque no sé muy bien cómo establecer la conexión, simplemente he puesto los "detalles" de la conexión a la derecha en las propiedades del winsock como bien os dije antes....

... Mi problema es que en el label no sale ni online ni offline...   

[..::[ thekingkid ]::..]

mmm y si poner un timer con un intervalo de 1000 milisegundos y en timer iria esto:

label.caption=winsock1.state



entonces si es 2 esa listando si es 7 esta conectado y si es 8 no esta conectado al igual que 0
tambien puedes modificarlo y por ejemplo ponerlo en un select case


select case winsock1.state


case 0: label1.caption="conexion cerrada"
case 2: label1.caption="escuchando puerto"
case 7: label1.caption="conexion establecida"
case 8: label1.caption="conexion rechazada"

end select



algo asi... espero que te sirva

[-sagitari-]

mmm he probado lo primero.. y en el label siempre me sale 0

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Label1.Caption = WS.State
End Sub

no entiendo como "configurar" digamos el estado del ws para lo que pueda salir luego en el label 

[skapunky]

Mira hazlo asi:

Código [Seleccionar] Expandir


If ws.state = 7 then label1.caption = " Conectado"
end if


Asi para todos los casos, yo lo uso y me va a la perfección. Por cierto, esto ponlo dentro de un timer como ya te han indicado y ponle un intervalo en las propiedades de 1000 o pon en el cuerpo del timer:

Timer1.intervale = "1000"

Asi te pondra el estado en muy poco tiempo, bastante preciso.

Saludos.

www.skapunky.netmalakay.com

[..::[ thekingkid ]::..]

mmm he probado lo primero.. y en el label siempre me sale 0

si te sale 0 es por que no esta conectado 0---->conexion cerrada  o su "ws" no sta haciendo nada...
por eso te decia de los casos... para que pudieras identificar si fue rechazado (no se logro conectar) o si esta conectado escuchando etc etc

[-sagitari-]

mmm he probado lo primero.. y en el label siempre me sale 0

si te sale 0 es por que no esta conectado 0---->conexion cerrada  o su "ws" no sta haciendo nada...
por eso te decia de los casos... para que pudieras identificar si fue rechazado (no se logro conectar) o si esta conectado escuchando etc etc

me sale 0 siempre...

he probado lo de los casos, pero siempre me dice conxion cerrada...

usando el if de la manera que lo pusiste skapunky, no me sale nada en el label, y poniendo yo el else para que de no ser asi salga offline, siempre sale offline :S....

pero a mi me da que no concta el winsock, simplemente he predeterminado el sitio a conectar por parte del WS a través de sus propiedades a la derecha, poninedo el remoteip y el remoteport... 

[maxnet]

dime que progama usas para escuchar la radio
real player o windows media??

[-sagitari-]

dime que progama usas para escuchar la radio
real player o windows media??

windows media

[maxnet]

tienes que usar el contrl de windos media para escuchar
la radio

busca en el codigo html de la web la url
donde conecta l windows media

en la propiedad filename del windows media le asignas
la url

[skapunky]

Mira, ponlo asi dentro de un timer

Código [Seleccionar] Expandir


Private Sub Time_Timer()
If ws.State = 7 Then Label5.Caption = "conectado"
If ws.State <> 7 Then Label5.Caption = "desconectado"
End Sub


Si no te va asi... me temo que haces mal algo en el control winsock porque a mi me va perfectamente y el codigo este es valido seguro.

Acuerdate de llamar ws al control winsock.

Saludos.