* * *

Author Topic: amateur cam  (Read 1818 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: 725
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 »

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 »

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus