Entwickler-Ecke :: Thema anzeigen

henny - Sa 18.07.09 15:35
Titel: Frage zur Webcam

Hallo zusammen
ich habe gerade ein Programm programmiert
bei dem in einem Panel das Bild einer Webcam angezeigt wird
doch das Bild ist zu klein
Wie kann ich das Bild vergrößern?

Xentar - Sa 18.07.09 15:36

Zieh das Panel größer.

henny - Sa 18.07.09 15:38

Hab ich aber dann ist links oben das Bild der Wabcam und der Rest des Panels ist weiß

Xentar - Sa 18.07.09 15:40

Tja.. dann solltest du uns vielleicht erstmal verraten, wie du das Bild da drauf zeichnest.

Vielleicht gibts dabei Parameter für Höhe und Breite, oder eine Stretch Methode oder sowas.

henny - Sa 18.07.09 15:44

O.K.
Hier der Code:

Delphi-Quelltext

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:
54:
55:

unit Unit1;

interface

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

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

  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;

var
  Form1: TForm1;

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.FormShow(Sender: TObject);

var handle:THandle;
begin
  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 320, 240, Panel1.Handle, 1); //Wie du siehst, brauchst du ein Panel in diesem Beispiel ;-)
  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;

Regan - Sa 18.07.09 15:49

Delphi-Quelltext

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

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

procedure TForm1.FormShow(Sender: TObject);

var handle:THandle;
begin
  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, Panel1.Width, Panel1.Height, Panel1.Handle, 1); //Sehe ich, aber man sollte sich auch mal die Parameter anschauen, bevor man Code übernimmt ;-)
  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;

Vielleicht solltest du diesen Code nicht in FormShow aufrufen, weil sonst nicht akutalisiert wird, aber das ist eine andere Frage ;)

DonManfred - Sa 18.07.09 15:53

Delphi-Quelltext

1:
2:

  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 320, 240, Panel1.Handle, 1); //Wie du siehst, brauchst du ein Panel in diesem Beispiel ;-)

Hast Du die 320 und 240 mal verändert?

henny - Sa 18.07.09 15:54

Ja die hab ich verändert nur das ist dann total komisch
weil dann das Bild der Webcam und ein Stück vom Desktop angezeigt wird
Weiß vieleicht jemand wie ich das Problem beheben kann?

ffgorcky - Sa 18.07.09 18:29

Du möchtest das Image mit dem gesamten Panel vergrößern?
Also ich meine, dass müsste doch mit Image.align:=clClient gehen.
Oder?

Xentar - Sa 18.07.09 18:52

ffgorcky hat folgendes geschrieben :

Du möchtest das Image mit dem gesamten Panel vergrößern?
Also ich meine, dass müsste doch mit Image.align:=clClient gehen.
Oder?

Hä? Was für ein Image?
Lies nochmal, worum es hier geht.

henny - So 19.07.09 11:23

Gibt es eigentlich noch eine Andere Möglichkeit Bilder von einer Webcam anzeigen zu lassen?
Also z.B. einen Komponenten oder so was?

jaenicke - So 19.07.09 11:32

Das DSPack [http://sourceforge.net/projects/dspack/] kann sowas sicherlich auch. Es ist aber nicht besonders einfach zu benutzen, das muss ich zugeben.