Hi. I am trying to implement a web Server on my pocket PC. I have used the xWebServer Class from FWHarbour and it Almost Works! The problem i Have is the Sever request work fine Once...but then it wont accept a request again until i Exit and Restart the Program. The problem seems to be with Sockets and so i tested using a very simple bit of socket server code from the Harbour examples. Sure enough this works fine for the first connection. I am just using a WEB Browser on a PC and listening on PORT 80 on the Pocket PC. I send some data back and voila - it appears in the PC web Browser. BUT when i try again (i just refresh the page) it wont work! Something is getting corrupted or closed when it shouldnt be. I assume there must be some diffefence is API for Big Windows and winCE..Have there been any re-writes or the SOCKET class in recent versions?? I am using FEB2010 FWPPC Build... Please Help...Thanks
Code Example
Code Example
 oSocket = TSocket():New(80 )
  oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;
            oClient:Cargo := 0,;
            oClient:bRead := { | oSocket | OnRead( oSocket ) },;
            oClient:bClose := { | oSocket | OnClose( oSocket ) } }
  oSocket:Listen()
ACTIVATE WINDOW ownd
  close all
return nil
function OnRead( oSocket )
  local cData := oSocket:GetData()
  local cToken
  msginfo(cData)
  cbuffer=" HELLO "
     oSocket:SendData( "HTTP/1.0 200 OK" + CRLF + ;
                    "Server: FiveWin WebServer 1.0" + CRLF + ;
                    "Content-type: text/html" + CRLF + ;
                    "Content-length: " + Str( Len( cBuffer ) ) + CRLF + ;
                    "" + CRLF + cBuffer )
                   // oSocket:close()
return nil
//------------------------------------------------------------------------//
