videogrät auswählen

robo202 · Beiträge: 67 win XP Delphi 2005

Hallo ich habe das bild meiner Webcam in mein prog eingebaut.

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:

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(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;
end.

als ich das prog dan laufen lies musste ich mich zwichen der web cam und meiner TV karte entscheiden leider habe ich die TV karte ausgewält das auswahl fenster kommt nicht mehr wie kann ich jetzt auf die web cam umschaten? :cry:

robo202 · Beiträge: 67 win XP Delphi 2005

brauce dringende hilfe :cry:

Gausi · Verfasst: Fr 25.07.08 12:17

Hallo,

bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien:

1.2 Beiträge:

Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...]

Einfach oben bei Deinem ersten Beitrag auf user defined image

oder

klicken und den Titel ändern.

Und nach einer halben Stunde schieben geht mal gar nicht!

_________________
We are, we were and will not be.

Fabian E. · Verfasst: Fr 25.07.08 12:19

Und schiebepostings sind erst nach 24h erlaubt.

Wenn jemand weiß wie er dir helfen kann wird er dirs sicher nicht vorenthalten.
Außerdem ist dein Problem etwas ungenau beschreiben... Wo hast du was augewählt?

Tilman · Verfasst: Fr 25.07.08 12:28

du könntest mal versuchen deinen Treiber zu deinstallieren, und dann neu installieren.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

robo202 · Beiträge: 67 win XP Delphi 2005

welchen treiber der der cam oder der TV karte.

was sind schiebepostings?

huuuuuh · Verfasst: Fr 25.07.08 13:44

robo202 hat folgendes geschrieben:

brauce dringende hilfe :cry:

sowas

installier einfach beide treiber neu. einer könnte aber auch reichen. ausprobieren...

robo202 · Beiträge: 67 win XP Delphi 2005

Es ist mir bewust das dieses meine Thema bereits fast 1 JAHR alt ist aber leider ist meine FRAGE immer noch nicht beantwortet also meine Frage in einer etwas genaueren FORM

Ich Habe eine Logitech USB Camera sowie eine Haupauge TV-Karte wenn ich nun folgenden DELPHI Quellcode in mein Projekt einbaue :

markieren

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:

unit Unit3;

interface

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

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

var
  Form3: TForm3;

   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 TForm3.FormCreate(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;

end.

Dan lässt mir Delphi keine Wahl und wählt automatisch die TV karte .

Die neue Instalation der beiden treiber bringt nichts bitte um Eure geschätzte HILFE

Fighter#1 · Verfasst: So 25.01.09 12:56

Hihi=) Delphi lässt dir keine Wahl

Das ist aber ein fieses Delphi!
Vielleicht solltest du die WinAPI nach Hilfe fragen*g* ... weißt du überhaupt was du für Messages rumschickst??
Diese ist die für dich entscheidende!

markieren

Delphi-Quelltext

1:	SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);

Dann schmeißt du Google an und tippst dort mal WM_CAP_DRIVER_CONNECT ein

und siehe da kommst du zu MSDN und die verklickern dir was nettes;)

WM_CAP_DRIVER_CONNECT
wParam = (WPARAM) (iIndex);
lParam = 0L;

iIndex
Index of the capture driver. The index can range from 0 through 9.

Das heißt durch ändern des Index (von 0 zB zu 1 ) kannst du verschiedene Treiber auswählen!!
Dieser AUfruf würde einen anderen Treiber auswählen!

markieren

Delphi-Quelltext

1:	SendMessage(handle, WM_CAP_DRIVER_CONNECT, 1, 0);

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme