FiveTech Software tech support forums

hi, need some help for 64 Bit HB_FUNC.PRG(322): warning C4244: "Argument": Konvertierung von "LRESULT" in "int", möglicher Datenverlust HB_FUNC.PRG(336): warning C4244: "Argument": Konvertierung von "LRESULT" in "int", möglicher ...

... Bit and got 1 (same) Error when compile under 64 Bit HB_FUNC.PRG(24): warning C4244: "=": Konvertierung von "HB_SIZE" in "int", möglicher Datenverlust HB_FUNC.PRG(489): warning C4244: "Initialisierung": Konvertierung von "HB_SIZE" in "int", ...

... Bit and got 1 (same) Error when compile under 64 Bit HB_FUNC.PRG(24): warning C4244: "=": Konvertierung von "HB_SIZE" in "int", möglicher Datenverlust HB_FUNC.PRG(489): warning C4244: "Initialisierung": Konvertierung von "HB_SIZE" in "int", ...

... from MSVC 64 Bit, need some Help please TGRID.c HB_FUNC.PRG(61): warning C4244: "=": Konvertierung von "HB_SIZE" in "int", möglicher Datenverlust HB_FUNC.PRG(138): warning C4244: "Initialisierung": Konvertierung von "HB_SIZE" in "int", ...

... should show for the most common problems for Harbour/Clipper usere how to do this with HTML and javascript. Also simple things like STRTRAN, STR, INT, etc. and e.g., calling functions with parameters, etc. Best regards, https://mybergland.com/fwforum/hw_clipper.jpg

Dear Jimmy, This is the definition of the struct LVCOLUMN from commctrl.h typedef struct tagLVCOLUMNA { UINT mask; int fmt; int cx; LPSTR pszText; int cchTextMax; int iSubItem; #if (_WIN32_IE >= 0x0300) int iImage; int iOrder; #endif #if _WIN32_WINNT >= 0x0600 int cxMin; // ...

... #define EM_LINESCROLL 182 #define EM_GETFIRSTVISIBLELINE 0x00CE and further in the program the get to show the programlines nWd := Int( ScreenWidth() * 0.9 ) @ 50,420 GET oGet VAR cText MEMO SIZE nWd - 440, 530 PIXEL OF oDlg FONT oFixed static function GetSetTopRow( oGet, nRow ) ...

... | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle := 2 oBrow:nclrpane := { || iif( ( oRS1Cli:AbsolutePosition / 2 ) - INT( oRS1Cli:AbsolutePosition / 2 ) > 0, RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) } oBrow:GoTop() oBrow:aActions = { "ID","numero", ...

Buscando en github he encontrado esto: https://github.com/alebianky/aNVIZ y ahi aparece un fichero de cabecera para C: API_EXTERN int CChex_Update(void *CchexHandle, int *DevIdx, int *Type, char *Buff, int Len); prueba asi: HB_FUNC( CCHEX_UPDATE ){   int DevIdx = hb_parni( ...

Esta declaración: int CChex_Update(IntPtr CchexHandle, int[] DevIdx, int[] Type, IntPtr Buff, int Len) no es una declaración de lenguaje C, sino de C#, lo cual significa que puede ser una DLL para .Net De ser asi, no podemos usarla ...

... del programa sin indicar ningun error. Creo que el problema esta en los parámetros. esta seria la llamada a la función según la documentación. int CChex_Update(IntPtr CchexHandle, int[] DevIdx, int[] Type, IntPtr Buff, int Len)  int[] --> ¿Es un array? Estas son las ...

...   msginfo(aDatos)#pragma BEGINDUMP#include <hbapi.h>#include <windows.h>int CChex_Update(long CchexHandle, int idx, int type, long aDatos, int longi);HB_FUNC( CCHEX_UPDATE ){   hb_retnl( ...

Prueba asi:

cDatos = Space( 32000 )
Dllcall( hDLL, "INT", "CChex_Update",Anviz_handle,1,1,@cDatos,32000)

... := hb_LibLoad( "tc-b_new_sdk.dll" ) a partir de ahi, usa hDLL en vez de "tc-b_new_sdk.dll" Anviz_handle:=DllCall( hDLL, "INT", "CChex_Start") etc... finalmente, haz hb_LibFree( hDLL )

... }) FUNCTION muestraprogreso(nPercent1, oMtr1) APPEND FROM &cFile WHILE (nPercent1++, oMtr1:Set(nPercent1), IIF( (nPercent1/1000 - int(nPercent1/1000)) = 0 , SysRefresh(), ), TRUE ) DELIMITED WITH ({,";"}) RETURN (.T.)