Funcionan los sockets ?

Salvador · Post by **Salvador** » Fri May 16, 2008 11:18 pm

Antonio.

Este codigo:

#include "fwce.ch"

Function Main()

LOCAL oWnd, oSocket
   
    DEFINE WINDOW oWnd TITLE "Test de sockets";
   
     oSocket := Tsocket():New( )

    ACTIVATE WINDOW oWnd 

RETURN .t.

en el emulador muestra el siguiente mensaje de error "Fix GPFStack()!" .

Puedes darme alguna indicación?.

Gracias.
Salvador Gallardo

Post by **Antonio Linares** » Sat May 17, 2008 8:42 am

Salvador,

Pruébalo así:

Code: Select all

#include "fwce.ch" 

Function Main() 

LOCAL oWnd, oSocket 
    
    DEFINE WINDOW oWnd TITLE "Test de sockets"; 
    
    ACTIVATE WINDOW oWnd ;
       ON INIT oSocket := Tsocket():New( ) 

RETURN .t.

Salvador · Post by **Salvador** » Sat May 17, 2008 10:24 pm

Antonio sigue dando el mismo error.

Post by **Antonio Linares** » Sat May 17, 2008 11:13 pm

Salvador,

Acabamos de probar fwppc\samples\sockcli.prg y funciona correctamente, sin GPFs.

Puedes probarlo y comprobar si te da error ? gracias

Salvador · Post by **Salvador** » Sun May 18, 2008 12:52 am

Antonio,
Tienes razón, no se produce el error. Que falla en mi código?.
De que modo hay que configurar el emulador para poder hacer pruebas con sockserv.prg tal como explicas en:
http://www.fivetechsoft.com/forums/view ... ht=sockets

Gracias.
Salvador Gallardo

Post by **Antonio Linares** » Sun May 18, 2008 7:46 am

Salvador,

El fallo posiblemente se debe a que no estas especificando el puerto a usar por el socket ni la ventana a la que enviar los eventos:

TSocket():New( 200, oWnd ) // puerto 200, oWnd ventana para eventos

Post by **Antonio Linares** » Sun May 18, 2008 7:48 am

Salvador,

Para poder hacer pruebas con sockserv.exe desde el PC, necesitas configurar la red en el Pocket PC en el emulador.

Intenta primero configurar el Pocket PC para acceder a Internet, y eso será suficiente. Que puedas acceder a google, etc. desde el navegador del Pocket PC

Post by **Antonio Linares** » Sun May 18, 2008 7:53 am

Salvador · Post by **Salvador** » Sun May 18, 2008 1:23 pm

Antonio,
Sigue sin funcionar.
Tengo acceso a internet desde el emulador. Hecompilado sockcli.prg con buildce.bat y lo he copiado al emulador.
En el pc tengo sockcli y sockserv para harbour y se comunican entre ellos sin problemas.
Pero entre sockcli del emulador y sockserv del pc no se prooduce la comunicación.
El fuente de sockcli es el mismo tanto para Fwh como Fwppc.
Estoy convencido que algo no funciona en la clase de Fwppc. Podeis probarlo de nuevo por favor.

El build de Fwppc es de septiembre 2007

Gracias.
Salvador Gallardo

Post by **Antonio Linares** » Mon May 19, 2008 8:31 am

Salvador,

Vamos a probarlo y te comentamos

Post by **Antonio Linares** » Tue May 20, 2008 12:37 pm

Salvador,

Efectivamente se está produciendo el error que comentas.

Vamos a revisarlo para ver que puede estar ocurriendo

Salvador · Post by **Salvador** » Sun May 25, 2008 10:52 am

Antonio,

Alguna novedad con los sockets ?.

Post by **Antonio Linares** » Sun May 25, 2008 5:28 pm

Salvador,

Estamos cercanos a terminar un nuevo build de FWPPC, con nueva versión de Harbour, y en donde vamos a revisar los sockets.

En sólo unos dias te podremos dar la respuesta, gracias

Salvador · Post by **Salvador** » Mon May 26, 2008 9:17 am

Antonio,

No teníamos ya soporte de sockets ?.

http://www.fivetechsoft.com/forums/view ... ht=sockets

Post by **Antonio Linares** » Mon May 26, 2008 12:54 pm

Salvador,

Si, y estaban funcionando bien.

Lo que estamos es intentando localizar que le ha podido ocurrir. Al mismo tiempo estamos trabajando sobre un nuevo build de FWPPC, por eso que el tema se nos esté haciendo un poco más dificil.

A ver si encontramos el fallo cuanto antes