视频捕捉/采集

开发平台：

Visual C++

fCamera.pl：源码内容

							#!/usr/bin/perl -w
use strict;
use DBI;
use Jpc::Html;
sub Titre
	{
		print '<H1 ALIGN="CENTER">',$_[0],"</H1><P>n";
	}
sub Chapitre
	{
		print '<H3>',$_[0],"</H3>n";
	}
sub Fin_Document
	{
		print '</BODY>',"n";
		print '</HTML>',"n";
	}
sub main
	{
		my $sql;
		my $sqlreq;
		Document("Gestion Cam閞a");
		Titre("Gestion Cam閞a");
		print "<FONT FACE=verdana>";
		my $db = DBI->connect("DBI:mysql:netcam","root","");
		print "<FORM METHOD=GET ACTION=Camera.pl>","n";
		print '<P><B>Cam閞a <SELECT NAME="VL_Cam" SIZE=1><OPTION SELECTED>Nouvelle-Cam閞a';
		$sqlreq = "select C_ID,C_Name from cam ";
		$sql = $db->prepare($sqlreq);
  	$sql->execute();
  	while ((my $CID,my $CName) = $sql->fetchrow())
  		{
				print '<OPTION>';
				print $CID,"-",$CName;
  		}
  	$sql->finish();
  	print '</SELECT>',"n";
		print '<P><CENTER><INPUT NAME="VL_Ok" TYPE="SUBMIT" VALUE="Cr閑r/Modifier">',"n";
		print "</FORM>","n";
		$db->disconnect();
  	Fin_Document();
	}
main();
exit(0);

						