Difference between revisions of "WebCam with Free Pascal"
From Free Pascal wiki
Jump to navigationJump to search| Line 1: | Line 1: | ||
| − | ===Webcam with Freepascal on Windows === | + | ===Webcam with Freepascal on Windows=== |
| + | |||
| + | [code]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;[/code] | ||
Revision as of 17:34, 12 August 2010
Webcam with Freepascal on Windows
[code]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;[/code]
