Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Webcam Video 10 Sekunden machen (https://www.delphipraxis.net/100055-webcam-video-10-sekunden-machen.html)

kujin1000 21. Sep 2007 15:53


Webcam Video 10 Sekunden machen
 
Hio^^
ich will ein programm schreiben das bei knopfdruck von der webcam ein video macht nämlich 10 sekunden und das dann speichert. wie geht das? hab über die sufu das gefunden:

ich hab ein panel zur ausgabe

Delphi-Quellcode:
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_PREVIEWRATE = WM_USER + 52;

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

procedure TfrmMain.FormCreate;
begin
  FCapHandle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 320, 240, Panel1.handle, 1);
  SendMessage(FCapHandle, WM_CAP_DRIVER_CONNECT, 0, 0);
  SendMessage(FCapHandle, WM_CAP_SET_PREVIEWRATE, 1, 0);
  SendMessage(FCapHandle, wm_cap_set_preview, 1, 0);
end;

ich wills aber nicht anzeigen sondern nur ein 10 sekunden video machen und das speichern. also möglichst ohne video anzeigen im panel. slowt den pc nur

THX

Go2EITS 21. Sep 2007 16:25

Re: Webcam Video 10 Sekunden machen
 
Als erstes solltest Du versuchen an das Bild zu kommen und es als .Bmp laden und dann als .png speichern.
So wie es aussieht hast Du ein AVI. Verwende mal die Suche in der DP hier und mach mal einen Schritt nach dem anderen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz