Now I found 2 problem with letodb.
error LNK2019: unresolved external symbol _hb_cdpnTranslate referenced in
function _letoKeyToStr
error LNK2019: unresolved external symbol _GetComputerNameA referenced in
function _leto_NetName
2009-09-11 20:37 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbapi.h
+ added hb_xgrabz() and hb_xmemdup() macros
* harbour/include/hbapicdp.h
* harbour/source/rtl/cdpapi.c
+ added new functions which can be used in translations changing the
size of trnaslated strings:
hb_cdpDup(), hb_cdpnDup(), hb_cdpnDup2(), hb_cdpnDup3(),
hb_cdpnDupLen(), hb_cdpnDup2Len()
Now hb_cdp[n]Translate() functions are depreciated.
+ added pseduto codepage "UTF8" which can be used in trnaslations only
+ added new function hb_cdpFindExt() which allows to chose pseudo CPs
1)In leto1.c piece of codigo
----------------------->8-------------------
static USHORT letoKeyToStr( LETOAREAP pArea, char * szKey, char cType,
PHB_ITEM pKey )
{
USHORT uiKeyLen;
if( cType == 'N' )
{
char * sNum = hb_itemStr( pKey, NULL, NULL );
uiKeyLen = strlen(sNum);
memcpy( szKey, sNum, uiKeyLen );
hb_xfree( sNum );
}
else if( cType == 'D' )
{
hb_itemGetDS( pKey, szKey );
uiKeyLen = 8;
}
else if( cType == 'L' )
{
szKey[0] = (hb_itemGetL(pKey))? 'T':'F';
uiKeyLen = 1;
}
else
{
uiKeyLen = hb_itemGetCLen(pKey);
memcpy( szKey, hb_itemGetCPtr(pKey), uiKeyLen );
hb_cdpnTranslate( szKey, hb_cdp_page, pArea->area.cdPage, uiKeyLen );
}
szKey[uiKeyLen] = '\0';
return uiKeyLen;
}
---------------------8<----------------
2) In net.c
-------------------->8--------------
#elif defined(HB_OS_WIN_32) || defined( HB_OS_WIN )
DWORD ulLen = 32;
char szValue[32], *szRet;
szValue[ 0 ] = '\0';
GetComputerNameA( szValue, &ulLen );
ulLen = strlen( szValue );
szRet = (char*) hb_xgrab( ulLen+1 );
memcpy( szRet, szValue, ulLen );
szRet[ulLen] = '\0';
return szRet;
#else
-------------------8<--------
Someone can fix this ?
Best regards,
Itamar M. Lins Jr.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
