Recent

Author Topic: amateur cam  (Read 7160 times)

sam707

  • Guest
Re: amateur cam
« Reply #15 on: May 12, 2018, 09:53:47 pm »
so a basic devices interface/component/library crossplatform to cameras devices should be a plus a plus A PLUS to lazarus ...
I am damn surprised that it does not already exist for years  :P

Jurassic Pork

  • Hero Member
  • *****
  • Posts: 1228
Re: amateur cam
« Reply #16 on: May 13, 2018, 11:52:58 am »
hello,
you can try to use lazvlc or paslibvlc if you have vlc installed on your system.
Lazvlc or PasLibvlc use libvlc library and can read webcam streams.
Example on windows  for PasLibVlcPlayer :
Code: Pascal  [Select][+][-]
  1. procedure TMainForm.ShowWebcamClick(Sender: TObject);
  2. var
  3.   mrl : WideString;
  4.   MyOptions : Array[0..1] of WideString;
  5. begin
  6.   mrl := 'dshow://';
  7.   MyOptions[0] := ':dshow-vdev=ManyCam Virtual Webcam';
  8.   MyOptions[1] := ':live-caching=300';
  9.   PasLibVlcPlayer1.Play(mrl,MyOptions);    
  10. end;

i have some troubles with  my virtual WebCam and vlc 3.02  ( wrong colors) on windows but no problem on Lubuntu.

Friendly, J.P

« Last Edit: May 13, 2018, 12:08:22 pm by Jurassic Pork »
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

sam707

  • Guest
Re: amateur cam
« Reply #17 on: May 13, 2018, 02:55:35 pm »
@Jurassic Pork
nice third party placeholder starting point, I'm gonna give it a look on vlc for android phones, thx

I might sculpt my wife when shes mad at me with Lazarus and a 3d pronter before 2022 hahahaha
« Last Edit: May 13, 2018, 02:59:55 pm by sam707 »

 

TinyPortal © 2005-2018