FiveTech Software tech support forums

Antonio Linares wrote:? hb_CStr( hb_SHA256( hb_memoRead( "filename.zip" ), nil ) )

Dear Antonio,

It's not work.

? hb_CStr( hb_SHA256( hb_memoRead( "filename.zip" ), nil ) )

Saludos
Alberto,
https://github.com/AdaptaProERP/kernel_ ... qrform.prg

DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL ;
FROM "FastQRCode" LIB "QRCodelib.Dll"
RETURN NIL

Dear Jimmy, glad to know that you got it working using FWH :-) I think the different behavior with HMG is this: AI_FORM.oAnswer.Value += cStr with FWH we use Class TMultiGet METHOD Append( cStr )      METHOD Append( cText, nLen ) INLINE ;          ...

... Please try this using 64 bits only: HMG_CallDLL( "llama64.dll", HB_DYN_CTYPE_VOID, "Llama", cModel, cPrompt, CallBack( { | cStr | AI_FORM.oAnswer.SetFocus(), AI_FORM.oAnswer.Value += cStr } ) ) and add this at the bottom: #pragma BEGINDUMP #include <hbapi.h>#include ...

Dear Philippe,

? hb_CStr( hb_SHA256( hb_memoRead( "filename.zip" ), nil ) )

... conjunta de cadenas que contienen caracteres con notación diferente en ANSI y UTF8 mostraba basura. Corregida. * Nueva funciones AnsiToUtf8( cStr ) y Utf8ToAnsi( cStr ). Útil en el caso de algunos caracteres de idiomas WU, como las diéresis alemanas, que se codifican de forma diferente en ...

... together strings containing characters with different notiation in ANSI and UTF8 was displaying garbage. Fixed. * new functions AnsiToUtf8( cStr ) and Utf8ToAnsi( cStr ) Useful in case of some WU language characters like German Umlauts who are encoded differently in ANSI and Utf8.

... hJson ) local aData := {} local aRow, aCalls, hCall local d, n, i, j, aDt local ARRI, DEPA local cPol, cPolName, cDateTim, dEtd, cEtdTime, cStr aCalls := hJson[ "vessel" ] AADD( aData, { "IMO" , aCalls["vesselIMONumber"] } ) AADD( aData, { "VESSEL" ...

... (cSERVER + "RETIDO.DBF") NEW //SHARED SELECT 10 USE (cSERVER + "ARQMES.DBF") NEW //SHARED cCompetencia:="01/2021" cStr="Tempo Abertura de DBFs: " + Transf(ElapTime(cTime,TIME()),"@k 99:99:99") SWPanelRefresh( oPan, cStr ) inkey(1) SWPanelClose( ...

? hb_CStr( hb_SHA256( hb_memoRead( "arhivo.zip" ), nil ) )

Harbour proporciona la función HB_SHA256( cText ) --> nHash

Ejemplo:
? hb_CStr( hb_SHA256( 'Probando CheckSum de este Texto', nil ) )

... Algunos pequeños cambios en samples\buildh64.bat. Ahora usamos x86_x64 en lugar de la versión previa x86_amd64. * Mejora: Función FW_ProperCase( cStr ) Las palabras con el prefijo "Mc" se reconocen por su uso apropiado en mayúsculas. * Nuevas funciones FW_TRIM,FW_RTRIM,FW_LTRIM,FW_ALLTRIM(cStr,[cTrimChars]) ...

... * Enhancement: Some minor changes in samples\buildh64.bat. Now we use x86_x64 instead of previous x86_amd64 * Enhancement: function FW_ProperCase( cStr ): Words with prefix "Mc" are recognized for appropriate capitalization. * New functions FW_TRIM,FW_RTRIM,FW_LTRIM,FW_ALLTRIM(cStr,[cTrimChars]) ...

... un BMP internamente, pero con extensión JPG Por cierto a modo de comentario, si en la llamada a la función DLL pongo DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" Lib "QRCodelib.Dll" con Lib en mayuscula, da un error de función ...