FiveTech Software tech support forums

... c:\fwh64_2409\samples>



#include "Fivewin.ch"


DLL FUNCTION RoActivateInstance( pRuntimeClassName AS LPSTR, @pInstance AS PTR ) AS LONG PASCAL LIB "combase.dll"

FUNCTION RoActivateInstanceWrapper( cRuntimeClassName )
LOCAL nResult, pHString, pInstance
LOCAL nLength := Len ...

... nf-roapi-roactivateinstance

Prueba con este código:

DLL FUNCTION RoActivateInstance( pRuntimeClassName AS LPSTR, @pInstance AS PTR ) AS LONG PASCAL LIB "combase.dll"

FUNCTION RoActivateInstanceWrapper( cRuntimeClassName )
LOCAL nResult, pHString, pInstance
LOCAL nLength := Len ...

... return nil

//---------------------------------------------------------------------------//

DLL FUNCTION RoInitialize( nType AS LONG ) AS LONG PASCAL LIB "combase.dll"

DLL FUNCTION RoUninitialize() AS VOID PASCAL LIB "combase.dll"

DLL FUNCTION WindowsCreateString( cWideText AS LPSTR, nLength AS ...

... That i've declared by this way:

DLL32 FUNCTION PIXCD_ConsultarPixRecebidos(ADataInicio AS _DOUBLE,ADataFim AS _DOUBLE,ATxId AS STRING,;
ACpfCnpj AS STRING, PagAtual AS _INT, ItensPorPagina AS _INT,;
@sResposta AS STRING,@nTamanho AS _INT) AS LONG PASCAL FROM "PIXCD_ConsultarPixRecebidos" LIB oACPx

... error: will hangup

ZBarcode_print(h2d)


ZBarcode_Delete(h2d)

FREELIBRARY( hLib )
return



dll32 function ZBarcode_Create() as LONG pascal FROM "ZBarcode_Create" lib hlib

dll32 function ZBarcode_Encode_and_Buffer(symbol as LONG ,;
source as LPSTR,length as LONG,rotate_angle as LONG ...

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

... HB_LONGLONG
#define HB_LONGLONG long
#define hb_storvnll hb_stornl
#endif

agora o erro eh outro ao clicar em start
DLL FUNCTION Llama( cModel AS LPSTR, cPrompt AS LPSTR, pFunc AS PTR ) AS VOID PASCAL LIB "llama64.dll"
https://uploaddeimagens.com.br/images/004/700/688/original/erro.png?1703921284

Hola,

Aquí usando SetEdit y el editor de Free Pascal

+ SetEdit saca binarios para Linux pero no para Windows. https://setedit.sourceforge.net/
Tiene longitud de linea corta y para evitarlo en algunos .prg utilizo el editor de Free Pascal
+ Editor de Free Pascal está muy desactualizado https://www ...

... Should return true
lSmtpInit := SmtpInitialize(CSTOOLS9_LICENSE_KEY)

DLL FUNCTION SmtpInitialize(license AS LPSTR, initdata AS LPSTR) AS BOOL ;
PASCAL FROM "SmtpInitializeA" LIB hSmtp

The license key is a define for a long string of random letters.

The error I get is:

Compiler version ...

... Web, Linux, Mac).

También he conocido otros lenguajes y plataformas informáticas, habiendo visto o aprendido un poco de lenguajes como Fortran, Pascal, un poquito de Lenguaje C, MS Basic de los 80s, un poquito de FiveWin en sus inicios, Apex de Oracle, VBA de MS Office, TCLOAD para POSs de los 90s ...

... pregunta jamás del foro. Si me consta que el foro a veces, de Pascuas a Ramos, podría sufrir algun tipo de problema

Y basándonos en lo que decía Pascal: "El principio de toda moral es pensar bien de los demás", su pregunta más pertinente habría sido "¿ Alguien sabe qué pasó con mi pregunta ?"

Un ...

Estimado Jorge,

Si estas usando estás funciones:
DLL32 FUNCTION OpenComFiscal( nCom AS _INT, nMode AS _INT ) AS _INT PASCAL FROM "OpenComFiscal" LIB "winfis32.dll"
DLL32 FUNCTION MandaPaqueteFiscal( nHandler AS _INT, cBuffer AS LPSTR ) AS _INT PASCAL FROM "MandaPaqueteFiscal" LIB "winfis32.dll"
DLL32 ...

... I use an external one. Any time I do a print preview, and then want a PDF, I call this. Thus it is called many times each day.

Note these are PASCAL functions, and also note how I create the handle, and then release the .dll at the end. It never has a problem.

The code is built with FWH ...

To find if a function is PASCAL or not, simply use such clause or remove it and check if it works or not. Thats the simplest way

FWH should not affect Harbour's DllCall() behavior, so I guess that you are using wrong parameters with DllCall()

Does your same syntax work in xBase++ ? If so, then it ...

hi Antonio,

Antonio Linares wrote:Why don't you try to use the FWH DLL FUNCTION way ?

i have to find out Parameter Type "as PASCAL" to use DLL Function ...

DllCall() is a Harbour function.

it work with same Syntax and Result under HMG and Xbase++ so why not with Fivewin