☆Obaby's H4cking W0rld☆

Hack-Crack==Backdoors - RATs - Trojans // Binders-Packers - Rootkits

破解-黑客-零日漏洞-灰鸽子/上兴/PCShare-木马免杀-网站入侵-信息安全

2009年5月14日星期四

转载:Delphi摄像头拍照

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel; //视频区域
Button1: TButton; //开始显示
Button2: TButton; //保存bmp
Button3: TButton; //停止显示
Button4: TButton; //开始摄像
Button5: TButton; //停止摄像
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);

private
hWndC: THandle;
public
{ Public declarations }
end;

var
Form1: TForm1;

const
WM_CAP_START=WM_USER;
WM_CAP_STOP=WM_CAP_START+68;
WM_CAP_DRIVER_CONNECT=WM_CAP_START+10;
WM_CAP_DRIVER_DISCONNECT=WM_CAP_START+11;
WM_CAP_SAVEDIB=WM_CAP_START+25;
WM_CAP_GRAB_FRAME=WM_CAP_START+60;
WM_CAP_SEQUENCE=WM_CAP_START+62;
WM_CAP_FILE_SET_CAPTURE_FILEA=WM_CAP_START+20;
WM_CAP_SEQUENCE_NOFILE=WM_CAP_START+63;
WM_CAP_SET_OVERLAY=WM_CAP_START+51;
WM_CAP_SET_PREVIEW=WM_CAP_START+50;
WM_CAP_SET_CALLBACK_VIDEOSTREAM=WM_CAP_START+6;
WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START+2;
WM_CAP_SET_CALLBACK_STATUSA=WM_CAP_START+3;
WM_CAP_SET_CALLBACK_FRAME=WM_CAP_START+5;
WM_CAP_SET_SCALE=WM_CAP_START+53;
WM_CAP_SET_PREVIEWRATE=WM_CAP_START+52;

function capCreateCaptureWindowA(lpszWindowName: PCHAR; dwStyle: longint; x: integer; y: integer; nWidth: integer; nHeight: integer; ParentWin: HWND; nId: integer): HWND; stdcall external 'avicap32.dll';

implementation

{$R *.dfm}

//开始显示视频头内容
procedure TForm1.Button1Click(Sender: TObject);
begin
hWndC := capCreateCaptureWindowA('MyCapWindow', WS_CHILD or WS_VISIBLE, Panel1.Left, Panel1.Top, Panel1.Width, Panel1.Height, Form1.Handle, 0);
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);
SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0);
SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);
end;
end;

//截视频屏并保存为bmp
procedure TForm1.Button2Click(Sender: TObject);
begin
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SAVEDIB, 0, longint(PCHAR('c:\test.jpg')));
end;
end;

//停止显示视频头内容
procedure TForm1.Button3Click(Sender: TObject);
begin
if hWndC <> 0 then
begin
// capCaptureAbort(hWndC);
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//开始录像
if hWndC <> 0 then
begin
SendMessage(hWndC,WM_CAP_FILE_SET_CAPTURE_FILEA,0, Longint(pchar('c:\test.avi')));
SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);
end;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
//停止录像
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_STOP, 0, 0);
end;

end;

end.
原文链接:http://hi.baidu.com/vistra/blog/item/90a47582d25360aa0df4d219.html




1 评论:

蔡翠紫 说...

365視頻面對面聊天-寂寞同城交友vip破解
寂寞聊天群-酷我秀場-美女主播_視頻聊天室
美女性感聊天室網站-色聊天室網站
伊寂寞交友吧-愛聊北京交友貼吧
一夜情網同城交友-視頻跳舞的女人
寂寞同城交友俱樂部-ONS交友俱樂部qq群
打飛機聊天室-色女生的qq
真人美女視頻聊天網站-情人緣同城交友網
同城異性交友網-成人視頻交友網
免費陪聊視頻網-語音視頻聊天網站
同城床友交友網-王朝聊天室破解
同城約炮聊天室-網聊寂寞直播間
情人網聊天室-網聊寂寞視頻
冒泡視頻交友聊天-中國城多人視頻聊天
同城寂寞交友網-69夫妻網同城
E夜情交友網-69佳緣白領夫妻交友網
伊莉論壇-性生活視頻-夫妻視頻交友QQ群
約炮網站哪個好-夫妻性生活自拍視頻
天下聊聊天室網址-夫妻性生活視頻高清
天下聊語音聊天室-夫妻生活36式視頻
天下聊視頻聊天室-真實性生活視頻
視訊聊天視頻網站-同城約會交友e夜情
聊天室視頻下載-六間房視頻下載
視訊視頻下載-六間房視頻直播DJ
寂寞午夜交友聊天室-專業陪聊網
163聊天室網站-成人寂寞一夜情網
一對一視頻聊天交友-夜寂寞聊天直播間
56as視頻聊天交友網-夜寂寞聊天圖片
美女激情交友聊天社區-同城視頻聊天一夜情
午夜美女裸體-美國視頻聊天網站
視頻聊天網站你懂得-女人寂寞m直播間
美女裸體視頻聊天網站-女人寂寞m視頻
色情美女視頻聊天網站-寂寞女交友
美女隨機視頻聊天QQ-qq聊天找情人
視頻吧聊天交友網-聊性的QQ
優酷私密視頻怎麼看-成人隨想聊天室
日本美妞私密視頻-成人私聊
私密視頻-美女視頻同城交友
全球隨機視頻網怎麼用-視頻演藝聊天室
校內隨機視頻網-寂寞女免費視頻交友
脫衣舞同城交友視頻聊天網-寂寞激情直播間
YY美女激情聊天室-寂寞激情視頻
美女絲襪視頻網站-免費交友約炮一夜情
成人聊天網址-同城陪聊視頻聊天室網站
免費視頻交友聊天室-真人摸奶秀

发表评论