🚀 go-pugleaf

PS.
You could of course also use WideString instead of wstring (which I used in 
the example)
I guess I used wstring because this particular code is located in a cpp page 
I want no VCL code in.
I try to keep that seperated for when I have to convert (not that I hope I 
will ever have to do that)

-------------------------------------------------------
"Peter Van Hove" <Will_Bounce_So_Use_My_First_Name@Smart-Projects.net> wrote 
in message news:429f03d4@newsgroups.borland.com...
> The VCL limitations aside, you best use your own code to get the Unicode 
> strings out the dll.
>
> At least then you have the true unicode strings, without being limited by 
> various possible conversions of all sorts done in the background, and if 
> you "hand" the result as wchar_t  pointers to VCL AnsiString members (e.g. 
> label->Caption = ) you will see that all works nicely, beit that the 
> system will have to be setup for this particular language (because of the 
> VCL limitation, so nothing to do with the unicode itself or the dll or how 
> the unicode was retrieved from the dll)
>
> E.g. :
>
> (PS.
> - wstring is from the standard c++ library
> - if handle is NULL, the resource is loaded from the exe, if the handle is 
> a handle to a dll, the resource is loaded from the dll.
> - identifier is the numer of the resource.)
>
> //---------------------------------------------------------------------------
> wstring LoadString(int Identifier, HANDLE Resource)
> {
> wstring mystring ;
>
> UINT block = (Identifier >> 4) + 1 ;   // Compute block number.
> UINT num   =  Identifier & 0xf ;       // Compute offset into block.
>
> HRSRC hRC = FindResource(
>    Resource, // resource-module handle
>    MAKEINTRESOURCE(block) , // pointer to resource name
>    RT_STRING  // pointer to resource type
>   );  // If the function fails, the return value is NULL.
>
> HGLOBAL hgl = NULL ;
>
> if (!hRC && Resource)
>    {
>    // If not found in the dll, try the built in resource
>    hRC = FindResource(
>        NULL, // resource-module handle
>        MAKEINTRESOURCE(block) , // pointer to resource name
>        RT_STRING  // pointer to resource type
>        );
>    Resource = NULL ;
>    }
>
> LPWSTR str = NULL ;
>
> if (hRC)
>    {
>    hgl = LoadResource(Resource, hRC);  // If hRC is NULL, FindResource() 
> failed
>    str = (LPWSTR)LockResource(hgl);
>    }
>
> // int len = 0 ;
> if (str)
>    {
>    for (UINT i = 0; i < num; i++)
>        {
>        str += *str + 1 ;
>        }
>    mystring.assign(str + 1, *str) ;
>
>    // len = *str ;
>    }
> return mystring ;
> }
> //---------------------------------------------------------------------------
>
> Best Regards,
> Peter
> -------------------------------------------------------
> Peter Van Hove
> CD and DVD Data recovery
> Peter@Smart-Projects.net
>
> www.Smart-Projects.net
> www.IsoBuster.com
> ------------------------------------------------------- 
>
>