FiveTech Software tech support forums

... #include <windows.h> #include <hbvm.h> #include <hbapiitm.h> BOOL WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) { HB_SYMBOL_UNUSED( hinstDLL ); HB_SYMBOL_UNUSED( fdwReason ); HB_SYMBOL_UNUSED( lpvReserved ); switch( fdwReason ) { case DLL_PROCESS_ATTACH: ...

This is our pcode C model. It compiles fine. Test.c typedef unsigned char BYTE; typedef void * LPVOID; typedef struct { char * szName; BYTE bScope; LPVOID pVoid; } SYMBOL; #define PUBLIC 0 void MAIN( void ); void QOUT( void ); void VirtualMachine( BYTE * pcode, SYMBOL ...

... Each of those symbols have the following structure: typedef struct { char * szName; // Clipper infact keeps an array here (11 bytes). BYTE bScope; LPVOID pVoid; } SYMBOL; #define PUBLIC 0 // the scope of the function! SYMBOL symbols[] = { { "MAIN", PUBLIC, MAIN }, { "QQOUT", ...

... MessageBox( 0, "inside the DLL", "DOPROC", 0 ); return 0; } BOOL WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) { HB_SYMBOL_UNUSED( hinstDLL ); HB_SYMBOL_UNUSED( fdwReason ); HB_SYMBOL_UNUSED( lpvReserved ); switch( fdwReason ) { case DLL_PROCESS_ATTACH: ...

... . . and many other ************ I inserted in MYDLL.PRG the: BOOL WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) { HB_SYMBOL_UNUSED( hinstDLL ); HB_SYMBOL_UNUSED( fdwReason ); HB_SYMBOL_UNUSED( lpvReserved ); switch( fdwReason ) { case DLL_PROCESS_ATTACH: ...

... HB_FUNC( WMFTOEMF ) // ( cWmf, cEmf ) { HMETAFILE hWMF = GetMetaFile( hb_parc( 1 ) ); UINT nSize = GetMetaFileBitsEx( hWMF, 0, NULL ); LPVOID lpvData = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, nSize ); HENHMETAFILE hEMF, hEMF2; GetMetaFileBitsEx( hWMF, nSize, lpvData ); hEMF = ...

... All rights reserved. antonino.c antonino.prg(29) : error C2664: 'HRESULT CoCreateInstance(const IID &,LPUNKNOWN,DWORD,const IID &,LPVOID *)' : cannot convert argument 1 from 'const CLSID *' to 'const IID &' Reason: cannot convert from 'const CLSID *' to 'const IID' No constructor ...

Este es el prototipo de InternetReadFile(): BOOL InternetReadFile(  _In_   HINTERNET hFile,  _Out_  LPVOID lpBuffer,  _In_   DWORD dwNumberOfBytesToRead,  _Out_  LPDWORD lpdwNumberOfBytesRead); http://msdn.microsoft.com/en-us/library/windows/desktop/aa385103%28v=vs.85%29.aspx ...

... PropertySheetA #endif typedef BOOL (CALLBACK *LPFNADDPROPSHEETPAGE)(HPROPSHEETPAGE, LPARAM); typedef BOOL (CALLBACK *LPFNADDPROPSHEETPAGES)(LPVOID, LPFNADDPROPSHEETPAGE, LPARAM); typedef struct _PSHNOTIFY { NMHDR hdr; LPARAM lParam; } PSHNOTIFY, *LPPSHNOTIFY; #define PSN_FIRST (0U-200U) ...

... 1 ), &nFileSizeHigh ) ); } HB_FUNC( INTERNETREADFILE ) { DWORD nBytesRead; BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), ( LPVOID ) hb_parc( 2 ), hb_parclen( 2 ), &nBytesRead ); if ( !lSuccess ) hb_retnl( -1 ); else hb_retnl( nBytesRead ); } HB_FUNC( INTERNETWRITEFILE ...

... #include <windows.h> #include <hbvm.h> #include <hbapiitm.h> BOOL WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) { HB_SYMBOL_UNUSED( hinstDLL ); HB_SYMBOL_UNUSED( fdwReason ); HB_SYMBOL_UNUSED( lpvReserved ); switch( fdwReason ) { case DLL_PROCESS_ATTACH: ...

... #include <windows.h> #include <hbvm.h> #include <hbapiitm.h> BOOL WINAPI DllEntryPoint( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) { HB_SYMBOL_UNUSED( hinstDLL ); HB_SYMBOL_UNUSED( fdwReason ); HB_SYMBOL_UNUSED( lpvReserved ); switch( fdwReason ) { case DLL_PROCESS_ATTACH: ...

... una ayudita. gracias.- ... #define tEXTERNAL_NUMERIC unsigned long /*POR QUE ACA*/ ... typedef struct { tTYPE_TRANSL_FUNC TypeTranslFuncPtr; LPVOID ParamValuePtr; } tEXTERNAL_NUMERIC; /*SI YA ESTA ACA*/ PROCEDURE Main()   ?"Begin Test..."   ?"Open Port...:", MYTSL_PortOpen( ...

... ); hb_retl(SetCommState( ( HANDLE ) hb_parnl( 1 ), &dcb )); } HB_FUNC( READCOMM ) { DWORD dw = 0; ReadFile( ( HANDLE ) hb_parnl( 1 ), ( LPVOID ) hb_parc( 2 ), ( DWORD ) hb_parni( 3 ), &dw, NULL ); hb_retni( ( int ) dw ? dw : -1 ); } HB_FUNC( WRITECOMM ) { DWORD dw = 0; WriteFile( ...

... &vPostData ); psa = SafeArrayCreateVector( VT_UI1, 0, cElems ); if( ! psa ) { hb_retnl( E_OUTOFMEMORY ); return; } SafeArrayAccessData( psa, ( LPVOID * ) &pPostData ); memcpy( pPostData, cszPostData, cElems ); SafeArrayUnaccessData( psa ); V_VT( &vPostData ) = VT_ARRAY | VT_UI1; V_ARRAY( ...