PC Toledo

Código: Selecionar todos

#pragma BEGINDUMP // Abre sessÆo C dentro do fonte PRG
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "errno.h"
#include "zlib.h"
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbapierr.h"
#define windowBits 15
#define ENABLE_ZLIB_GZIP 32 
#define CHUNK 0x4000  

char caminhogz[150];
char caminhotxt[150];

HB_FUNC( HB_FUNC_ABRIRGZ )
{ 
	if(!caminhogz[1]){ // Verifica se a posição 1 do vetor já está carregada. (Ao chamar pela segunda vez, o vetor já estava carregado)
		strcat(caminhogz, hb_parc(1));
		strcat(caminhogz, "tempX.gz");
		strcat(caminhotxt, hb_parc(1));
		strcat(caminhotxt, "tempX.txt");
	}
	hb_retni(FUNC_ABRIRGZ());
}

int FUNC_ABRIRGZ()
{
	const char * file_name_gz = caminhogz;
	const char * file_name_txt = caminhotxt;
	FILE * fileo;
	FILE * fileo2;
	z_stream strm = {0};
	unsigned char in[CHUNK];
	unsigned char out[CHUNK];
	strm.zalloc = Z_NULL;
	strm.zfree = Z_NULL;
	strm.opaque = Z_NULL;
	strm.next_in = in;
	strm.avail_in = 0;
	if (inflateInit2 (& strm, windowBits | ENABLE_ZLIB_GZIP) < 0)
		return -1;
	fileo = fopen (file_name_gz, "rb");
	if ( fileo <= 0)
		return -2;
	fileo2 = fopen (file_name_txt, "wb");
	if ( fileo2 <= 0)
		return -3;
	while (1) {
		int bytes_read;
		int zlib_status;
		bytes_read = fread (in, sizeof (char), sizeof (in), fileo);
		if (ferror(fileo))
			return -4;
		strm.avail_in = bytes_read;
		strm.next_in = in;
		do {
			unsigned have;
			strm.avail_out = CHUNK;
			strm.next_out = out;
			zlib_status = inflate (& strm, Z_NO_FLUSH);
			switch (zlib_status) {
				case Z_OK:
				case Z_STREAM_END:
				case Z_BUF_ERROR:
					break;
				default:
					inflateEnd (& strm);
					fprintf (stderr, "Gzip error %d in '%s'.\n",
					zlib_status, file_name_gz);
					return -5;
			}
			have = CHUNK - strm.avail_out;
			fwrite (out, sizeof (unsigned char), have, fileo2);
		}
		while (strm.avail_out == 0);
		if (feof (fileo)) {
			inflateEnd (& strm);
			break;
		}
	}
	if(fclose(fileo))
		return -6;
	if (fclose(fileo2))
		return -7;
	return 0;
}

Código: Selecionar todos

 Pasta de D:\XHBBCC74\tests

23/04/2019  16:49               963 7zip.prg
23/04/2019  16:49             1.210 7zip1.prg
23/04/2019  16:49             2.495 7zip2.prg
23/04/2019  16:49             1.790 7zip3.prg