Well, I always wanted to have to scar send messages over the internet to each other. So I made this:
PHP Code:
<?php
function str_between($str, $betw, $betw2) //by Ron
{
$str = " " . $str;
$pos = strpos($str, $betw);
if ($pos > 0)
{
$str2 = substr($str, $pos + strlen($betw));
$pos2 = strpos($str2, $betw2);
if ($pos2 == 0)
return '';
return substr($str2, 0, $pos2);
}
else
return '';
}
if(isset($_POST['Content'])){
$Content = $_POST['Content'];
$Id = $_POST['Id'];
$fp = fopen("report.txt", "a");
fwrite($fp, '<'.$Id.'>'.$Content.'</'.$Id.'>');
fclose($fp);
echo 'Done';
}else{
$Id = $_POST['Id'];
$file = fopen("report.txt","r");
echo Str_between(fread($file,filesize("report.txt")), '<'.$Id.'>', '</'.$Id.'>');
fclose($file);
}
?>
SCAR Code:
program New;
Function SendExternalSCARMessage(ID, Content:String):Boolean;
var
I:Integer;
begin
I:=InitializeHTTPClient(False, False);
AddPostVariable(I, 'Id', ID);
AddPostVariable(I, 'Content', Content);
Result:=True;
Writeln(PostHTTPPageEx(I, 'Url with the php file'));
end;
Function ReadExternalSCARMessage(ID:String):String;
var
I:Integer;
begin
I:=InitializeHTTPClient(False, False);
ClearPostData(I);
AddPostVariable(I, 'Id', ID);
Result:=PostHTTPPageEx(I, 'Url with the php file');
end;
begin
Writeln(ReadExternalSCARMessage('pie'));
end.
Credits to:
mixster:for helping me with between, even though I just used rons after it all