Difference between revisions of "WebCam with Free Pascal"
From Free Pascal wiki
Jump to navigationJump to searchLine 1: | Line 1: | ||
===Webcam with Freepascal on Windows=== | ===Webcam with Freepascal on Windows=== | ||
− | + | unit TFMainForm; | |
{$mode objfpc}{$H+} | {$mode objfpc}{$H+} | ||
Line 14: | Line 14: | ||
szDeviceName: array[0..79] of Char; | szDeviceName: array[0..79] of Char; | ||
szDeviceVersion: array[0..79] of Char; | szDeviceVersion: array[0..79] of Char; | ||
− | end; | + | end; |
Revision as of 17:34, 12 August 2010
Webcam with Freepascal on Windows
unit TFMainForm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, TFCamera, ComCtrls, Buttons, StdCtrls, ExtCtrls, VFW;
type RVideoCapDevice= record
szDeviceName: array[0..79] of Char; szDeviceVersion: array[0..79] of Char;
end;