LiveCode Forums.

Code: Select all

try{
  $conn = fsockopen($server, 80);  //server name and port
}

catch(Exception $e){
  return FALSE;
}
		
fputs($conn, $request."\r\n");
$response = "";

while(!feof($conn)){ 
  $response .= fgets($con, 128); 
}

fclose($conn);

Code: Select all

on connect
	put "123.123.123.123" into myServer
	put "80" into myPort
	put myServer & colon & myPort into mySock
	open socket mySock
	put the result into rslt
	if rslt is empty then
		put "This is some request" & crlf into myRequest
		write myRequest to socket mySock
		read from socket mySock with message "received"
		send "closeConnection mySock" to my in 10 seconds
	else
		beep
		answer error rslt
	end if
end connect

// this handler reads all data at once
// probably you don't need to check for eof
on received theIP,theMsg
	put theMsg into myResponse
	// do something with myResponse here
end received

on closeConnection theSock
  if theSock is among the lines of the opensockets then
  	close socket theSock
  end if
end closeConnection
  
// catch
on socketError theSock,theError
  beep
  answer error theError && "while connecting to" && theSock
 end socketError
 
on socketTimeout theSock
	beep
	answer error "Could not connect to" && theSock
end socketTimeout