New News For Camera With Fwppc

Post Reply
User avatar
HATHAL
Posts: 77
Joined: Tue Nov 15, 2005 3:38 pm
Location: The Kingdom Saudi Arabia -Riyadh
Contact:

New News For Camera With Fwppc

Post by HATHAL »

To all
I Am linking Camera Source With Fwpp Not Any Error .
But He is Not Shooting Any Picture
please From all Testing This code And View Problem In Shooting Picture
------ This is Full Source "hathal.prg" ------
#include "FWCE.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd
DEFINE WINDOW oWnd TITLE "TEST Cam "
@5, 10 BUTTON "TEST 1" SIZE 80, 25 ACTION;
CAM_CE(Ownd)
ACTIVATE WINDOW oWnd
return nil
********************************************************
#pragma BEGINDUMP
#include "hbapi.h"
#define UNDER_CE
#include "windows.h"
//////////////////////////////////////////////////////////////////////////////
//
// Flags for camera capture UI

typedef enum {
CAMERACAPTURE_MODE_STILL = 0,
CAMERACAPTURE_MODE_VIDEOONLY,
CAMERACAPTURE_MODE_VIDEOWITHAUDIO,
} CAMERACAPTURE_MODE;

typedef enum {
CAMERACAPTURE_STILLQUALITY_DEFAULT = 0,
CAMERACAPTURE_STILLQUALITY_LOW,
CAMERACAPTURE_STILLQUALITY_NORMAL,
CAMERACAPTURE_STILLQUALITY_HIGH,
} CAMERACAPTURE_STILLQUALITY;

typedef enum {
CAMERACAPTURE_VIDEOTYPE_ALL = 0xFFFF,
CAMERACAPTURE_VIDEOTYPE_STANDARD = 1,
CAMERACAPTURE_VIDEOTYPE_MESSAGING = 2,
} CAMERACAPTURE_VIDEOTYPES;

typedef struct tagSHCAMERACAPTURE
{
DWORD cbSize;
HWND hwndOwner;
TCHAR szFile[MAX_PATH];
LPCTSTR pszInitialDir;
LPCTSTR pszDefaultFileName;
LPCTSTR pszTitle;
CAMERACAPTURE_STILLQUALITY StillQuality;
CAMERACAPTURE_VIDEOTYPES VideoTypes;
DWORD nResolutionWidth;
DWORD nResolutionHeight;
DWORD nVideoTimeLimit;
CAMERACAPTURE_MODE Mode;
}SHCAMERACAPTURE, *PSHCAMERACAPTURE;
//
// end of flags for camera capture UI
//
//////////////////////////////////////////////////////////////////////////////
LPWSTR AnsiToWide( LPSTR );
typedef DWORD ( FAR PASCAL * _XSHCameraCapture ) ( PSHCAMERACAPTURE );
static far _XSHCameraCapture XSHCameraCapture = 0;
HB_FUNC( CAM_CE )
{
SHCAMERACAPTURE shcc;
HRESULT hResult;
LPWSTR CE_LIB = AnsiToWide( "AYGSHELL.DLL" );
LPWSTR CE_FUNC = AnsiToWide( "SHCameraCapture" );
HINSTANCE hDLL = LoadLibrary( CE_LIB );
// Set the SHCAMERACAPTURE structure.
ZeroMemory(&shcc, sizeof(shcc));
shcc.cbSize = sizeof(shcc);
// shcc.hwndOwner = hwndOwner;
shcc.hwndOwner = ( HWND ) hb_parnl( 1 );
shcc.pszInitialDir = TEXT("\\My Documents");
shcc.pszDefaultFileName = TEXT("test.3gp");
shcc.pszTitle = TEXT("Camera Demo");
shcc.VideoTypes = CAMERACAPTURE_VIDEOTYPE_MESSAGING;
shcc.nResolutionWidth = 176;
shcc.nResolutionHeight = 144;
shcc.nVideoTimeLimit = 15;
shcc.Mode = CAMERACAPTURE_MODE_VIDEOWITHAUDIO;
XSHCameraCapture = ( _XSHCameraCapture ) GetProcAddress( hDLL,CE_FUNC );
hResult = XSHCameraCapture(&shcc);
// StringCchCopy(pszFilename, MAX_PATH, shcc.szFile);
// StringCchCopy(AnsiToWide(hb_parc( 2 )), MAX_PATH, shcc.szFile);
hb_xfree( CE_LIB );
hb_xfree( CE_FUNC );
FreeLibrary( hDLL );
}
#pragma ENDDUMP
-----------------------------------------
regards,
hathal
:D :D
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

can you send me at private emai the sample cose to use this and the file exe to try with my smartphone HTC tyTn qtek9600

Regards
Best Regards, Saludos

Falconi Silvio
User avatar
HATHAL
Posts: 77
Joined: Tue Nov 15, 2005 3:38 pm
Location: The Kingdom Saudi Arabia -Riyadh
Contact:

Post by HATHAL »

welcome Silvio
I send to you the the sample work has been on
a i-mate jamin with windows ce 5
, and works is simple.
:D
regards,
hathal
User avatar
HATHAL
Posts: 77
Joined: Tue Nov 15, 2005 3:38 pm
Location: The Kingdom Saudi Arabia -Riyadh
Contact:

Post by HATHAL »

Because the deal with the Camera possible with the programs fwppc
I would end the first experiment on the source.
This picture images using the link "VIDEO 3gp"
http://www.livesystem.net/fwh_src/test.3gp
and this link program Camera cam1.exe
http://www.livesystem.net/fwh_src/cam1.exe
run up windows ce 5
i testing up " i-mate jamin " hi is runing 100%
regards,
hathal
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

have nothing for create a photo from webcam for fw and xharbour ?
Best Regards, Saludos

Falconi Silvio
User avatar
HATHAL
Posts: 77
Joined: Tue Nov 15, 2005 3:38 pm
Location: The Kingdom Saudi Arabia -Riyadh
Contact:

Post by HATHAL »

hi Silvio
Do you work Silvio private source to fwppc be using the news on the source above.
For source webcam with pc . say following link.
http://www.fivewin.info/ulfiles/Webcam32.zip
Post Reply