FiveTech Software tech support forums

... which I access through port 81 in TwebServer() I need to get all the information from the browse, the same way it's done in tSocket.prg via ::GetData() Is there any function I can use in mod_harbour, below the prg I'm creating /*========================================================================  ...

... show the summation of a given year or month. I don't know if I was very specific. I'm waiting. In the above example, change the function GetData() with this function static function GetData()   local aData    := {}   local a, n   local ...

Mr Rao, this sample is very nice !!!. I found a missing function in : static function GetData() local aData := {} local a, n local nTot := 0 for n := 1 to 15 if n % 5 == 0 a := { 1, nil, RandomText( 20, 30 ), 0, 0, 0, nTot } ... ... Is it possible to add this function ...

... mTimer := 0 UniWinSocket := oSocketArray[nBridge]:nSocket oSocketArray[nBridge]:bRead = { | oSocket | mUniWinInput := oSocket:GetData() } // Never use a MsgInfo() here because it hangs Windows!!! oSocketArray[nBridge]:bConnect = { || mUniWinConnected := .T. } oSocketArray[nBridge]:bClose ...

... that is initially set to .F. - this is set to true in bConnect, but when i try to reference it, it always returns .f. - the senddata & getdata routines all work fine. Is there a better way to detect if i'm connected? STATIC FUNCTION SocketTest     LOCAL mTimer   := 0    PRIVATE oSocket ...

In this way
cData := oTelnet:GetData()
you assign to cData variable the content
then you can treat it as a normal variable

... ) && Aca creo el socket, el puerto (997) deberia decirtelo el que desarrollo el server. oSocket:bRead:= { | oSocket | VerResSer(oSocket:GetData()) } && Este es el evento de lectura, aca recibe la respuesta oSocket:Connect( "192.168.0.150" ) && Esta es la ip ...

Jorge,

Revisa los ejemplos en FWH\samples sockserv.prg y sockcli.prg para que veas como se realiza la comunicación entre el cliente y el servidor.

Los datos llegan por eventos, y para que te lleguen debes hacer:

oSocket:bRead = { | oSocket | MsgInfo( oSocket:GetData() ) }

... 997, oApp ) oSocket:Connect( "192.168.0.150", 997 ) oSocket:SendData( "r" ) /// Hasta aca apaentemente funciona. Ret :=oSocket:GetData() /// Creo que aca deberia tener la respuesta que nunca llega. Si alguien me puede orientar, desde ya muchas gracas. Jorge Jaurena

Jeff,

No sera esta linea ?

oSocket:bRead = { | oSocket | oSocket:GetData }

Q te faltan los parentesis de funcion ?

Code: Select all  Expand view

     oSocket:bRead    = { | oSocket | oSocket:GetData()  }

... this situation the problem is that the headers remains after setting the empty array but when I try to assign a new fill array pressing the "GetData" button then the xbrowse always displayed empty. Any solution ? Thanks in advance. #include "FiveWin.ch" #include "xbrowse.ch" ...

... these commands and ...it works fine! ... ... oTelnet := TSocket():New( nPort ) oTelnet:Connect( cIp ) oTelnet:lDebug := .T. syswait(1) oTelnet:GetData() syswait() oTelnet:SendData( "admin" + crlf ) SysWait(1) oTelnet:GetData() SysWait() oTelnet:SendData( "admin" + crlf ) ...

Hmmm..

If I exit the loop all dialogs stop adjusting the values of cSat and cHR .....

Dam .... I might need a separate GetData() for each dialog.

... function Client( oBtn1, oBtn2, oBtn3, oBtn4 ) oSocket = TSocket():New( 2000 ) oSocket:bRead = { | oSocket | MsgInfo( oSocket:GetData() ) } // Never use a MsgInfo() here because it hangs Windows!!! oSocket:bConnect = { || oBtn1:Disable(), oBtn2:Enable(), oBtn3:Enable(), oBtn4:Enable() ...

... it runs fine. Any ideas ? --------------------- #include "FiveWin.ch" #include "xbrowse.ch" function Main() local aNames, oBrw, oBtn, oDlg aNames:=GetData() DEFINE dialog oDlg TITLE "xBrowse tests" FROM 5,5 TO 40,40 @1,1 XBROWSE oBrw ARRAY aNames of oDlg ADD COLUMN TO XBROWSE oBrw DATA oBrw:nArrayAt(); ...