视频捕捉/采集

开发平台：

Visual C++

fDebRecord.pl：源码内容

							#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;
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;
		
		
		my $h = new CGI;
		
		my $CamID = substr($h->param('VL_Cam'),0,index($h->param('VL_Cam'),"-"));
		my $Year = $h->param('VL_Year');
		my $Mon = $h->param('VL_Mon');
		my $Day = $h->param('VL_Day');
		my $Hour = $h->param('VL_Hour');
		my $Cur = $h->param('VL_Cur');
		my $Act = $h->param('VL_Act');
		
		
		Document("Net-Cam : Visualisation Enregistrement");
		Titre("Net-Cam : Visualisation Enregistrement");
		print '<FONT FACE=verdana>';
		print '<FONT SIZE="-1">';
		my $Cmd = $CamID;
		$Cmd .= '-'.$Year;
		$Cmd .= '-'.$Mon;
		$Cmd .= '-'.$Day;
		$Cmd .= '-'.$Hour;
		$Cmd .= '-'.$Cur;
		$Cmd .= '-'.$Act;
							
				print "<FORM METHOD=GET ACTION=Record.pl>","n";
        print ' <INPUT NAME="VL_Cmd" TYPE="TEXT" VALUE="',$Cmd,'">';
				print '<INPUT NAME="VL_ok" TYPE="SUBMIT" VALUE="Visualiser">';
								
				print "</FORM>";
		
			
  	Fin_Document();
	}
	
main();
exit(0);

						