Comment on an Icetips Article

Please add your comments to this article. Please note that you must provide both a name and a valid email address in order for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!

Back to article list Search Articles Add Comment Printer friendly Direct link

Windows API: Creating a GUID
2003-04-29 -- Jim Kane

Newsgroups: comp.lang.clarion

Notice in the c prototype ** ? That means pointer to a pointer. You need to
do one more copy.
What you are getting back is a pointer to the string. My code uses call by
address since the dlls involved are not found on all os but you can use a
lib if all your customers will have nt or higher
  if SELF.CallDllCl.Init(Dllname,SELF.Debug)
    SELF.TakeError('RpcRt4.dll not found','CreateGuid')
    do procret
  end
  SELF.calldllcl.setprocfailcode(1)

  procresult = SELF.calldllcl.call('UuidCreate',plpGuid)
  if procresult<>0
    If procresult = 1824 then
      SELF.TakeError('No NIC in this Machine','CreateGuid')
    elsif res = 1739
      SELF.TakeError('Unable to get NIC Address','CreateGuid')
    else
      SELF.TakeError('UUIDCreate Failed','CreateGuid')
    end
    do procret
  End

  if ~omitted(3) then
    !Convert to a string
    ProcResult=SELF.calldllcl.call('UuidToStringA', plpguid
,address(UuidStrPtr))
    If ProcResult<>0 or ~uuidstrptr then
      SELF.TakeError('Uuidstr fail','CreateGuid')
      do procret
    End

    !Copy string from RPC Owned Memory to CW memory
    if size(pGuidStr)< lstrlen(uuidstrptr)+1 then
      SELF.TakeError('Guid string is too short:
Required='&lstrlen(uuidstrptr) & ' provided='&size(pGuidStr),'CreateGuid')
      do procret
    else
      lstrcpy(address(tempcStr),UuidStrPtr)
      pGuidStr=tempcstr
      res=return:benign
    end
  end
  do procret

procret routine
  !free the RPC Memory, if any was obtained
  if uuidstrptr then
    SELF.calldllcl.call('RpcStringFreeA', address(UuidStrPtr))
  end
  SELF.CallDllCl.kill()
  return res

Notice the extra lstrcpy and finally the call to rpcstringfreeA
Jim Kane

"Charles Ballard"  wrote in message
news:3eaebf1c$1@news.softvelocity.com...
> I believe I have successfully used CoCreateGuid to create the uuid I need,
> but I'm having trouble getting the UuidToString API to work:
>
> I have used LibMaker to generate a .lib for rpcrt4.dll.  I have prototyped
> the functions as such:
>
> !Atomic Equates
> DWORD   EQUATE(LONG)   !4-byte signed
> WORD    EQUATE(USHORT) !2-byte unsigned
> !Compound Equates
> GUID           GROUP,TYPE
> Data1            DWORD
> Data2            WORD
> Data3            WORD
> Data4            STRING(8)
>                END
>
> MODULE('Rpcrt4.DLL')
>   UuidToString(*GUID,*CSTRING),UNSIGNED,PASCAL,RAW,NAME('UuidToStringA')
> END
> MODULE('Ole32.DLL')
>   CoCreateGuid(*GUID),HRESULT,PASCAL,RAW
> END
>
> And I'm calling them like this:
>
>   DATA
> loc:guid    GROUP(GUID).
> loc:guidStr cstring(27)
>   CODE
>   clear(loc:guid)
>   e#=CoCreateGuid(loc:guid)
>   !I seem to have valid data in the group at this point
>   e#=UuidToString(loc:guid,loc:guidStr)
>   !But loc:guidStr gives me garbage here
>
> I get no compile or link errors, but no useable uuid, either.
>
> The MSDN definition of the UuidToString function is this:
>
> RPC_STATUS RPC_ENTRY UuidToString(
>   UUID *Uuid,
>   unsigned char **StringUuid
> );
> Parameters
>   Uuid
>   Pointer to a binary UUID.
>   StringUuid
>   Pointer to a pointer to the string into which the UUID specified in the
> Uuid parameter shall be placed.
> I'm pretty sure I'm using it incorrectly.
> Any ideas?
> Thanks,
> Charles
>
>

Today is November 23, 2024, 3:36 am
This article has been viewed 35404 times.
Google search has resulted in 367 hits on this article since January 25, 2004.

Back to article list Search Articles Add Comment Printer friendly

Templates, Tools and Utilities
for Clarion Developers

Add a comment to an Icetips Article

Templates, Tools and Utilities for Clarion Developers
	Home Products Download Documentation Demos Support Articles About Buy ALL PRODUCTS Build Automator Checkbox Fixer Icetips Utilities Magic Buttons Magic Entries Magic Locks OutlookBar Power ToolBar Report Previewer SQL Templates TaskPanel Window Fixer XP Theme Xplore GOLD SUBSCRIPTION SILVER SUBSCRIPTION SOLO SUBSCRIPTION Compare Gold/Silver Products Documentation Demos Free SQL Stuff Other Free Stuff PAR2 files Tips & Tricks - NEW Icetips Blog Icetips News Icetips on Facebook Icetips on Twitter Icetips on Youtube All Articles Search articles Top Ten articles Articles by Category Video tutorials What is Clarion? Support Options Live Support Email & Mail Icetips Blog Icetips on Twitter Gold Subscription Silver Subscription Solo Subscription Recurring Subscription Compare Gold & Silver Renew Your Subscription Multiple Copy Pricing

Templates, Tools and Utilitiesfor Clarion Developers

Add a comment to an Icetips Article

Templates, Tools and Utilities
for Clarion Developers