Sorry your browser is not supported!

// Project: Tchat test 
// Created: 21-11-23

SetErrorMode(2)

// set window properties
SetWindowTitle( "Tchat (agk+php)" )
SetWindowSize( 1024, 600, 0 )
// set display properties
SetVirtualResolution( 1024, 600 ) // doesn't have to match the window
UseNewDefaultFonts( 1 )

// create variables
Global iHttp, delayHttpResponse, MyURL$

// the delay to get info from our "tchat.php" page
delayHttpResponse = 2000
// your url here : 
MyURL$ = "YourURL.com"


CreateText(1,"")
SetTextSize(1,20)

CreateEditBox(0)
SetEditBoxPosition(0,0, 570)
SetEditBoxSize(0,1024,30)
SetEditBoxTextSize(0,30)


// main loop
do
	

	
	
	If GetPointerPressed()
		y = getpointery()
		StartTchaty = y -TchatY
	endif
	if GetPointerState()
		y = getpointery()
		TchatY = y -StartTchaty
		SetTextPosition(1,0,TchatY)
	endif
	
	If GetRawKeyReleased(13) // enter
		Message$ = GetEditBoxText(0)
		if message$ <> ""
			// send a message in the tchat.
			
			// create an http connection : 
			iHTTP = CreateHTTPConnection()
			SetHTTPHost( iHTTP, MyURL$, 0 )
			
			// if the server takes a long time to respond this could make the app unresponsive
			// change the pseudo here :)
			pseudo$="AGK2"
			
			// it's necessary to encode it (for some words)
			Message$ = HTTPEncode(Message$)
			// but, it seems the HTTPEncode() doesn't works for accents.
			Message$ = ReplaceString(Message$,"é","%C3%A9",-1)
			Message$ = ReplaceString(Message$,"è","%C3%A8",-1)
			Message$ = ReplaceString(Message$,"â","%C3%A2",-1)
			Message$ = ReplaceString(Message$,"ô","%C3%B4",-1)
			Message$ = ReplaceString(Message$,"à","%C3%A0",-1)
			Message$ = ReplaceString(Message$,"ê","%C3%AA",-1)
			Message$ = ReplaceString(Message$,"ù","%C3%B9",-1)
			Message$ = ReplaceString(Message$,"ç","%C3%A7",-1)
			// the create the string for szServerFile for SendHTTPRequest()
			post$ = "tchat.php?Action=Post&Pseudo="+Pseudo$+"&Message="+Message$ 
			
			// we could use Asynchronous, that doesn't wait for the response, because we doesn't need it
			Response$= SendHTTPRequest( iHTTP, post$)
			// just if we want to check the status of the request()
			int= GetHTTPStatusCode( iHTTP )
			//~ message(REsponse$)
			//~ message(str(int))
			CloseHTTPConnection(iHTTP)
			DeleteHTTPConnection(iHTTP)
			if GetDeviceBaseName()<> "android"
				SetEditBoxFocus(0,1)
				SetEditBoxText(0,"")
			endif
		endif
		SetEditBoxFocus(0,1)
	endif
		
	Refresh()
    // Print( "Server response: " + response$ )
    Sync()
loop


Function Refresh()
	
	// to refresh the connection to get the new message from the php script
	
	// you can change the delay if you want.
	IF delayHttpResponse > Screenfps()/2
		// create a new httpconnection
		iHTTP = CreateHTTPConnection()
		SetHTTPHost( iHTTP, MyURL$, 0 )
		// set the string for SendHTTPRequest
		url$ ="tchat.php?Action=Refresh"
		r$ = SendHTTPRequest( iHTTP, url$ )
		// then get the response, and if it's not "", we can add it to the tchat.
		if r$ <> ""
			response$ = ReplaceString(r$,"<br/>",Chr(10),-1)
			response$ = ReplaceString(response$,"\'","'",-1)
			response$ = ReplaceString(response$,"\"+chr(34),chr(34),-1) // \"
			SetTextString(1,response$)
		endif
		// int= GetHTTPStatusCode( iHTTP )
		delayHttpResponse = 0
		CloseHTTPConnection(iHTTP)
		DeleteHTTPConnection(iHTTP)
    else
		inc delayHttpResponse
	endif
		
Endfunction 

Tchat.php :

<?php
if(!is_file('Tchat.txt'))
{
	$Tchat=array();
	file_put_contents('Tchat.txt', serialize($Tchat));
}
if(isset($_GET['Action']))
{
	if($_GET['Action']=='Post' AND isset($_GET['Pseudo']) AND isset($_GET['Message']))
	{
		$Tchat=unserialize(file_get_contents('Tchat.txt'));
		$Tchat[time()]=$_GET['Pseudo'].':'.$_GET['Message'];
		file_put_contents('Tchat.txt', serialize($Tchat));		
	}
	elseif($_GET['Action']=='Refresh')
	{
		$Tchat=unserialize(file_get_contents('Tchat.txt'));
		ksort($Tchat);
		foreach($Tchat as $Time => $Message)
		{
			echo $Message.'<br/>';
		}
	}
}
?>