1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

unit Unit1;   

interface   

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

type   
    TForm1 = class(TForm)   
      Panel1: TPanel;   
      procedure FormCreate(Sender: TObject);   
  private   
      { Private-Deklarationen }   
  public   
      { Public-Deklarationen }   
  end;   

var   
    Form1: TForm1;   

const   
    WM_CAP_DRIVER_CONNECT = WM_USER + 10;   
    WM_CAP_EDIT_COPY = WM_USER + 30;   
    WM_CAP_SET_PREVIEW = WM_USER + 50;   
    WM_CAP_SET_OVERLAY = WM_USER + 51;   
    WM_CAP_SET_PREVIEWRATE = WM_USER + 52;   

implementation   

    {$R *.dfm}   

function capCreateCaptureWindow(lpszWindowName: LPCSTR;   
    dwStyle: DWORD;   
    x, y,   
    nWidth,   
    nHeight: integer;   
    hwndParent: HWND;   
    nID: integer): HWND; stdcall;   
    external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';   

procedure TForm1.Formcreate;   
 var handle:THandle;   
  begin   
    handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,   
    0, 320, 240, Panel1.Handle, 1);   
    SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);   
    SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);   
    sendMessage(handle, WM_CAP_SET_OVERLAY, 1, 0);   
    SendMessage(handle, wm_cap_set_preview, 1, 0);   
  end;   

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Formcreate;   
 var handle:THandle;
  begin
    handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
    0, 320, 240, Form1.Handle, 0);
    SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);
    SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
    sendMessage(handle, WM_CAP_SET_OVERLAY, 1, 0);
    SendMessage(handle, wm_cap_set_preview, 1, 0);
    handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
    0, Form1.width, Form1.Height, Form1.Handle, 0);
    SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);
    SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
    sendMessage(handle, WM_CAP_SET_OVERLAY, 1, 0);
    SendMessage(handle, wm_cap_set_preview, 1, 0);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

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);


SendMessage(hwnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0);
SendMessage(hwnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0);
SendMessage(hwnd, WM_CAP_DLG_VIDEODISPLAY, 0, 0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function capGetDriverDescription (
           wDriverIndex : DWord;
    lpszName     : PChar;
    cbName       : Integer;
    lpszVer      : PChar;
    cbVer        : Integer ) : Boolean; 
                  stdcall; external AVICAP32 name 'capGetDriverDescriptionA'; 

function GetDriverList:TStringList;
var
  i   : integer;
  name: array[0..127] of char;
  ver : array[0..127] of char;
begin
 result:= TStringList.Create;
 i := 0;
 while capGetDriverDescription( i,name,127,ver,127) do begin
   result.Add(StrPas(name) + ' ' + strpas(ver));
   inc(i);
 end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TMainForm.OnCapVidostream(hWnd:HWND; lpVhdr: PVIDEOHDR);
var 
  ABmp    : TBitmap;
  BmpInfo : TBitmapInfo;
  hdb     :Thandle;
begin
  // Erzeuge eine Bitmap
  ABmp := TBitmap.Create;                        
  ABmp.Pixelformat:= pf32bit;

  // Der Videoframe liegt als DIB vor. Der folgende Code macht daraus eine Bitmap

  // WM_CAP_GET_VIDEOFORMAT= (WM_CAP_START+ 44);
  SendMessage(hwnd, WM_CAP_GET_VIDEOFORMAT, Wparam(SizeOf(BmpInfo)), LPARAM(@BmpInfo)); 
 
  with ABmp do begin
    Width := BmpInfo.bmiHeader.biWidth;                 
    Height := BmpInfo.bmiHeader.biHeight;
    hdb := DrawDibOpen;
    DrawDibDraw(hdb, canvas.handle,0,0,
                BmpInfo.BmiHeader.biwidth,
                BmpInfo.bmiheader.biheight,
                @BmpInfo.bmiHeader,
                lpvhdr^.lpdata,
                0,0,BmpInfo.bmiHeader.biWidth,
                BmpInfo.bmiHeader.biheight,0);
    DrawDibClose(hdb);
  end;

  // Hier kann die Bitmap bearbeitet, angezeigt u.s.w. werden.

  // Bitmap freigeben
  ABmp.free;
end;					

1:
2:

  SendMessage( handle, WM_CAP_EDIT_COPY, 1, 0 );   
  Form1.image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);