Xbasse++ UuidFromString() -> FiveWin )

[Jimmy]

hi,

i have this under Xbase++

Code: Select all  Expand view  RUN

#xtranslate ITaskbarList_uuidof()   => UuidFromString("56FDF342-FD6D-11d0-958A-006097C9A090")
#xtranslate ITaskbarList2_uuidof()  => UuidFromString("602D4995-B13A-429b-A66E-1935E44F4317")
#xtranslate ITaskbarList3_uuidof()  => UuidFromString("EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF")
#xtranslate ITaskbarList4_uuidof()  => UuidFromString("C43DC798-95D1-4BEA-9030-BB99E2983A1A")

how under Fivewin

[Antonio Linares]

Dear Jimmy,

Those xtranslates should work the same using Harbour, so I guess your question is:

How to implement function UuidFromString() ?

Could you please try MsgInfo( ITaskbarList_uuidof() ) with xbase++ (or similar function to MsgInfo()) and let us know what you get ?

thanks

[Jimmy]

hi,

sorry i made a Mistake
UuidFromString() is not a Xbase++ Function, it is from 3-PP Ot4XB LIB

Code: Select all  Expand view  RUN

//------------------------------------------------------------
//  Project: Open Tools for Xbase++                          -
//  Repository : http://www.xbwin.com                        -
//  Author: Pablo Botella Navarro ( http://www.xbwin.com )   -
//------------------------------------------------------------
#include <ot4xb_api.h>
XPPRET XPPENTRY UUIDFROMSTRING(XppParamList pl)
{          
   ContainerHandle conr = _conNew( NULLCONTAINER);
   LPSTR pBuffer = _pszParam(pl,1);
   if( pBuffer )
   {
      UUID Id;
      LPSTR pStr = pBuffer;
      if(pStr[0] == '{')
      {  
         ULONG n;
         pStr++;
         for( n=0; pStr[n]; n++){ if( pStr[n] == '}' ) pStr[n] = 0; }
      }
      if( UuidFromString((LPBYTE)pStr,&Id) == RPC_S_OK ) _conPutCL( conr , (LPSTR)&Id,sizeof(UUID));
      _xfree((void*) pBuffer);
   }
   _conReturn(pl,conr); _conRelease(conr);
}
 

i have try this under Xbase++

Code: Select all  Expand view  RUN

#include "Ot4XB.CH"

#xtranslate ITaskbarList_uuidof()   => UuidFromString("56FDF342-FD6D-11d0-958A-006097C9A090")
#xtranslate ITaskbarList2_uuidof()  => UuidFromString("602D4995-B13A-429b-A66E-1935E44F4317")
#xtranslate ITaskbarList3_uuidof()  => UuidFromString("EA1AFB91-9E28-4B86-90E9-9E9F8A5EEFAF")
#xtranslate ITaskbarList4_uuidof()  => UuidFromString("C43DC798-95D1-4BEA-9030-BB99E2983A1A")

PROCEDURE MAIN

? ITaskbarList_uuidof()
? ITaskbarList2_uuidof()
? ITaskbarList3_uuidof()
? ITaskbarList4_uuidof()
WAIT

RETURN

Result

B¾²Vm²ðòè `ù╔áÉ
òI-`:▒øBªn5õOC
æ¹Û(×åKÉÚ׃è^´»
ÿÃ=─ÐòÛKÉ0╗ÖÔÿ:

[Antonio Linares]

Dear Jimmy,

Code: Select all  Expand view  RUN

HB_FUNC( UUIDFROMSTRING )
{
   UUID Id;

   UuidFromString( ( LPBYTE ) hb_parc( 1 ), &Id );
   hb_retclen( ( LPSTR ) &Id, sizeof( UUID ) );
}

[Jimmy]

hi Antonio,

thx for Answer