Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Schnappschuss von Video (https://www.delphipraxis.net/101288-schnappschuss-von-video.html)

fLaSh11 10. Okt 2007 20:16


Schnappschuss von Video
 
Hallo DPler,

ich lasse das Video (welches mir meine WebCam liefert) auf einer Panel anzeigen. Nun möchte ich von diesem Video einen Schnappschuss machen. D.h. ein Bild herauspicken :-D
Ich zerbreche mir schon den ganzen Tag den Kopf darüber und hab ewig gesucht...

Vielen Dank für Hilfe.

MfG
Steffen

Flips 10. Okt 2007 21:02

Re: Schnappschuss von Video
 
Wohl nicht lang genug gesucht :wink:
Hier stehts
Wenn du mit Geduld nach Hier im Forum suchenWebcam suchst, dann findest du auch was :-)

fLaSh11 10. Okt 2007 21:16

Re: Schnappschuss von Video
 
Dein Code bringt eine AV bei mir. Aber ich hab jetzt grad auch ne Lösung gefunden.
Einfach ein Screenshot vom Desktop machen und die Panel angeben.

Delphi-Quellcode:
procedure TForm1.MakeSnapShot(const Target: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    Target.PixelFormat := pfDevice;
    Target.Width := Panel1.Width;
    Target.Height := Panel1.Height;

    BitBlt(Target.Canvas.Handle, -Form1.Left - Panel1.Left, -Form1.Top - Panel1.Top -20, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;

SirThornberry 10. Okt 2007 21:43

Re: Schnappschuss von Video
 
von der Screenshot-Variante würde ich abraten. Wenn das Video in einem Modus läuft wo direkt in den Videospeicher geschrieben wird, siehst du auf dem Screenshot dann nichts.

fLaSh11 10. Okt 2007 21:55

Re: Schnappschuss von Video
 
Oder es von einem anderen Fenster überdeckt wird :wall:

Flips 10. Okt 2007 23:11

Re: Schnappschuss von Video
 
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:

Zitat von fLaSh11
Dein Code bringt eine AV bei mir. Aber ich hab jetzt grad auch ne Lösung gefunden.
Einfach ein Screenshot vom Desktop machen und die Panel angeben.

Würd ich allein wegen der Umständlichkeit davon abraten, ohne auf die technischen Probleme einzugehen... :wink:
Bei mir funzt es via Clipboard, haste alles richtig angepasst?
Denk an das Pixelformat, anders kanns nicht gehen.
Hier im Anhang hab ich noch eine weitere Methode implementiert, über capFileSaveDIB.
Da sollte jetzt was dabei sein :coder:

fLaSh11 11. Okt 2007 16:19

Re: Schnappschuss von Video
 
Es ist ja logisch, dass eine AV kommt, denn ich benutze die Kamera für das anzeigen des Videos, da kann sie ja nicht gleichzeitig noch ein Foto schießen. Deshalb dachte ich, ich extrahiere ein Frame aus dem Video...

Flips 11. Okt 2007 20:06

Re: Schnappschuss von Video
 
Nein du verstehst das falsch. Das funktioniert schon, ich capture ja auch während ich ein Foto damit mache. Funktioniert der Code den ich hochgeladen hab bei dir nicht?

fLaSh11 11. Okt 2007 21:38

Re: Schnappschuss von Video
 
Ah, vielen Dank! Das funktioniert. :thumb: :thumb:


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