Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Error con WinSock

01/03/2004 - 22:13 por MiC | Informe spam
Ayuda Hacer una pregunta
Hola. A la vuelta con el eVB.
Quiero conectarme con mi Pocket Pc 2002 a una red a traves de GPRS, peros
cuando pongo el codigo y lo ejecuto me dice lo siguiente:
The control WinSock1 ({...}) could not be created.

Private Sub Command1_click()
winSock1.Close
winSock1.RemotePort = "4220"
winSock1.RemoteHost = "192.168.10.69"
winSock1.Connect "192.168.10.69", "4020"
winSock1.SendData "Cierrame"
WinSock
End Sub

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim incData As String
winSock1.GetData incData
If Mid(incData, 1, 14) = "Cierrame" Then
App.End
End If
End Sub
Lo anterior es el codigo que he puesto.
Las sigueintes lineas son las referencias del proyecto que he utilizado:
Microsoft CE WinSock Control 3.0
Fdo. Jesus Mª Martínez
TSM 400
Pocket PC 2002
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 ralvaradot
02/03/2004 - 16:06 | Informe spam
Hola Fernando

Verifica que el control winsock se encuentre registrado en el Pocket. Ese
error da cuando intentas utilizar un control y la dll no se ha copiado y/o
registrado en el dispositivo.

Puedes hacerlo por el Control manager en el menu Tools, Remote Tools.

O en el menu Projects, Properties, selecciona las opciones d eCopiar los
ActiveX al dispositivo.

Saludos

Roberto Alvarado
Bogota - Colombia


"MiC" wrote in message
news:uhBLeI9$
Hola. A la vuelta con el eVB.
Quiero conectarme con mi Pocket Pc 2002 a una red a traves de GPRS, peros
cuando pongo el codigo y lo ejecuto me dice lo siguiente:
The control WinSock1 ({...}) could not be created.

Private Sub Command1_click()
winSock1.Close
winSock1.RemotePort = "4220"
winSock1.RemoteHost = "192.168.10.69"
winSock1.Connect "192.168.10.69", "4020"
winSock1.SendData "Cierrame"
WinSock
End Sub

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim incData As String
winSock1.GetData incData
If Mid(incData, 1, 14) = "Cierrame" Then
App.End
End If
End Sub
Lo anterior es el codigo que he puesto.
Las sigueintes lineas son las referencias del proyecto que he utilizado:
Microsoft CE WinSock Control 3.0
Fdo. Jesus Mª Martínez
TSM 400
Pocket PC 2002


Preguntas similares

 

Busqueda sugerida :