LiveCode Forums.

Code: Select all

open socket to "localhost:8080"
write socketfile to socket "localhost:8080"

Code: Select all

accept connections on port 8080 with message "someoneConnected"

on someoneConnected theIP
   read from socket theIP until "EOL*" with message "newMessage"
   
end someoneConnected

Code: Select all

write socket theIP...

Code: Select all

read from socket "localhost:8080"...

Code: Select all

global gRunning, gPort

on ServerStart
   put "8080" into gPort  --  or whatever portNum you choose
   if not gRunning then
      put true into gRunning
      accept connections on port gPort with message "ClientConnect"
   end if
end ServerStart

on ClientConnect theSock
   put "Hello!" into MyMsg
   write "CON OK, " & length(MyMsg)& return & MyMsg to socket theSock
   read from socket theSock until return with message "MsgReceive"
end ClientConnect

on MsgReceive theSock, theMsg
   put item 1 of line 1 of theMsg into MyCmd  -- CMD received
   put Item 2 of line 1 of theMsg into MyLen  -- Length(Payload)
   read from socket theSock for MyLen chars -- get the Payload
   put it into myPL
   --  here we process the client request:
   put MSGHandler(MyCmd,myPL) into MyResult  --  handle a Cmd
   --  //
   write MyCmd & " OK," & length(MyResult) & return & MyResult to socket theSock  --  and reply
   read from socket theSock until return with message "MsgReceive"
end MsgReceive

function MSGHandler theCmd, thePL
   switch theCmd
      case "ART"
         --  an example - we have an article number and the customers price group,
         --  and want the currently available amount of the article, and the custom price for our customer 
         put line 1 of thePL into myArtNum                  --  the article number
         put line 2 of thePL into myPriceGroup           --  the price group
         put "SELECT `article`.price, `supply`.available " & \
               "FROM `article` LEFT JOIN `supply` ON `article`.id = `supply`.article " & \
               "WHERE `article`.number = '" & myArtNum & "';" into StrSQL
         put getSQL("WEBDB",StrSQL) into myArtData
         --  using our "getSQL interface" (it does all the db stuff)
         --  we ask our "WebDB" for the base price of the article & its available amount
         set itemdel to tab
         put item 1 of myArtData into myPrice
         put item 2 of myArtData into myAvail
         
         put "SELECT mod FROM `pricegroups` " & \
               "WHERE `pricegroups`.id = " & myPriceGroup & ";" into StrSQL
         put getSQL("CACHE",StrSQL) into myPMod
         -- we check our cache SQLite for the suitable price modificator
         put round(myPrice * myPMod,2) into myPrice
         
         return myPrice & return & myAvail               --  answer with the desired data
         break
      case "CUS"
         --  ...
         break
      default
         return empty
   end switch
end MSGHandler

Code: Select all

global gSocket, gPort

on StartCon theServer
   if gPort is empty then put "8080" into gPort  --  or whatever portNum you choose
   if gSocket is empty then
      open socket to theServer & ":" & gPort with message "ServerConnect"
   end if
   put "Connected to server " & theServer & return after field "logFld"
end StartCon

on ServerConnect theSocket
   put theSocket into gSocket
   read from socket gSocket with message "MsgReceive"
   put "Server accepted me!" & return after field "logFld"
end ServerConnect

on MsgReceive theSocket, theMsg
   put "<- : " & theMsg & return & "----------" & return after field "logFld"
   read from socket theSocket with message "MsgReceive"
end MsgReceive

on MsgSend
   --  a button will call this
   put fld "CmdToSend" into myCmd       --  A command, so the server knows what to do with the msg
   put fld "DataToSend" into myPayLoad     --  additional data that the server requires to do it's work
   if gSocket is not empty then
      put myCmd & "," & length(myPayLoad) & return & myPayLoad into myData
      write MyData to socket gSocket        
   end if
   put "-> : " & myData & return after field "logFld"
end MsgSend