FiveTech Software tech support forums

... HB_FUNC_STATIC( STARTDOC ) { HDC hDC = (HDC) hb_parnl(1) ; LPDOCINFO sDoc = NULL; BOOL Result = FALSE ; if (hDC ) { sDoc = (LPDOCINFO) hb_xgrab(sizeof(DOCINFO)); sDoc->cbSize= sizeof(DOCINFO) ; sDoc->lpszDocName= hb_parc(2) ; sDoc->lpszOutput = hb_parc(3) ; sDoc->lpszDatatype= NULL ...

... `CreateProcess`: ```cpp #include <Windows.h> int main() { // Terminate the current instance // Relaunch the application STARTUPINFO si = { sizeof(STARTUPINFO) }; PROCESS_INFORMATION pi; if (CreateProcess(NULL, L"your_app.exe", NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi)) ...

... ports, then modify this line to check how the function works: // return GetDefaultCommConfig( buffer, &CommConfig, &size ) || size > sizeof( COMMCONFIG ); return TRUE; shark.prg #include "FiveWin.ch"function Main()   XBrowser( FW_ComPorts() )return ...

... szRead[128], szRet[256]; char szSite[] = "http://checkip.dyndns.org/Current IP Check.htm"; char *Token; char *cRet; memset(szPath,0,sizeof(szPath)); memset(szRet,0,sizeof(szRet)); GetTempPath(256, szPath); strcat(szPath, "my_ip.txt"); if( URLDownloadToFile(0, szSite, szPath, ...

... AS LPSTR MEMBER lpszCertStore AS LPSTR MEMBER lpszCertName AS LPSTR MEMBER lpszKeyFile AS LPSTR ENDSTRUCT oCredentials:dwSize = oCredentials:SizeOf() oCredentials:lpszCertStore = cCertStore oCredentials:lpszCertName = cCertName INetConnect( ..., ..., ..., ..., ..., @oCredentials:cBuffer ) ...

... "hbvm.h" #include "hbapirdd.h" #include "hbxvm.h" HB_FUNC( ISEXE64 ) // Check if our app is 64 bits { hb_retl( ( sizeof( void * ) == 8 ) ); } #pragma ENDDUMP

... tcsetattr(fd, TCSANOW, &ti); // Set the new serial config // Send buffer_to_send content to RS485 if (write(fd, buffer_to_send, sizeof(buffer_to_send)) != sizeof(buffer_to_send)) { printf("ERROR! write() failed \r\n"); } ti_prev.c_cflag &= ~HUPCL; // This to release ...

... RetVar : cardinal; RContext : cardinal; RStates : array[0..1] of SCARD_READERSTATEA; begin try RContext := cardinal(PContext^); FillChar(RStates,SizeOf(RStates),#0); RStates[0].szReader := SelectedReader; //Es un puntero al nombre del lector que hayas seleccionado RStates[0].pvUserData := nil; ...

... short pn; unsigned char sad; unsigned char dad; // REQUEST ICC unsigned char command[] = { 0x20, 0x12, 0x01, 0x00, 0x00 }; unsigned short lenc = sizeof(command); unsigned char response[300]; unsigned short lenr = sizeof(response); unsigned short i; ctn = 1; pn = 1; // Initialize card terminal ...

Si ejecutas este programa de ejemplo en 32bits el Sizeof te devuelve 40 bytes y en 64bits te devuelve 48 bytes. Las variables que se duplican son las de tipo DWORD/LONG o puntero(*) que son LONG también. function main()   MsgInfo(ESTRUCTURA())return ...

JM,

Sería mas sencillo que devolvieses un array.

Si quieres devolver una cadena entonces tienes que usar hb_retclen( ( char * ) pAdapterInfo, sizeof (IP_ADAPTER_INFO) );

... estructura diseñada en FWH/(x)Harbour return #pragma BEGINDUMP HB_FUNC( GETADAPTERSINFO ) { PIP_ADAPTER_INFO pAdapterInfo = NULL; DWORD dwBufLen = sizeof (IP_ADAPTER_INFO) ; DWORD dwError = GetAdaptersInfo(pAdapterInfo,&dwBufLen); FREE(pAdapterInfo); pAdapterInfo = (IP_ADAPTER_INFO *) MALLOC(dwBufLen); ...

...  endif   hOldFont   := SelectObject(  hDC, hFont ) the function is this HB_FUNC( CREAFCAPT ) { NONCLIENTMETRICS info; info.cbSize = sizeof(info); SystemParametersInfo( SPI_GETNONCLIENTMETRICS, sizeof(info), &info, 0 ); hb_retnl( (LONG ) CreateFontIndirect( &info.lfCaptionFont ...

... UNSIGNED8 pucFormat[ 16 ]; UNSIGNED16 pusLen = 16; la otra que uso yo HB_FUNC( ADSSETDATEFORMAT ) { UNSIGNED8 pucFormat[ 16 ]; UNSIGNED16 usLen = sizeof( pucFormat ); la que uso HB_BOOL hb_ads_bOEM = HB_FALSE; la otra BOOL hb_ads_bOEM = FALSE; HB_FUNC( ADSENABLEENCRYPTION ) { const char * pucPassword ...

Intenta en minúsculas: sizeof( mi )