TVideoCapture類的源碼，繼承TCustomPanel，用於視頻捕獲（用到了SendMessage和SetWindowPos等API）good

阿新 • • 發佈：2017-07-29

per about yield tails visible messages rms man publish

[cpp] view plain copy print?

unit VideoCapture;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.jpeg;
type
TVideoCapture = class(TCustomPanel)
private
hWndC: THandle;
CapturingAVI: bool;
procedure WMSize(var Message: TWMSize); message WM_SIZE;
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure OpenVideo(handle: THandle);

procedure CloseVideo;
procedure GrabFrame;
procedure StartVideo;
procedure StopVideo;
procedure SaveBitMap(filename: TFileName);
procedure SaveJpeg(filename: TFileName; compressibility: Integer);
procedure SavetoJpegStream(var JpegStream: TMemoryStream; compressibility: Integer);

function StartAvi(filename: TFileName): Boolean;
procedure StopAvi;
procedure SetVideoFormat;
procedure SetSource;
procedure SetStretch(TrueorFalse: Boolean = true);
procedure SetCompression;
published
property Align;
end;
procedure Register;
implementation
const
WM_CAP_START = WM_USER;
WM_CAP_GET_CAPSTREAMPTR = (WM_CAP_START + 1);
WM_CAP_SET_CALLBACK_ERROR = (WM_CAP_START + 2);
WM_CAP_SET_CALLBACK_STATUS = (WM_CAP_START + 3);
WM_CAP_SET_CALLBACK_YIELD = (WM_CAP_START + 4);
WM_CAP_SET_CALLBACK_FRAME = (WM_CAP_START + 5);
WM_CAP_SET_CALLBACK_VIDEOSTREAM = (WM_CAP_START + 6);
WM_CAP_SET_CALLBACK_WAVESTREAM = (WM_CAP_START + 7);
WM_CAP_GET_USER_DATA = (WM_CAP_START + 8);
WM_CAP_SET_USER_DATA = (WM_CAP_START + 9);
WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10);
WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11);
WM_CAP_DRIVER_GET_NAME = (WM_CAP_START + 12);
WM_CAP_DRIVER_GET_VERSION = (WM_CAP_START + 13);
WM_CAP_DRIVER_GET_CAPS = (WM_CAP_START + 14);
WM_CAP_FILE_SET_CAPTURE_FILE = (WM_CAP_START + 20);
WM_CAP_FILE_GET_CAPTURE_FILE = (WM_CAP_START + 21);
WM_CAP_FILE_ALLOCATE = (WM_CAP_START + 22);
WM_CAP_FILE_SAVEAS = (WM_CAP_START + 23);
WM_CAP_FILE_SET_INFOCHUNK = (WM_CAP_START + 24);
WM_CAP_FILE_SAVEDIB = (WM_CAP_START + 25);
WM_CAP_EDIT_COPY = (WM_CAP_START + 30);
WM_CAP_SET_AUDIOFORMAT = (WM_CAP_START + 35);
WM_CAP_GET_AUDIOFORMAT = (WM_CAP_START + 36);
WM_CAP_DLG_VIDEOFORMAT = (WM_CAP_START + 41);
WM_CAP_DLG_VIDEOSOURCE = (WM_CAP_START + 42);
WM_CAP_DLG_VIDEODISPLAY = (WM_CAP_START + 43);
WM_CAP_GET_VIDEOFORMAT = (WM_CAP_START + 44);
WM_CAP_SET_VIDEOFORMAT = (WM_CAP_START + 45);
WM_CAP_DLG_VIDEOCOMPRESSION = (WM_CAP_START + 46);
WM_CAP_SET_PREVIEW = (WM_CAP_START + 50);
WM_CAP_SET_OVERLAY = (WM_CAP_START + 51);
WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52);
WM_CAP_SET_SCALE = (WM_CAP_START + 53);
WM_CAP_GET_STATUS = (WM_CAP_START + 54);
WM_CAP_SET_SCROLL = (WM_CAP_START + 55);
WM_CAP_GRAB_FRAME = (WM_CAP_START + 60);
WM_CAP_GRAB_FRAME_NOSTOP = (WM_CAP_START + 61);
WM_CAP_SEQUENCE = (WM_CAP_START + 62);
WM_CAP_SEQUENCE_NOFILE = (WM_CAP_START + 63);
WM_CAP_SET_SEQUENCE_SETUP = (WM_CAP_START + 64);
WM_CAP_GET_SEQUENCE_SETUP = (WM_CAP_START + 65);
WM_CAP_SET_MCI_DEVICE = (WM_CAP_START + 66);
WM_CAP_GET_MCI_DEVICE = (WM_CAP_START + 67);
WM_CAP_STOP = (WM_CAP_START + 68);
WM_CAP_ABORT = (WM_CAP_START + 69);
WM_CAP_SINGLE_FRAME_OPEN = (WM_CAP_START + 70);
WM_CAP_SINGLE_FRAME_CLOSE = (WM_CAP_START + 71);
WM_CAP_SINGLE_FRAME = (WM_CAP_START + 72);
WM_CAP_PAL_OPEN = (WM_CAP_START + 80);
WM_CAP_PAL_SAVE = (WM_CAP_START + 81);
WM_CAP_PAL_PASTE = (WM_CAP_START + 82);
WM_CAP_PAL_AUTOCREATE = (WM_CAP_START + 83);
WM_CAP_PAL_MANUALCREATE = (WM_CAP_START + 84);
function capCreateCaptureWindowA(lpszWindowName: PCHAR;
dwStyle: longint;
x: integer;
y: integer;
nWidth: integer;
nHeight: integer;
ParentWin: HWND;
nId: integer): HWND; stdcall; external ‘avicap32.dll‘;
procedure Register;
begin
RegisterComponents(‘FstiCtl‘, [TVideoCapture]);
end;
{ TVideoCapture }
constructor TVideoCapture.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
CapturingAVI := false;
Color := clBlack;
BevelOuter := bvNone;
Width := 320;
Height := 240;
hWndC := 0;
end;
destructor TVideoCapture.Destroy;
begin
if CapturingAVI then StopAvi;
if hWndC <> 0 then CloseVideo;
hWndC := 0;
inherited;
end;
procedure TVideoCapture.OpenVideo(handle: THandle);
begin
hWndC := capCreateCaptureWindowA(‘Video Capture Window‘,
WS_CHILD or WS_VISIBLE,
Left,
Top,
Width,
Height,
Handle,
0);
if hWndC <> 0 then
SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);
end;
procedure TVideoCapture.CloseVideo;
begin
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
SendMessage(hWndC, WM_CLOSE, 0, 0);
hWndC := 0;
end;
end;
procedure TVideoCapture.GrabFrame;
begin
if hWndC <> 0 then
SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);
end;
procedure TVideoCapture.SaveBitMap(filename: TFileName);
begin
SendMessage(hWndC, WM_CAP_FILE_SAVEDIB, 0, longint(pchar(FileName)));
end;
function TVideoCapture.StartAvi(filename: TFileName): Boolean;
begin
if hWndC <> 0 then begin
CapturingAVI := true;
SendMessage(hWndC,
WM_CAP_FILE_SET_CAPTURE_FILE,
0,
Longint(pchar(FileName)));
SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);
end;
end;
procedure TVideoCapture.StopAvi;
begin
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_STOP, 0, 0);
CapturingAVI := false;
end;
end;
procedure TVideoCapture.SaveJpeg(filename: TFileName;
compressibility: Integer);
var
bmp: TBitMap;
jpg: TJpegimage;
begin
try
SaveBitMap(‘tmp.bmp‘);
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
bmp.LoadFromFile(‘tmp.bmp‘);
jpg.Assign(bmp);
jpg.CompressionQuality := compressibility;
jpg.Compress;
jpg.SaveToFile(filename);
DeleteFile(‘tmp.bmp‘);
except
end;
bmp.free;
jpg.free;
end;
procedure TVideoCapture.SetVideoFormat;
begin
SendMessage(hWndC, WM_CAP_DLG_VIDEOFORMAT, 0, 0);
end;
procedure TVideoCapture.SetSource;
begin
SendMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE, 0, 0);
end;
procedure TVideoCapture.StartVideo;
begin
SendMessage(hWndC, WM_CAP_SET_PREVIEW, -1, 0);
SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 100, 0);
SendMessage(hWndC, WM_CAP_SET_SCALE, -1, 0);
end;
procedure TVideoCapture.StopVideo;
begin
SendMessage(hWndC, WM_CAP_SET_PREVIEW, 0, 0);
end;
procedure TVideoCapture.WMSize(var Message: TWMSize);
begin
SetWindowPos(hWndC, HWND_BOTTOM, 0, 0, Width, Height, SWP_NOMOVE or SWP_NOACTIVATE);
end;
procedure TVideoCapture.SetStretch(TrueorFalse: Boolean);
begin
end;
procedure TVideoCapture.SetCompression;
begin
SendMessage(hWndC, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0)
end;
procedure TVideoCapture.SavetoJpegStream(var JpegStream: TMemoryStream; compressibility: Integer);
var
bmp: TBitMap;
jpg: TJpegimage;
begin
try
SaveBitMap(‘tmp.bmp‘);
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
bmp.LoadFromFile(‘tmp.bmp‘);
jpg.Assign(bmp);
jpg.CompressionQuality := compressibility;
jpg.Compress;
jpg.SaveToStream(JpegStream);
DeleteFile(‘tmp.bmp‘);
except
end;
bmp.free;
jpg.free;
end;
end.

