WWWForm

説明

WWW クラスを使用して Web サーバーにデータを POST するフォームを生成するヘルパークラスです。

using UnityEngine;
using System.Collections;

public class WWWFormImage : MonoBehaviour {

	public string screenShotURL= "http://www.my-server.com/cgi-bin/screenshot.pl";

	// Use this for initialization
	void Start () {
		StartCoroutine(UploadPNG());
	}
	
	IEnumerator UploadPNG() {
		// We should only read the screen after all rendering is complete
		yield return new WaitForEndOfFrame();

		// Create a texture the size of the screen, RGB24 format
		int width = Screen.width;
		int height = Screen.height;
		var tex = new Texture2D( width, height, TextureFormat.RGB24, false );

		// Read screen contents into the texture
		tex.ReadPixels( new Rect(0, 0, width, height), 0, 0 );
		tex.Apply();

		// Encode texture into PNG
		byte[] bytes = tex.EncodeToPNG();
		Destroy( tex );

		// Create a Web Form
		WWWForm form = new WWWForm();
		form.AddField("frameCount", Time.frameCount.ToString());
		form.AddBinaryData("fileUpload", bytes, "screenShot.png", "image/png");

		// Upload to a cgi script
		WWW w = new WWW(screenShotURL, form);
		yield return w;
		if (!string.IsNullOrEmpty(w.error)) {
			print(w.error);
		}
		else {
			print("Finished Uploading Screenshot");
		}
	}
}

以下は SQL データベースのテーブルに保存されたハイスコアを取得するための サンプルスクリプトです。

using UnityEngine;
using System.Collections;

public class WWWFormScore : MonoBehaviour {
	string highscore_url = "http://www.my-site.com/highscores.pl";
	string playName = "Player 1";
	int score = -1;

	// Use this for initialization
	IEnumerator Start () {
		// Create a form object for sending high score data to the server
		WWWForm form = new WWWForm();
		// Assuming the perl script manages high scores for different games
		form.AddField( "game", "MyGameName" );
		// The name of the player submitting the scores
		form.AddField( "playerName", playName );
		// The score
		form.AddField( "score", score );

		// Create a download object
		WWW download = new WWW( highscore_url, form );

		// Wait until the download is done
		yield return download;

		if(!string.IsNullOrEmpty(download.error)) {
			print( "Error downloading: " + download.error );
		} else {
			// show the highscores
			Debug.Log(download.text);
		}
	}
}

Here is a sample Perl script that processes the high scores stored in a table in an SQL database.

#!/usr/bin/perl
# The SQL database needs to have a table called highscores
# that looks something like this:
#
#   CREATE TABLE highscores (
#     game varchar(255) NOT NULL,
#     player varchar(255) NOT NULL,
#     score integer NOT NULL
#   );
#
use strict;
use CGI;
use DBI;

# Read form data etc.
my $cgi = new CGI;

# The results from the high score script will be in plain text
print $cgi->header("text/plain");

my $game = $cgi->param('game');
my $playerName = $cgi->param('playerName');
my $score = $cgi->param('score');

exit 0 unless $game; # This parameter is required

# Connect to a database
my $dbh = DBI->connect( 'DBI:mysql:databasename', 'username', 'password' )
	|| die "Could not connect to database: $DBI::errstr";

# Insert the player score if there are any
if( $playerName && $score) {
	$dbh->do( "insert into highscores (game, player, score) values(?,?,?)",
		undef, $game, $playerName, $score );
}

# Fetch the high scores
my $sth = $dbh->prepare(
	'SELECT player, score FROM highscores WHERE game=? ORDER BY score desc LIMIT 10' );
$sth->execute($game);
while (my $r = $sth->fetchrow_arrayref) {
	print join(':',@$r),"\n"
}

変数

コンストラクタ

Public 関数