FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cContent := "[Test]" + CRLF + "Test=" + REPLICATE( "x", 2048 )

    MEMOWRIT( "test.ini", cContent )

    ? LEN( GETPVPROFSTRING( "Test", "Test", "", ".\test.ini" ) )

    RETURN NIL


#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"
#include "clipapi.h"


#ifdef __HARBOUR__
   HB_FUNC( GETPVPROFSTRING )
#else
   HB_FUNC( GETPVPROFS )
#endif
{
   BYTE bBuffer[ 4096 ];
   DWORD wLen;

   wLen = GetPrivateProfileString( hb_parc( 1 ),     // Section
                                   IF( ISCHAR( 2 ), hb_parc( 2 ), 0 ),   // Entry
                                   hb_parc( 3 ),     // Default
                                   ( char * ) bBuffer,        // Destination Buffer
                                   sizeof( bBuffer ) - 1,   // M x Len
                                   hb_parc( 4 ) );   // INI File
   if( wLen )
      hb_retclen( ( char * ) bBuffer, wLen );
   else
      hb_retc( "" );
}

#pragma ENDDUMP

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cContent := "[Test]" + CRLF + "Test=" + REPLICATE( "x", 2048 )

    MEMOWRIT( "test.ini", cContent )

    ? LEN( GETPVPROFSTRING( "Test", "Test", "", ".\test.ini" ) )

    RETURN NIL


#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"
//#include "clipapi.h"


#define IF(x,y,z) ((x)?(y):(z))


#ifdef __HARBOUR__
   HB_FUNC( GETPVPROFSTRING )
#else
   HB_FUNC( GETPVPROFS )
#endif
{
   BYTE bBuffer[ 4096 ];
   DWORD wLen;

   wLen = GetPrivateProfileString( hb_parc( 1 ),     // Section
                                   IF( ISCHAR( 2 ), hb_parc( 2 ), 0 ),   // Entry
                                   hb_parc( 3 ),     // Default
                                   ( char * ) bBuffer,        // Destination Buffer
                                   sizeof( bBuffer ) - 1,   // M x Len
                                   hb_parc( 4 ) );   // INI File
   if( wLen )
      hb_retclen( ( char * ) bBuffer, wLen );
   else
      hb_retc( "" );
}

#pragma ENDDUMP

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cContent := "[Test]" + CRLF + "Test=" + REPLICATE( "x", 2048 )

    MEMOWRIT( "test.ini", cContent )

    ? LEN( GETPVPROFSTRING( "Test", "Test", "", ".\test.ini" ) )

    RETURN NIL


#pragma BEGINDUMP

#include "windows.h"
//#include "hbapi.h"
#include "clipapi.h"


//#define IF(x,y,z) ((x)?(y):(z))


#ifdef __HARBOUR__
   HB_FUNC( GETPVPROFSTRING )
#else
   HB_FUNC( GETPVPROFS )
#endif
{
   BYTE bBuffer[ 4096 ];
   DWORD wLen;

   wLen = GetPrivateProfileString( hb_parc( 1 ),     // Section
                                   IF( ISCHAR( 2 ), hb_parc( 2 ), 0 ),   // Entry
                                   hb_parc( 3 ),     // Default
                                   ( char * ) bBuffer,        // Destination Buffer
                                   sizeof( bBuffer ) - 1,   // M x Len
                                   hb_parc( 4 ) );   // INI File
   if( wLen )
      hb_retclen( ( char * ) bBuffer, wLen );
   else
      hb_retc( "" );
}

#pragma ENDDUMP

/*
 * $Id: clipdefs.h,v 1.8 2009/11/09 09:38:44 marchuet Exp $
 */

/*
 * Harbour Project source code:
...
 */

/* DON'T USE THIS FILE FOR NEW HARBOUR C CODE */

/* This file is provided to support some level of */
/* Harbour compatibility for old Clipper C extension code */

#ifndef _CLIPDEFS_H
#define _CLIPDEFS_H

#include "hbapi.h"

/* Old types */

typedef BYTE    byte;
typedef USHORT  quant;
typedef BOOL    Boolean;

/* New types */

typedef BYTE *  BYTEP;
typedef BYTEP   PBYTE;
typedef BYTEP   BYTEPP;

typedef SHORT * SHORTP;
typedef SHORTP  PSHORT;

typedef USHORT * USHORTP;

#ifndef __WATCOMC__
typedef USHORTP PUSHORT;
#endif

#if !(defined(HB_OS_WIN) && defined(HB_OS_WIN_USED))
   #if !( ( defined(__DMC__) || defined(__MINGW32__) || defined(__POCC__) || defined(_MSC_VER) || defined(__BORLANDC__) || defined(__WATCOMC__) ) && defined(HB_THREAD_SUPPORT))
      typedef unsigned int WORD;
      typedef WORD *  WORDP;
      typedef WORDP   PWORD;
   #endif
#endif

typedef LONG *  LONGP;
typedef LONGP   PLONG;

typedef ULONG * ULONGP;
typedef ULONGP  PULONG;

typedef ULONG   DWORD;
typedef DWORD * DWORDP;
typedef DWORDP  PDWORD;

typedef BOOL *  BOOLP;
typedef BOOLP   PBOOL;

typedef void *  NEARP;
typedef NEARP * NEARPP;

#if !(defined(HB_OS_WIN) && defined(HB_OS_WIN_USED))
   typedef void *  FARP;
   typedef FARP *  FARPP;
   typedef FARP    VOIDP;
   typedef FARP    PVOID;
#endif

typedef void *  HANDLE;
typedef HB_ERRCODE IHELP;
typedef HB_ERRCODE ICODE;

/* default func ptr -- USHORT return, USHORT param */
typedef USHORT  ( * FUNCP )( USHORT param, ...);
typedef FUNCP * FUNCPP;

#define HIDE    static
#define CLIPPER HARBOUR

#ifndef NIL
   #define NIL     '\0'
#endif
#ifndef NULL
   #define NULL    0
#endif

#endif /* _CLIPDEFS_H */

#if !(defined(HB_OS_WIN) && defined(HB_OS_WIN_USED))
   #if !( ( defined(__DMC__) || defined(__MINGW32__) || defined(__POCC__) || defined(_MSC_VER) || defined(__BORLANDC__) || defined(__WATCOMC__) ) && defined(HB_THREAD_SUPPORT))
      typedef unsigned int WORD;
      typedef WORD *  WORDP;
      typedef WORDP   PWORD;
   #endif
#endif