http://blog.csdn.net/huang_xw/article/details/8638309

TVideoCapture類的源碼，繼承TCustomPanel，用於視頻捕獲（用到了SendMessage和SetWindowPos等API）good

per about yield tails visible messages rms man publish [cpp] view plain copy print? unit VideoCapture; interface

最系統商務類型PPT設計制作專題系列視頻課程（歷史最低大專題折上四折，相當於2折哦，限時特惠！）

領導 mark pro 一份優勢 ppt設計 sent 來看真的想系統的學習PPT課程？不必東拼西湊的學習了，一套課程，學會世界五百強公司和咨詢公司級別的PPT。真正的PPT絕對不是像發布會那樣，放幾張圖片，弄幾個大字的大字報！！！是真正帶有數據，圖表，論證，有邏

2018最新區塊鏈技術，從入門到精通視頻教程（比特幣基礎技術）

css css js 視頻教程 tran 準備 window 運行廣泛入門到 2017最新區塊鏈技術，從入門到精通視頻教程（視頻+源碼+工具）最新整理區塊鏈技術視頻包含開發工具，源碼，視頻教程，從小白到大神，分享給大家學習。區塊鏈最早是比特幣的基礎技術，目前世界

js源碼模仿 jquery的ajax的獲取數據（get，post ）的請求封裝

