Antonio Linares wrote:First steps using Borland (some changes are required for MSVC)
#include "FiveWin.ch" function Main() DShowCamera() return nil #pragma BEGINDUMP #include <dshow.h> #include <uuids.h> HB_FUNC( DSHOWCAMERA ) { HRESULT hr; ICreateDevEnum *pDevEnum = NULL; IEnumMoniker *pEnum = NULL; IMoniker *pMoniker = NULL; IPropertyBag *pPropBag = NULL; IGraphBuilder *pGraph = NULL; ICaptureGraphBuilder2 *pBuilder = NULL; IBaseFilter *pCap = NULL; IBaseFilter *pSampleGrabberFilter = NULL; IBaseFilter *pNullRenderer = NULL; IMediaControl *pMediaControl = NULL; char *pBuffer = NULL; hr = CoInitializeEx( NULL, COINIT_MULTITHREADED ); if( hr != S_OK ) MessageBox( 0, "CoInitializeEx error", "ok", 0 ); hr = CoCreateInstance( &CLSID_FilterGraph, NULL, CLSCTX_INPROC_SERVER, &IID_IGraphBuilder, ( void ** ) &pGraph ); if( hr != S_OK ) MessageBox( 0, "CoCreateInstance error", "ok", 0 ); if( pGraph != NULL ) MessageBox( 0, "pGraph seems ok", "ok", 0 ); hr = CoCreateInstance( &CLSID_CaptureGraphBuilder2, NULL, CLSCTX_INPROC_SERVER, &IID_ICaptureGraphBuilder2, ( void ** ) &pBuilder ); if( hr != S_OK ) MessageBox( 0, "CoCreateInstance 2 error", "ok", 0 ); if( pBuilder != NULL ) MessageBox( 0, "pBuilder seems ok", "ok", 0 ); } #pragma ENDDUMP
this first release of Linares can be compiled under borland and harbour and run on win10
only there are not the command play and save
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com