Code: Alles auswählen
Procedure.l DownloadToMem( URL.s, *lpRam, ramsize.l )
Protected agent.s, hINet.l, hData.l, Bytes.l
agent = prg$+" - "+Str(PrgVersion)
hINet = InternetOpen_(@agent,0,0,0,0)
hData = InternetOpenURL_(hINet,@URL,"",0,$84000000,0 )
If hData > 0
InternetReadFile_ ( hData, *lpRam, ramsize, @Bytes )
Else
Bytes = -1
EndIf
InternetCloseHandle_ (hINet)
InternetCloseHandle_ (hData)
ProcedureReturn Bytes
EndProcedure
*buffer = AllocateMemory(1024)
DownloadToMem("http://public.alexander-n.de/highscore.php?game=testgame",*buffer,1024)
; neues ergebnis hinzufügen durch weitere parameter:
; "&player=Player_name&points=pointzahl"
string$ = PeekS(*buffer)
FreeMemory(*buffer)
MessageRequester("",string$)Code: Alles auswählen
<?php
$server = 'dein.server.com';
$username = 'dein_username';
$passwort = 'dein_passwort';
$datenbank = 'user_datenbank';
$game = $_GET['game'];
$player = $_GET['player'];
$points = $_GET['points'];
mysql_connect($server,$username,$passwort) or die("Error: no connection to mysql-server");
mysql_select_db($datenbank) or die("Error: no connection to database");
header("Content-type: text/plain");
mysql_query("CREATE TABLE IF NOT EXISTS `highscore` (
`id` int(10) unsigned NOT NULL auto_increment,
`game` varchar(32) collate utf8_unicode_ci NOT NULL,
`player` varchar(32) collate utf8_unicode_ci NOT NULL,
`points` int(11) NOT NULL,
PRIMARY KEY (`id`)
) ENGINE=MyISAM AUTO_INCREMENT=1 DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci AUTO_INCREMENT=1");
if($game and $player and $points) {
mysql_query("INSERT INTO highscore (game, player, points) VALUES ('$game', '$player', '$points') ");
}
if($game) {
$query = mysql_query("SELECT * FROM highscore WHERE game = '$game' ORDER BY points DESC LIMIT 10");
while($highscore = mysql_fetch_object($query)) {
echo "$highscore->player\n$highscore->points\n";
}
mysql_query("DELETE FROM highscore WHERE game = '$game' ORDER BY points DESC LIMIT 10, 100 ");
}
?>
