Webcam Snapshot speichern

[ManuKILLED]

Hey Leute,

bin derzeit dabei eine Anwendung zu schreiben, die mir bei Aufruf einen Snapshot mittels der Webcam erstellt und speichert.
Die Anzeige der Webcam klappt fehlerlos, allerdings wird die Grafik nicht gespeichert.

Habe bereits viele Threads durchforscht, allerdings war bisher nichts dabei, was wirklich funktioniert hat.

Ich hoffe wirklich ihr könnt mir wieder einmal helfen.
Hier der Code:

Delphi-Quellcode:

unit Unit4;

interface

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

  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;
  WM_CAP_FILE_SAVEDIB = WM_USER + 25;

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

var
  Form4: TForm4;

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 TForm4.FormCreate(Sender: TObject);
var handle:THandle;
begin
  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 320, 240, Form4.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);
  SendMessage(handle, WM_CAP_FILE_SAVEDIB, 0, LPARAM(Pchar('C:/file.jpg')));
end;

end.

Beste Grüße
Manu

[Bummi]

Delphi-Quellcode:

  SendMessage(handle, WM_CAP_FILE_SAVEDIB, 0, LPARAM(PAnsichar('C:\temp\file.jpg')));

[ManuKILLED]

Zitat:

Zitat von Bummi (Beitrag 1189411)

Delphi-Quellcode:

  SendMessage(handle, WM_CAP_FILE_SAVEDIB, 0, LPARAM(PAnsichar('C:\temp\file.jpg')));

Super, danke... das Bild wird nun gespeichert, ABER leider ist das Bild schwarz, hat noch irgendjemand eine Idee, woran das liegen könnte?

[Sir Rufo]

Zitat:

Zitat von Bummi (Beitrag 1189411)

Delphi-Quellcode:

  SendMessage(handle, WM_CAP_FILE_SAVEDIB, 0, LPARAM(PAnsichar('C:\temp\file.jpg')));

Odda man nimmt die Unicode-Variante http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

odda macht sich etwas, das immer funktioniert ;)

Delphi-Quellcode:

// ANSI Version -> PAnsiChar verwenden
function capCreateCaptureWindowA(lpszWindowName: LPCSTR;
  dwStyle: DWORD;
  x, y,
  nWidth,
  nHeight: integer;
  hwndParent: HWND;
  nID: integer): HWND; stdcall;
  external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';
// Unicode Version -> PWideChar verwenden
function capCreateCaptureWindowW(lpszWindowName: LPCWSTR;
  dwStyle: DWORD;
  x, y,
  nWidth,
  nHeight: integer;
  hwndParent: HWND;
  nID: integer): HWND; stdcall;
  external 'AVICAP32.DLL' name 'capCreateCaptureWindowW';
// Automatisch wie der Compiler -> PChar verwenden 
function capCreateCaptureWindow(lpszWindowName: {$IFDEF UNICODE}LPCWSTR{$ELSE}LPCSTR{$ENDIF};
  dwStyle: DWORD;
  x, y,
  nWidth,
  nHeight: integer;
  hwndParent: HWND;
  nID: integer): HWND; stdcall;
  external 'AVICAP32.DLL' name {$IFDEF UNICODE}'capCreateCaptureWindowW'{$ELSE}'capCreateCaptureWindowA'{$ENDIF};

[Bummi]

nimm mal bmp statt jpg ....

[ManuKILLED]

Vielen Dank für die wirklich fixen Antworten, klappt nun alles bestens :)