FiveTech Software tech support forums

... use the GetModuleHandleEx function. HMODULE GetModuleHandle( LPCTSTR lpModuleName // module name ); Parameters lpModuleName [in] Pointer to a null-terminated string that contains the name of the module (either a .dll or .exe file). If the file name extension is omitted, the default library ...

... bRClicked, bWhen, nClrShadow ) CLASS TDIAG IF nClrShadow # NIL ::lSomb := .T. ::hPen := CreatePen( 0,1,nClrShadow ) ENDIF DEFINE BRUSH ::oBrush NULL RETURN Super:Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen ) METHOD Initiate( hWndFocus, hWnd ) CLASS ...

... to a parent window. This window receives any message boxes that an application produces, such as error reporting. lpOperation [in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular ...

René,

NIL o NULL ??? (no es lo mismo)

En el contexto de la conversación se entiende que NIL dado que NULL en xHarbour no existe.

Saludos,
José Luis Capel

Jose Luis:

NIL o NULL ??? (no es lo mismo)

... #define LT 0x69 1 #define MINUS 0x6A 1 #define MULT 0x6B 1 #define NE 0x6C 1 #define NEGATE 0x6E 1 #define NOP2 0x6F 1 #define NOT 0x70 1 #define NULL 0x71 1 #define ONE1 0x72 1 #define OR 0x73 1 #define PCOUNT 0x74 1 #define PLUS 0x75 1 #define POP 0x76 1 #define PUSHRV 0x77 1 #define QSELF 0x78 ...

... Database Server supports a proprietary ADT table. The maximum ADT field name length is 128 bytes and may contain any character value except 0 (NULL), ';' (a semi-colon), or ',' (a comma). Regards, Roman

... / / ' b) ::oRs:Fields(uNameField):Value:=ctod(' / / ') ::oRs:Fields(uNameField):Value:=ctod(' ') c) ::oRs:Fields(uNameField):Value:='NULL' d) ::oRs:Fields(uNameField):Value:=NIL e) dFec:=ctod(' / / ') ::oRs:Fields(uNameField):Value:=dFec y no se deja me marca el error : ADODB.RecordSet:Fields/9. ...

... := Chr(15) // Passing no second param or passing ZERO to GetProfString() // grabs entire section in .ini file. Each printer is separated by a // null char (Chr(0)) and a CRLF. We just strip them out cText := StrTran( StrTran( StrTran( ; GetProfString( "Devices", 0 ), Chr(0), cToken ), Chr(13) ...

... *) hb_parcx( 1 ); UNSIGNED16 usServerTypes = ( UNSIGNED16 ) hb_parni( 2 ); UNSIGNED8 *pucUserName = ISCHAR( 3 ) ? (UNSIGNED8 *) hb_parcx( 3 ) : NULL ; UNSIGNED8 *pucPassword = ISCHAR( 4 ) ? (UNSIGNED8 *) hb_parcx( 4 ) : NULL ; UNSIGNED32 ulOptions = ISNUM( 5 ) ? hb_parnl( 5 ) : ADS_DEFAULT ; ...

... modified to allow for more than one port to be open (MAXOPENPORTS) compiled at 20 and to allow for the sending and receiving of data containing NULL characters (Chr(0)). As a C/C++ coder, I make a fair plumber. Anyone who wishes to clean-up my code is welcome to do so. Ned Robertson XpertCTI, ...

... PHB_DYNS s_pSym_OleAuto; static PHB_DYNS s_pSym_hObj; static PHB_DYNS s_pSym_New; static PHB_DYNS s_pSym_cClassName; static BOOL *s_OleRefFlags = NULL; #pragma ENDDUMP //----------------------------------------------------------------------------// INIT PROC HB_OLEINIT HB_INLINE() { s_nOleError ...

... palbmpread() ; RETURN NIL #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> #include "Scancapi.h" LPSCAN_BUFFER lpScanBuffer = NULL; BOOL bUseText = TRUE; DWORD dwScanSize = 7095; DWORD dwScanTimeout = 0; #define BUFFER_SIZE 7095 #define DEFAULT_TIMEOUT 10000 HANDLE hScanner ...

... palbmpread() ; return nil #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> #include <ScanCAPI.h> HANDLE hScanner = NULL; TCHAR szScannerName[MAX_PATH] = L"SCN1:"; HB_FUNC( SCAN_OPEN ) { DWORD dwResult = SCAN_Open( szScannerName, &hScanner ); if ( dwResult != ...

... __HARBOUR__ #include <hbVm.h> // #include <hbfast.h> #include <hbapiitm.h> #define MoveTo( hDC, x, y ) MoveToEx( hDC, x, y, NULL ) #define _PutSym( _SymEval ) hb_vmPushSymbol( &hb_symEval ) #define _xPushM hb_vmPush #define _PutLN hb_vmPushLong #define _xEval hb_vmDo ...