[fpc-devel] Unicode resourcestrings

[Anton Kavalenka]

Florian Klaempfl wrote:
> Martin Schreiber schrieb:
>   
>> On Sunday 02 March 2008 18.48:01 Daniël Mantione wrote:
>>     
>>> Op Sun, 2 Mar 2008, schreef Florian Klaempfl:
>>>       
>>>>> What did I wrong?
>>>>>           
>>>> I'am not sure how this could be made working just a remark: -Fcutf8
>>>> influences _only_ the interpretation of string constants when converting
>>>> them to unicode.
>>>>         
>>> Right. Try to compile the (utf-8 encoded) file without specifying a code
>>> page, this should result in the constants ending up in the resourcestring
>>> without processing.
>>>
>>>       
>> And now the widestring constants are broken, see attachment...
>>     
>
> Did you utf-8 decode the string constants?
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
>   
Inside our projects there are lots of WIdeStrings handling.

For Delphi/Kylix we use the following dirty hack (somewhat reworked 
routine from Borland RTL):
This one is Widows implementation,
There is also linux implementation

function LoadResStringW(const pRec: PResStringRec): WideString;
var
  hInst:cardinal;
  Buffer: array [0..1023] of char;
begin
  if pRec = nil then Exit;

  if pRec^.Identifier < 64*1024 then
  begin
    hInst:=FindResourceHInstance(pRec^.Module^);
    // try wide
    if LoadStringW(hInst,pRec^.Identifier, @Buffer, SizeOf(Buffer))>0 then
      Result:=PWideChar(@Buffer)
    else // try narrow
    if LoadString(hInst,pRec^.Identifier, @Buffer, SizeOf(Buffer))>0 then
      Result:=PChar(@Buffer)
    else
      Result:='-lost-';
  end
  else
    Result := PWideChar(pRec^.Identifier);
end;

To get the wide string from resource string by its identifier, we go the 
following:

resourcestring
  sWideStringID='Some string';

var
    mw:WideString;

mw:=LoadresStringW(@sWideStringID)

Under FPC there is special implementation, but dirty hack does not work 
all the time, since there is hard to determine - where was the resource 
string
was implicitly decoded to current codepage. PRestringRec is boralnd 
specific, under FPC it is PAnsiString;

function LoadResStringW(const pRec: PResStringRec): WideString;inline;
begin
  if pRec=nil then
  Result:=''
  else
  begin
    {$ifdef LINUX}
    Result:=PAnsiString(pRec)^;
    {$else}
    {$ifdef WindowsUnicodeSupport}
    Result:=UTF8Decode(PAnsiString(pRec)^);
    {$else}
    Result:=PAnsiString(pRec)^;
    {$endif}
    {$endif}
  end;
end;
{$ENDIF} // end platform-compiler dependent string loader


Please help -
How to implement that dirty hack.


Best regards,
Anton Kavalenka
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20080303/5d770b89/attachment.html>