FiveTech Software tech support forums

Antonio.

Este codigo:

Code: Select all  Expand view

#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

Salvador,

Pruébalo así:

Code: Select all  Expand view

#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.


Antonio sigue dando el mismo error.

Salvador,

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

Puedes probarlo y comprobar si te da error ? gracias

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

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

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

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

Salvador,

Vamos a probarlo y te comentamos

Salvador,

Efectivamente se está produciendo el error que comentas.

Vamos a revisarlo para ver que puede estar ocurriendo

Antonio,

Alguna novedad con los sockets ?.

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

Antonio,

No teníamos ya soporte de sockets ?.

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

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