PureBoard

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 ");
  }
  
?>