{} req turn eva syn 動作取字符串 func ring function ajax(obj){ // 默認參數 var defaults = { type : ‘get‘, data : {}, url : ‘#‘, dataType : ‘text‘,

原創，微信跳一跳外掛源碼、熱門遊戲，輕松上千分

鼠標右鍵 abs control set rsh ptr img left 版本看到別人跳一跳搞了很多分。我也跳一下。最高分才十幾分，被別人秒殺。於是制作這個外掛，能夠輕松上千分。原理很簡單，計算出兩點距離，測試出按下的時間，就可以了。現在開始嘍當然是

JAVA框架底層源碼剖析系列Spring，Mybatis，Springboot，Netty源碼深度解析

spring 消費者接口 jdbc 剖析 tty 必須實戰整體架構《Spring源碼深度解析》從核心實現和企業應用兩個方面，由淺入深、由易到難地對Spring源碼展開了系統的講解，包括Spring的設計理念和整體架構、容器的基本實現、默認標簽的解析、自定義標簽的解析

繼承（派生類的三種繼承方式，多重繼承，虛繼承）

繼承性是面向物件程式設計的第二大特性，它允許在既有類的基礎上建立新類，新類可以繼承既有類的資料成員和成員函式，可以新增自己特有的資料成員和成員函式，還可以對既有類中的成員函式重新定義。利用類的繼承和派生實現了更高層次的程式碼可重用性，符合現代軟體開發的思想。

Integer包裝類源碼分析

java看到幾道關於Integer拆裝箱的小題目，正好有點時間翻看了一下Integer類的源碼，加上自己的一點思考，決定寫點東西。先來看看下面的代碼：如果這道題你能得出正確答案並了解其中的原理，說明你的基礎還可以。如果你的答案是true和true的話，建議你去看看書。

Object類源碼解析

() time cte con 重寫集合 set集合 final 淺拷貝本文的分析基於JDK 1.8 Java中所有的類都繼承自Object類。 Object類的源碼解析 1.void registerNatives() private static native

Java集合---Arrays類源碼解析

錯誤輸出 quicksort return move ble arrays 並排 returns 有序一、Arrays.sort()數組排序Java Arrays中提供了對所有類型的排序。其中主要分為Primitive(8種基本類型)和Object兩大類。　　基本類型：采

Thread類源碼剖析

reat ssi com thread類最新 rate which 不知道 title 目錄 1.引子 2.JVM線程狀態 3.Thread常用方法 4.拓展點一、引子說來也有些汗顏，搞了幾年java，忽然發現竟然沒拜讀過java.lang.Thread類源

java集合類源碼分析之List（一）

col 實現類並且 link arraylist oar print 適用於 for 　　首先分析一下集合與數組的區別：1.java中的數組一般用於存儲基本數據類型，而且是靜態的，即長度固定不變，這就不適用於元素個數未知的情況；2.集合只能用於存儲引用類型，並且長度可變，

java集合類源碼分析之List（二）

頻繁 null 並且 reel closed tco 默認 java集合進行這一節主要介紹List接口的幾個實現類的區別： 1.線程安全 Vector是線程安全的，而ArrayList和LinkedList是非線程安全的。從源碼中我們可知，Vector類中的方法大部分

java.lang.Boolean 類源碼解析

als lan tin binary 1.4 logical ide truct all Boolean源碼比較簡單。 1 public final class Boolean implements java.io.Serializable, 2

InputFormat抽象類源碼分析

cat apache pan lse 情況 rdd ini spl thread InputFormat抽象類源碼解析-------------------------- 0.做兩件事：【進行邏輯切分InputSplit；創建RecordReader】 1.抽象

Java HashMap類源碼解析

trie prev 規則 foreach sting val fin 表示 == 作為重要的常用集合，HashMap主要是提供鍵值對的存取，通過key值可以快速找到對應的value值。Hash表是通過提前設定好的規則計算一個元素的hash值來找到他在數組中的存儲位置進行快速

Java集合類源碼解析：AbstractList

tlist ica png 用途 access 可用操作 map 支持今天學習Java集合類中的一個抽象類，AbstractList。初識AbstractList AbstractList 是一個抽象類，實現了List<E>接口，是隸屬於Java集合框架中

Java集合類源碼解析：Vector

end 變量處理最後一個元素就是本質它的推薦 boolean 引言之前的文章我們學習了一個集合類 ArrayList，今天講它的一個兄弟 Vector。為什麽說是它兄弟呢？因為從容器的構造來說，Vector 簡直就是 ArrayList 的翻版，也是基於數組

java並發編程CountDownLatch類源碼解析

shadow 表示斷線期望 water 先進先出 state aqs 結束記錄一下，今天學java並發編程的工具類寫一下自己對CountDownLatch 類的理解類本身的作用，類似於waitnotify，使線程進入阻塞並喚醒，達到線程通信的目的，看一下實現原理

查看JDK自動生成的代理類源碼

getclass byte system .class getc sky class ade 運行直接運行下面的代碼，在D盤就可以看到生成的源碼類$GameProxy.class import sun.misc.ProxyGenerator; import java.

TVideoCapture類的源碼，繼承TCustomPanel，用於視頻捕獲（用到了SendMessage和SetWindowPos等API）good

相關推薦