LiveCode Forums

Code: Select all

    <?php

    /*
    * PHP Sockets - How to create a TCP/IP socket client
    */

    echo "<h2>TCP/IP Connection</h2><br />";

    /* Get the port for the WWW service. */
    $service_port = '50535';//getservbyname('www', 'tcp');

    /* Get the IP address for the target host. */
    $address = gethostbyname('my.server.dyndns.org');

    /* Create a TCP/IP socket. */
    $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
    if ($socket === false) {
        echo "socket_create() failed: reason: " . socket_strerror(socket_last_error()) . "<br />";
    } else {
        echo "OK.<br />";
    }

    echo "Attempting to connect to '$address' on port '$service_port'...";
    $result = socket_connect($socket, $address, $service_port);
    if ($result === false) {
        echo "socket_connect() failed.<br />Reason: ($result) " . socket_strerror(socket_last_error($socket)) . "<br />";
    } else {
        echo "OK.<br />";
    }

    $in = "Hello, Server!\r";
    $out = '';

    echo "Sending HTTP HEAD request...";
    socket_write($socket, $in, strlen($in));
    echo "OK.<br />";

    echo "Reading response:<br /><br />";
    while ($out = socket_read($socket, 2048)) {
        echo $out."<br /><br />";
    }

    echo "Closing socket...";
    socket_close($socket);
    echo "OK.<br /><br />";
    ?>

Code: Select all

    // user hovers the mouse above a link on a website, this is called:
    // [...]
    $codice = $_REQUEST["html"];
    $lenCodice = strlen($codice) + 1 + strlen($_REQUEST["priceTag"]);
    // setting up some variables ...

    if (!($client = fsockopen("tcp://my.server.dyndns.org", 50535, $errno, $errorMessage, 15))) die("Could not connect to host. err. n:".$errno." - ".$errorMessage);
    if (!stream_set_timeout($client, 1)) die("Could not set timeout");
    if (!stream_set_blocking($client, 1)) die("Could not set stream_set_blocking");
    fread($client,26);
    $msg = "ART,$lenCodice"."\r\n"."$codice,".$_REQUEST["priceTag"]."\r\n";
    // preparing a multiline message that should look like:
    //   ART,8         -- a command (ART) & the length of the next line
    //   08067,13       -- an product number & a pricelist number

    fwrite($client,$msg);
    // sending the request to the LC socket server, waiting for reply
    $ret = fread($client,2048);
    // socket server replies:
    //   ART OK,23      -- again a code first(ART OK), then the length
    //   3,10.47,550,6,1,Fl,Krt   -- information about the product (availability, price, ID for web-database, other stuff)

    $arr = explode(chr(10),$ret);
    $arr = explode(",",$arr[1]);
    if(count($arr)<3)
    {
    // a popup is created at the mouseLoc, containing customer specific product information
    // [...]
    }

    fclose($client);
    // [...]

Code: Select all

[CmdName], [lenght(whatFollows)]
[All, my, data
that, I want, processed]

Code: Select all

<?lc
put $_POST["name"] into tName
put $_POST["age"] into tAge
put $_POST["email"] into tEmail
 put revOpenDatabase("mysql","yourhost.com","yourdatabasename","yourdatabaseuser","youdatabasepassword") into gConnectionID
if gConnectionID is a number then
	put "name, age, email" into tfields
	put "sampledata" into tTableName
	put "INSERT INTO " & tTableName & " (" & tFields & ") VALUES (:1, :2, :3)" into tSQL
   revExecuteSQL gConnectionID, tSQL, "tName","tAge","tEmail"
if the result is a number then
        put "Successfully added a record!"
        revclosedatabase gConnectionID
    else
        put the result
    end if
else
put the result
end if
?>

Code: Select all

on mouseUp
   put "SampleUser" into tName
   put "99" into tAge
   put "sampleuser@usertown.usa" into tEmail
  put "name=" & tName & "&age=" & tAge & "&email=" & tEmail into tStuffToPost
  post tStuffToPost to URL "http://yourhost.com/middlware.lc"
  put it into tResponse
  answer tResponse
end mouseUp

Code: Select all

<?lc

put revOpenDatabase("mysql","yourDBhost","yourDBname","yourDBusername","yourDBpassword") into gConnectionID
if gConnectionID is a number then
put "SELECT * FROM " & "sampledata" into tSQL
    put revDataFromQuery(tab, cr, gConnectionID, tSQL) into TableData
repeat with x=1 to the number of lines in TableData
put line x of TableData & comma after OutputData
end repeat
repeat with x=1 to the number of lines in tOutputData
repeat with y= 1 to the number of words in line x of tOutputData
put tab after item y of line x of touputdata
end repeat
end repeat
put toutputdata
else
put "error"
end if


?>

Code: Select all

on mouseUp
   put url "yourDBhost/simpleretrieve.lc" into tData
   set the itemdelimiter to comma
   repeat with x = 1 to the number of items in tData
      replace space with tab in tData
      put item x of tData into line x of  tOutputData
   end repeat
   put tOutputData
   
end mouseUp