FiveTech Software tech support forums

... select '"+acid1+"',currency from currency limit 1 on duplicate key update descrip=descrip"),; if(MYSQL_AFFECTED_ROWS(oserver:nSocket)>0,(obrow2:otreeitem:add(acid1),obrow2:refresh()),)) MENUITEM "增加下阶 " ACTION (acid1:=padr(obrow2:otreeitem:cprompt,nacidlen," ...

... listen if there are oclients on lan ( sockcli.prg) I understood I must make an array to save all client is connected to server ( I must save the nsocket, the name and the ip of client) The server before must connect to one oclient and then can called this oclient with msg the oclient. ok this ...

I use sockcli.prg and sockserv.prg U found them on samples folder When a client is connetted to server I create an array with oClient:nSocket and oClient:ClientIP() I 'am trying to understand How I can acquire information and use the commands of socket If someone can help me ... I must not ...

... mUniWinConnected := .F. mUniWinClosed := .F. mUniWinInput := "" oSocketArray[nBridge] := TSocket():New(UniPort) mTimer := 0 UniWinSocket := oSocketArray[nBridge]:nSocket oSocketArray[nBridge]:bRead = { | oSocket | mUniWinInput := oSocket:GetData() } // Never use a MsgInfo() here ...

... in sockcli.prg and than sockserv.prg. So first call 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 ) } ...

...     3960  3961  3964  3967  3969 NSIZE                  WINDOW.PRG      620   622   624 NSIZETYPE              WINDOW.PRG      774  2632  2667 NSOCKET                WINDOW.PRG      499  1352  1355 NSTATUS                WINDOW.PRG      519  3694  3697 NSTYLE                  WINDOW.PRG     ...

... ON planning FOR EACH ROW BEGIN UPDATE planning SET nr = nr + 1 where ID = 1; END" ) in TMysql (from harbour ) maybe is mysql_query( oServer:nSocket, "CREATE TRIGGER planning_update AFTER UPDATE ON planning FOR EACH ROW BEGIN UPDATE planning SET nr = nr + 1 where ID = 1; END" )

Thank you very much Daniel.

There is a help in Fivewin Function about ConnectTo like that.


ConnectTo( <nSocket>, <nPort>, <cIPAddr ) --> nRetCode

<nRetCode> Zero if successful, otherwise SOCKET_ERROR.

unfortunately, it does not work. It returns always -1.

... class instead." As you can see in tsocket.prg in this method METHOD New( nPort, oWnd ) CLASS TSocket if oWnd != nil oWnd:bSocket = { | nSocket, nLParam | ::HandleEvent( nSocket,; nLoWord( nLParam ), nHiWord( nLParam ) ) } WSAAsyncSelect( ::nSocket, oWnd:hWnd, WM_ASYNCSELECT,; nOr( FD_ACCEPT, ...

... SQLEASCAPE ) { mysql_real_escape_string( (MYSQL *)_parnl(1), _parc(2), _parc(3), _parnl(4) ) ; hb_retc( _parc(2)) ; } in prg ?SQLEASCAPE(oserver:nsocket,,"Zak's") Want to be: "Zak\'s " Regards ! Shuming Wang

... } //----------------------------------------------------------------------------// #ifdef __HARBOUR__ HARBOUR HB_FUN_WSAASYNCSELECT( PARAMS ) // ( nSocket, nHWnd, nMsg, nModes ) --> nReturn #else CLIPPER WSAASYNCSE( PARAMS ) // LECT( nSocket, nHWnd, nMsg, nModes ) --> nReturn #endif { _retni( ...

... function Server() oSocket = TSocket():New( 2000 ) oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) } ...

... first two parameters and return value like the original winsock recv function so errors can be detected. // Uses a 4k buffer. CLIPPER RECV1() // ( nSocket, @cRecv ) --> nLength (or SOCKET_ERROR) { BYTE buffer[ 4096 ]; WORD wLen; // Is cRecv parameter a character passed by reference? if (_parinfo(2) ...

... function Server() oSocket = TSocket():New( 1001 ) oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) }} ...

... function Server() oSocket = TSocket():New( 1001 ) oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),; oClient:Cargo := ST_COMMAND,; oClient:bRead := { | oSocket | OnRead( oSocket ) },; oClient:bClose := { | oSocket | OnClose( oSocket ) }} ...