Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Webcameinstellungen im Programm (https://www.delphipraxis.net/60938-webcameinstellungen-im-programm.html)

Chrissi91 14. Jan 2006 15:09


Webcameinstellungen im Programm
 
Hi :hi:,

in meinem Programm wird die Webcam super angezeigt. Aber wie kann ich jetzt über einen Schieberegler Kontrast, Sättigung, Helligkeit, Belichtung, Empfindlichkeit, Weißabgleich einstellen? Ich wollte dafür allerdings nicht die Daten auf der Festplatte suchen und überschreiben lassen, sondern die Befehle direkt an die Kamera geben.

Wie gehe ich da ran, wenn es überhaupt geht, da ich in der DP nichts dazu gefunden habe.

---Bernhard--- 14. Jan 2006 15:19

Re: Webcameinstellungen im Programm
 
Hi!

Unter Link findest du Beispielcodes wie man mit einer Webcam arbeiten kann.
Deine Angaben sind jedoch nicht sehr genau. Wenn du nicht sagst, wie du die Webcam genau anstuerest wird dir wohl keiner so leicht helfen können...

Chrissi91 14. Jan 2006 15:37

Re: Webcameinstellungen im Programm
 
der Thread hat mir auch nicht weitergeholfen.

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_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;
var
 handle:THandle;
begin
 handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
 0, 320, 240, panel1.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);
end;

---Bernhard--- 14. Jan 2006 15:49

Re: Webcameinstellungen im Programm
 
Der von dir geposte Code ist auch nur da, damit das Bild angezeigt wird.
Weiter unten steht dann wie man die Einstellungen verändern kann!
Delphi-Quellcode:
const
  WM_CAP_DLG_VIDEOFORMAT         = WM_USER+41;  //Formatauswahl
  WM_CAP_DLG_VIDEOSOURCE         = WM_USER+42;  //Einstellungen
  WM_CAP_DLG_VIDEOCOMPRESSION    = WM_USER+46;  //Kompression
begin
  SendMessage(camhandle,WM_CAP_DLG_VIDEOFORMAT,1,0);
end;

Chrissi91 14. Jan 2006 16:32

Re: Webcameinstellungen im Programm
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ja,

aber ich möchte das alles selber machen. Ich möchte eine Form selber machen mit den Einstellungen. (. Anhang)!

MasterDG 16. Jan 2006 17:10

Re: Webcameinstellungen im Programm
 
Hallo!

Also die Messages die du benutzten könntest stehen hier. Aber ich glaube nicht das du das ohne die Dialoge von Windows verändern kannst.

Eine Möglichkeit das zu verwirklichen wäre über die Komponente DSPack. Da kann man das glaub ich einstellen. Is übrigens super für Webcams.

EDIT: Satzbau verbessert...

Gruß
MasterDG


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:27 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