FiveTech Software tech support forums

... to select between: effective bill, print only a proforma bill or cancel. EasyReport is Fivewin. You do not have to use a scripting language like PASCAL. EasyReport can do all what you can do with FR and even more. EasyReport designer is the unique designer I know where a novice can do some changes ...

... to select between: effective bill, print only a proforma bill or cancel. EasyReport is Fivewin. You do not have to use a scripting language like PASCAL. EasyReport can do all what you can do with FR and even more. EasyReport designer is the unique designer I know where a novice can do some changes ...

DLL32 Function MonitorFromWindow( hDevice AS LONG, pr AS LONG ) AS LONG PASCAL FROM "MonitorFromWindow" LIB "user32.dll"

DLL32 Function MonitorFromWindow(hDevice AS LONG, pr AS DWORD) AS BOOL PASCAL FROM "MonitorFromWindow" LIB "user32.dll"

Buenas Tardes. Muy agradecido por tus respuestas. Haber esta. El $ en Pascal es como el 0x en C, y significa que a continuación hay un número en hexadecimal. Por ejemplo, en Pascal escribir $FF es lo mismo que 255. En C, 0xFF es 255. Ahora necesito crear una ...

... fretcode := ACR120_Read(frHandle, Bloque, @dataRead) ::::: DLL FUNCTION ACR120_Read(frHandle AS LONG, Bloque AS LONG, @dataRead AS PTR ) AS LONG PASCAL FROM "ACR120_Read" LIB ACR120libHandle El parametro AS LONG PASCAL SERIA CORRECTO Entonces cuando se usa LPSTR Muchas Gracias..

... fretcode := ACR120_Read(frHandle, Bloque, @dataRead) ::::: DLL FUNCTION ACR120_Read(frHandle AS LONG, Bloque AS LONG, @dataRead AS LPSTR) AS LONG PASCAL FROM "ACR120_Read" LIB ACR120libHandle Como pasaria al llamado para la funcion con una arrelgo a llamado a la funcion ACR120_Read y ...

... EL LECTOR SIN CONTACTO // SI RETORNA ERRRO -xxxx QUE PUSIMOS ARRIBA Y VER ARRIBA. return DLL FUNCTION ACR120_Open(fPuerto AS LONG ) AS LONG PASCAL FROM "ACR120_Open" LIB ACR120libHandle Funciona perfecto.. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ...

... ENDIF if ACR120libHandle <> 0 FreeLibrary(ACR120libHandle) ENDIF return DLL FUNCTION ACR120_Open(fPuerto AS _INT ) AS LONG PASCAL FROM "ACR120_Open" LIB ACR120libHandle DLL FUNCTION ACR120_ListTags(fPuerto AS _INT , TagFound AS _INT , @TagType AS STRING , ; @TagLength ...

Prueba usando la claúsula PASCAL:

DLL FUNCTION ACR120_Open(fPuerto AS LONG ) AS LONG PASCAL FROM "ACR120_Open" LIB "ACR120U.DLL"

... ) return nil DLL FUNCTION SCardEstablishContext( SCARD_SCOPE_USER AS LONG , notUsed AS VOID , notUsed1 AS VOID , @FContext AS STRING ) AS LONG PASCAL LIB "WINSCARD.DLL"

... ) return nil DLL FUNCTION SCardEstablishContext( SCARD_SCOPE_USER AS LONG , notUsed AS VOID , notUsed1 AS VOID , @FContext AS STRING ) AS LONG PASCAL LIB "WINSCARD.DLL"

... // Stringa in Output TransactionR:=IAE17AX_Payment(@ECRBuffer,@POSBuffer) DLL32 FUNCTION IAE17AX_InitEth(ETHBuffer AS LPSTR) AS VOID PASCAL LIB "IAE17.DLL" DLL32 FUNCTION IAE17AX_Payment(@ECRBuffer AS LPSTR, @POSBuffer AS LPSTR) AS _INT PASCAL LIB "IAE17.DLL"

... TransactionR:=IAE17AX_Payment(@ECRBuffer,@POSBuffer) DLL32 FUNCTION IAE17AX_InitEth(@ETHBuffer AS LPSTR) AS VOID PASCAL LIB "IAE17.DLL" DLL32 FUNCTION IAE17AX_Payment(@ECRBuffer AS PTR, @POSBuffer AS PTR) AS _INT PASCAL LIB "IAE17.DLL"

... TransactionR:=IAE17AX_Payment(@ECRData,@POSData) DLL32 FUNCTION IAE17AX_InitEth(@ETHParameters AS PTR) AS VOID PASCAL LIB "IAE17.DLL" DLL32 FUNCTION IAE17AX_Payment(@ECRData AS PTR, @POSData AS PTR) AS _INT PASCAL LIB "IAE17.DLL"