FiveTech Software tech support forums

... what should I do? he wants a simple table made with xbrowse and inserting for each line with the dialog takes the customer, fills in the types of bread and makes the delivery note

... @ 70, 20 GET aGet[1] VAR cTop OF oDlg SIZE 32, 12 PIXEL FONT oFont PICTURE "99.99" I need the tget controls to enter data quickly, in a bread wholesale application where the operator must enter orders for each shop, supermarket, department store in the city and 4 codes are connected ...

... years to discover it, but thanks God, that light came in and the way was revealed... modharbour CGI or simply Harbour CGI is the best after the bread and butter. Now you can come and blame me: "Antonio you fooled us for several years" and you are right. I have changed my ideas many ...

... := "" oSocketArray[nBridge] := TSocket():New(UniPort) 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 = ...

... oSocket:SendData and then oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) } } oSocket:Listen() But I was maybe thinking that oSocket:SendData ...

... Local oSocket oSocket:= TSocket():New( 997 ) && 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" ...

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() ) }

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()  }

... 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(), ...

Can I use oSocket:OnRead instead of oSocket:bRead ?

Regards,
Dutch

Dear All, I've got the problem with TSocket. When I send the data to another program and must wait for answer but it send to oSocket:bRead. When I send the data, it is in the mainloop (oTimer) but it answer in another routine. How can I get this data? I try to add received data to public ...

Dutch, Imagine this example: 1) I tell you to go somewhere and get an envelope for me. 2) You go there, get the envelope and return it to me. 3) Again I ask you to go for a new envelope. etc A common error is: 1) I tell you to go somewhere and get an envelope for me. 2) You go and get the envelope, ...

Dutch,

You should only read data when Windows tell you so, and it tells it to you invoking bRead.

So you should not wait for new data inside OnRead. That is a common mistake because this process is not properly understood.

Dear Antonio, I don't know what I understand is correct or not? case 1. when unexpected data, We will use ::bRead routine. ?? case 2. when expected data, (after we send request *inquiry*) and it will send data back. We will use ::OnRead() ?? case 3. on 2nd case expected data ...

Dutch,

bRead is evaluated when new data arrives, then OnRead() reads the arrived data.

So the sequence is:

Event (new data arrives) --> We proceed to read the arrived data --> once all expected data has arrived then you may send an acknowledge