WebCam Code / Bild von WebCam holen

[taktaky]

Hallo,

ich wollte ein Bild von meiner WebCam über ein Button in Form1 kopieren.

Ich bekomme eine FehlerMeldung beim Klicken auf Button : Unsepported Clipboard Format

Hier ist der Code

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  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}

//Dann brauchst du noch das hier
function capCreateCaptureWindow(lpszWindowName: LPCSTR;
  dwStyle: DWORD;
  x, y,
  nWidth,
  nHeight: integer;
  hwndParent: HWND;
  nID: integer): HWND; stdcall;
  external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage( handle, WM_CAP_EDIT_COPY, 1, 0 );
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
end;

end.

[Mackhack]

Und jetzt?
Weist wieder net wie Fremder Code funktioniert und wie man ggf. Fehler ausfindig macht?

Meinst du jetzt wirklich dass es einen gibt der dir
1. Den Fehler sucht
2. Den Fehler bereinigt
3. Dir WIEDER die ARBEIT abnimmt?

Junge Junge, wann begreifst du dass Eigeninitiative hier 1A erwuenschenswert und belohnt wird mit Tips, Tricks und viel Know-How!!!

[taktaky]

Ja
Der Code ist komplett.
Die Leute helfen vielleicht nicht, wenn man vorher nicht versucht und will einen kompletten Code

[taktaky]

Problem gelöst

[DeddyH]

Es wäre nett, wenn Du die Lösung hier veröffentlichst, damit andere, die evtl. dasselbe Problem haben, sie nachlesen können.

[xy124]

ds selbe will hab ich auch grad vor aber hab es erst mit tscap32 probiert - funzt net bite lade deinen vollständigen code hoch (wär echt cool )

[DataCool]

Hi,

bei der kopiererei ins Clipboard,
kann es auch aber passieren das :

A: Ein Fehler ausgelöst wird, wenn der User etwas anderes in Clipboard kopiert

B: Es für den User ziemlich uncool ist, wenn er mal z.B. nach Word
Outlook oder sonstiges wechselt und etwas Text kopiert und diesen an anderer Stelle
wieder eingefügen möchte, dann aber Eurer Bitmap von der Cam erscheint.

Schaut euch TVideoCap auf torry.net an an, das sollte für eure Bedürfnisse ausreichen.

Greetz DataCool