Webcam

[tulipses]

Hallo ich bin Einsteiger mit Null Plan im mom. möchte gerne ein Projekt in Delphi laden mit üblichen Webcam Funktionen. Hat jemand eins für mich !

[Relicted]

Erstmal Willkommen in der DP.

Bitte benutz bevor du ein neues Thema aufmachst erstmal die Suche.
Da wärst du z.B. über diesen Thread gestolpert:

http://www.delphipraxis.net/internal...ghlight=webcam

Könnte dir eventuell weiterhelfen.

Gruß
Reli

[tulipses]

Hallo danke soweit,

aber nur versteh Bahnhof.. weis nciht wie ich das in Delphi laden kann!

Dachte ich könnte eine Projekt laden und es testen.

LG Tulipes

[Relicted]

Nunja ... es ist meistens so dass man auch etwas arbeit investieren muss bevor alles so läuft wie man es sich denkt. es wird eher selten sein dass wenn man schreibt "ich brauch das und das" dass jemand direkt ein projekt mit allem drum und dran hochläd.
der "normale" vorgang für hilfestellungen ist:

repeat
1. forensuche;
2. selber etwas rumprobieren;
3. irgendwas ned verstanden: topic öffnen und frage spezifizieren;
4. geholfen werden;
5. quellcode/hilfestellung annehmen und in sein programm integrieren;
until Tool.Fertig = true;


Gruß
Reli

[tulipses]

Hi also, wenn ich Delphi starte kann ich dort Muster Projekte laden, so dachte ich das es ein Projekt für so etwas WEBCAM gibt... mh..

Ich sehe Du kommst aus Iserlohn, mh ah nutzt wohl aber kaum was das ich dort auch in der Nähe gewohnt habe... Richtg. Menden... Dorf für der rest aus 1945

Nein aber dachte Für Euch schon Profis wäre das kein Problem ein Projekt zu zeigen was funzt.. will ja auch nicht alles drum und dran haben.. nur ein Beispiel.

Ich Programmiere ja nicht wirklich, noch nicht .

[Relicted]

mendener sind die schlimmsten )

ok hier eine kleine hilfestellung:

datei -> neu -> anwendung

Delphi-Quellcode:

//Zuerst brauchst du folgende Konstanten
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.LaberLaber; //halt irgendne Prozedur, ich habs im Formcreate, damit ich gleich was seh ^^
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;

( quelle: http://www.delphipraxis.net/internal...ighlight=video )
von mir jetzt ungetestet...

den quelltext in deinen quelltext reinkopieren.

auf das formular ein label ziehen ( reiterkarte "standard" )

im objektinspektor die form auswählen und reiterkarte ereignisse anklicken. da auf das "OnFormCreate" doppelklicken dann springst in den quelltext. dort dann einfach "LaberLaber;" eintragen in die procedure.

jetzt noch hoch in die deklaration der form

Delphi-Quellcode:

type 
  TForm1 = class( TForm )
  private
  public
   procedure LaberLaber;
  end;

die laberlaber funktion mit eintragen.
programm kompilieren und hoffentlich läuft's

Gruß
Reli

[Relicted]

hier die sourcen... kann die nur ned testen weil keine webcam auffer arbeit )

[tulipses]

Du Schatziiiiiiiiiiiiii

genau das meinte ich.. supie danke!!

Bin aber kein Mendener nur kurz da gewohnt ! Gott seih dank.

LG Tulipses

[Relicted]