FiveTech Support Forums

Dear All,

FWH or [x]Harbour Like this function or LIB "brotli compression from Google" for Compressed Archives.

karinha wrote: Something like GZIP?

https://www.gzip.org/

I don't know. Perhaps Master Enrico has technical knowledge on this subject.

Regards, Saludos.

# INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()
LOCAL cRES:='{"sams":[{"samId":"901000000046","hospitalId":"9999999999","hospitalName":"測試機構","hospitalShortName":"測試機構","comport":"COM1"},{"samId":"901000001234","hospitalId":"0532110002","hospitalName":"烏日醫院","hospitalShortName":"烏日醫院","comport":"COM1"}],"statusCode":0}'
LOCAL nSize:=BROTLIENCODERCOMPRESSEDSIZE(200)
LOCAL SOUT:=SPACE(nSize)
BROTLIENCODERCOMPRESS(5,22,1,LEN(cRES),cRES,nSize,@sout)
RETURN Nil

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"
typedef enum
{
BROTLI_MODE_GENERIC = 0,
BROTLI_MODE_TEXT = 1,
BROTLI_MODE_FONT = 2
} BrotliEncoderMode;

int WINAPI BrotliEncoderMaxCompressedSize( int * inp_size) ;
int WINAPI BrotliEncoderCompress(int quality,int lgwin,BrotliEncoderMode mode,int * input_size ,LPSTR input_Buffer,int * encoded_size ,LPSTR encoded_Buffer);

HB_FUNC(BROTLIENCODERCOMPRESSEDSIZE)
{
int inp_size = (int *)hb_parni(1);
int size;
size=BrotliEncoderMaxCompressedSize(&inp_size);
hb_retnl(size);
}

HB_FUNC(BROTLIENCODERCOMPRESS)
{
int quality = hb_parni(1);
int lgwin = hb_parni(2);
int mode = hb_parni(3);
int input_size =(int *)hb_parni(4);
LPSTR input_Buffer=(char *) hb_parc(5);
int encoded_size =(int *)hb_parni(6);
LPSTR encoded_Buffer=(char *) hb_parc(7);
int err;
err=BrotliEncoderCompress(quality,lgwin,mode,&input_size ,input_Buffer,&encoded_size ,encoded_Buffer);
hb_retni(err);
}

#pragma BEGINDUMP

Antonio Linares wrote: Dear Richard,

https://x.com/i/grok/share/CMlzU3PRIPGQoS0LtGuoRgN2E

Antonio Linares wrote: Dear Richard,

https://x.com/i/grok/share/CMlzU3PRIPGQoS0LtGuoRgN2E

Compiling...
Harbour 3.2.0dev (r2503251254)
Copyright (c) 1999-2024, https://harbour.github.io/
Compiling 'testbrot.prg' and generating preprocessed output to 'testbrot.ppo'...
Lines 5091, Functions/Procedures 1
Generating C source output to 'testbrot.c'... Done.
Embarcadero C++ 7.70 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
testbrot.c:
Error E2141 testbrot.prg 21: Declaration syntax error
Error E2356 testbrot.prg 22: Type mismatch in redeclaration of 'WINAPI'
Error E2344 testbrot.prg 21: Earlier declaration of 'WINAPI'
Error E2141 testbrot.prg 22: Declaration syntax error
*** 4 errors in Compile ***
* Linking errors *

# INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()
LOCAL cRES:='{"sams":[{"samId":"901000000046","hospitalId":"9999999999","hospitalName":"測試機構","hospitalShortName":"測試機構","comport":"COM1"},{"samId":"901000001234","hospitalId":"0532110002","hospitalName":"烏日醫院","hospitalShortName":"烏日醫院","comport":"COM1"}],"statusCode":0}'
LOCAL nSize:=BROTLIENCODERCOMPRESSEDSIZE(200)
LOCAL SOUT:=SPACE(nSize)
LOCAL nResult
nResult:=BROTLIENCODERCOMPRESS(5,22,1,LEN(cRES),cRES,nSize,@sout)
IF nResult == 1
   ? "Compression successful, compressed size:", LEN(sOut)
ELSE
   ? "Compression failed"
ENDIF
RETURN Nil

#pragma BEGINDUMP
        #include <brotli/encode.h>
        #include <brotli/types.h>
        #include "hbapi.h"

        size_t WINAPI BrotliEncoderMaxCompressedSize(size_t input_size);
        BROTLI_BOOL WINAPI BrotliEncoderCompress(int quality,int lgwin,BrotliEncoderMode mode,size_t input_size, const uint8_t input_buffer[],size_t *encoded_size, uint8_t encoded_buffer[]);


        HB_FUNC(BROTLIENCODERCOMPRESSEDSIZE)
        {
            size_t inp_size = (size_t)hb_parni(1);
            size_t size=BrotliEncoderMaxCompressedSize(inp_size);
            hb_retnl((long)size);
        }

        HB_FUNC(BROTLIENCODERCOMPRESS)
        {
            int quality = hb_parni(1);
            int lgwin = hb_parni(2);
            BrotliEncoderMode mode = (BrotliEncoderMode)hb_parni(3);
            size_t input_size = (size_t)hb_parni(4);
            const char *input_buffer = hb_parc(5);
            size_t encoded_size = (size_t)hb_parni(6);
            char *encoded_buffer = (char *)hb_parc(7);

            BROTLI_BOOL result = BrotliEncoderCompress(quality, lgwin, mode,
                                                      input_size, (const uint8_t *)input_buffer,
                                                      &encoded_size, (uint8_t *)encoded_buffer);
            hb_retni(result);
        }

#pragma BEGINDUMP

richard-service wrote:Error E2356 testbrot.prg 22: Type mismatch in redeclaration of 'WINAPI'

Enrico Maria Giordano wrote:

Error E2356 testbrot.prg 22: Type mismatch in redeclaration of 'WINAPI'

You missed:

#include "windows.h"

矬闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡醴
?FiveWin for Harbour 25.04 - Apr. 2025 Harbour development power 喝
?(c) FiveTech 1993-2025 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 喊
斂闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡闡囁?
 葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔葔?
Compiling...
Harbour 3.2.0dev (r2503251254)
Copyright (c) 1999-2024, https://harbour.github.io/
Compiling 'TESTBROT.prg' and generating preprocessed output to 'TESTBROT.ppo'...
Lines 5093, Functions/Procedures 1
Generating C source output to 'TESTBROT.c'... Done.
Embarcadero C++ 7.70 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
testbrot.c:
Error E2356 TESTBROT.prg 23: Type mismatch in redeclaration of 'BrotliEncoderMaxCompressedSize'
Error E2344 D:\FWH2504\include\brotli\encode.h 328: Earlier declaration of 'BrotliEncoderMaxCompressedSize'
Error E2356 TESTBROT.prg 24: Type mismatch in redeclaration of 'BrotliEncoderCompress'
Error E2344 D:\FWH2504\include\brotli\encode.h 362: Earlier declaration of 'BrotliEncoderCompress'
*** 4 errors in Compile ***
* Linking errors *

Enrico Maria Giordano wrote: You have to remove these:

Code: Select all Collapse

        size_t WINAPI BrotliEncoderMaxCompressedSize(size_t input_size);
        BROTLI_BOOL WINAPI BrotliEncoderCompress(int quality,int lgwin,BrotliEncoderMode mode,size_t input_size, const uint8_t input_buffer[],size_t *encoded_size, uint8_t encoded_buffer[]);

Can you show the new error?

implib -a brotlienc.lib brotlienc.dll