i�ｿｽA�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅ撮�ｿｽe�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ鞫懶ｿｽ�ｿｽ�ｿｽT�ｿｽ[�ｿｽo�ｿｽﾉ托ｿｽ�ｿｽM�ｿｽ�ｿｽ�ｿｽ�ｿｽ

i�ｿｽA�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅ起�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ画像�ｿｽ�ｿｽ�ｿｽT�ｿｽ[�ｿｽo�ｿｽﾉア�ｿｽb�ｿｽv�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽ髟費ｿｽ�ｿｽ�ｿｽﾌコ�ｿｽ[�ｿｽf�ｿｽB�ｿｽ�ｿｽ�ｿｽO�ｿｽﾅゑｿｽ�ｿｽB
�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽA�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ鞫懶ｿｽ�ｿｽ�ｿｽX�ｿｽN�ｿｽ�ｿｽ�ｿｽb�ｿｽ`�ｿｽp�ｿｽb�ｿｽh�ｿｽﾉ保托ｿｽ�ｿｽ�ｿｽ�ｿｽ骼橸ｿｽﾌ手順�ｿｽﾆ難ｿｽ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽMJAVA�ｿｽﾉ不�ｿｽ�ｿｽ�ｿｽ�ｿｽﾈ為、�ｿｽ�ｿｽ�ｿｽQ�ｿｽl�ｿｽ�ｿｽ�ｿｽx�ｿｽﾉゑｿｽ�ｿｽﾄ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽL�ｿｽR�ｿｽ[�ｿｽf�ｿｽB�ｿｽ�ｿｽ�ｿｽO�ｿｽﾅ、�ｿｽT�ｿｽ[�ｿｽo�ｿｽﾉ画像�ｿｽf�ｿｽ[�ｿｽ^�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽM�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽT�ｿｽ[�ｿｽo�ｿｽ�ｿｽ�ｿｽﾅはデ�ｿｽ[�ｿｽ^�ｿｽ�ｿｽM�ｿｽp�ｿｽ�ｿｽCGI�ｿｽ�ｿｽ�ｿｽK�ｿｽv�ｿｽﾉなゑｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽL�ｿｽﾅは、upload.cgi�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽCGI�ｿｽﾉなゑｿｽﾜゑｿｽ�ｿｽB

----
/* �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ起�ｿｽ�ｿｽ&�ｿｽB�ｿｽe�ｿｽﾍ奇ｿｽ�ｿｽﾉ済ゑｿｽﾅゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌとゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB
   �ｿｽ{�ｿｽ�ｿｽ�ｿｽﾉ托ｿｽ�ｿｽM�ｿｽ�ｿｽ�ｿｽ髟費ｿｽ�ｿｽ�ｿｽﾌみを抜撰ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB 
   Camera�ｿｽI�ｿｽu�ｿｽW�ｿｽF�ｿｽN�ｿｽg�ｿｽ�ｿｽ�ｿｽﾍ「myCamera�ｿｽv�ｿｽﾅゑｿｽ�ｿｽB*/
HttpConnection conn = null;
OutputStream out = null;
InputStream in = null;
try {
	// �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ鞫懶ｿｽ�ｿｽ�ｿｽ�ｿｽﾍス�ｿｽg�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾄ取得
	in = myCamera.getInputStream(0);
	// �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ鞫懶ｿｽﾌバ�ｿｽC�ｿｽg�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ謫ｾ
	long nLen = myCamera.getImageLength(0);
	// int�ｿｽ^�ｿｽﾉキ�ｿｽ�ｿｽ�ｿｽX�ｿｽg
	int w_length = (int)nLen;
	// �ｿｽ鞫懶ｿｽf�ｿｽ[�ｿｽ^�ｿｽ�ｿｽ�ｿｽo�ｿｽC�ｿｽg�ｿｽz�ｿｽ�ｿｽﾉ托ｿｽ�ｿｽ
	byte [] w_data = new byte[w_length];
	// �ｿｽﾄび出�ｿｽ�ｿｽCGI�ｿｽ�ｿｽHTTP�ｿｽ�ｿｽﾝ抵ｿｽ
	String url = new String(getSourceURL()+"../cgi-bin/upload.cgi");
	conn = (HttpConnection)Connector.open(url,Connector.READ_WRITE,true);
	conn.setRequestProperty("Content-Type","application/x-www-form-urlencoded");
	conn.setRequestMethod(HttpConnection.POST);
	//�ｿｽ�ｿｽ�ｿｽM
	// OutpuStream�ｿｽﾖの出�ｿｽﾍス�ｿｽg�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ謫ｾ
	out = conn.openOutputStream();
	// InputStream�ｿｽ�ｿｽ�ｿｽ�ｿｽOutputStream�ｿｽﾖ擾ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽo�ｿｽ�ｿｽ
	while ((w_length = in.read(w_data)) != -1 ) {
		out.write(w_data,0,w_length);
	}
	// �ｿｽe�ｿｽ�ｿｽﾚ托ｿｽ�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽ[�ｿｽY
	in.close();
	out.close();
	// �ｿｽﾚ托ｿｽ
	conn.connect();
	conn.close();
}
catch (Exception e) {
	try {
		if (conn  !=null) conn.close();
		if (in !=null) in.close();
		if (out!=null) out.close();
	}
	catch (Exception e2) { }
	System.out.println("use err:"+e);
}
----

---

�ｿｽ�ｿｽ�ｿｽﾈみに、�ｿｽf�ｿｽ[�ｿｽ^�ｿｽ�ｿｽ�ｿｽ�ｿｽM�ｿｽ�ｿｽ�ｿｽ�ｿｽCGI�ｿｽﾌ包ｿｽ�ｿｽﾍ、Perl�ｿｽﾅよけ�ｿｽ�ｿｽﾎ会ｿｽ�ｿｽL�ｿｽﾌコ�ｿｽ[�ｿｽh�ｿｽﾉなゑｿｽﾜゑｿｽ�ｿｽB

----
#!/usr/bin/perl
## �ｿｽﾝ抵ｿｽ
# �ｿｽ鞫懶ｿｽ�ｿｽﾛ托ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽf�ｿｽB�ｿｽ�ｿｽ�ｿｽN�ｿｽg�ｿｽ�ｿｽ
# �ｿｽ�ｿｽ�ｿｽﾌプ�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ托ｿｽ�ｿｽﾎパ�ｿｽX
# �ｿｽﾅ鯉ｿｽ�ｿｽ/�ｿｽﾅ閉ゑｿｽ�ｿｽ�ｿｽ
$img_dir = "./image/";
# �ｿｽ鞫懶ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽ
$filename = "sample.jpg";
## �ｿｽﾝ定こ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ
## �ｿｽ�ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
&getdata;
&imgout;
## �ｿｽf�ｿｽ[�ｿｽ^�ｿｽﾌ趣ｿｽM
sub getdata {
	binmode(STDIN);
	if ( $ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'} ); }
	else { $buffer = $ENV{'QUERY_STRING'}; }
}
## JPG�ｿｽ鞫懶ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ�ｿｽo�ｿｽ�ｿｽ
sub imgout {
	open(IMGOUT,">$img_dir$filename");
	binmode(IMGOUT);
	print IMGOUT $buffer;
	close(IMGOUT);
}
----

---

Copyright©2003 ken. All Rights Reserved.