[SOLVED] Small Unicode Problem with Filenames

[Gizmo]

I have a Unicode problem.

A text file whose name contains Chinese chars is supposed to be "made friendly" on English language systems with :

filename := UTF8ToSys(OpenDialog1.Filename);.

Trouble is : ShowMessage(Filename); 
returns
"C:\temp\???.txt" for the selected file.

Any ideas?

[hinst]

what if ShowMessage expects UTF-8 string, not "sys" string
I believe all routines in LCL work with UTF-8 strings

[Gizmo]

Pic says a thousand words...

Have tried casting the variables as widestring but same error.

[typo]

Try:

Code: [Select]

ShowMessage(AnsiToUTF8(FileName));

or

Code: [Select]

ShowMessage(AnsiToUTF8(OpenDialog.FileName));

Why do you convert it to Sys?

[Gizmo]

Hi Typo

We're getting there...

No change if I try :

Code: [Select]

filename := UTF8ToSys(OpenDialog1.Filename);
      ShowMessage(AnsiToUTF8(Filename));     

No change if I try

Code: [Select]


filename := UTF8ToSys(OpenDialog1.Filename);
      ShowMessage(UTF8ToAnsi(Filename)); 

I do get a Unicode filename in SHowMessage if I do this:

Code: [Select]

filename := AnsiToUTF8(OpenDialog1.Filename);
      ShowMessage(UTF8ToAnsi(Filename));
if FileExists(UTF8ToAnsi(filename)) then
       begin // this throws an error

but my program says the file does not exists or is invalid.

[typo]

See this:

Code: [Select]

var
  fname :string;
begin
  fname := '串.txt';
  if FileExistsUTF8(fname) then  // uses FileUtil
    ShowMessage('File ' + fname + ' exists.');
end;                             

This works fine if the file exists.

[engkin]

It seems to me that OpenDialog1.Filename is already a UTF8 encoded string, or so I assume based on the source code:

854    class function TWin32WSOpenDialog.GetFileName(ShellItem: IShellItem): String;
855    var
856    FilePath: LPWStr;
857    begin
858    if Succeeded(ShellItem.GetDisplayName(SIGDN(SIGDN_FILESYSPATH), @FilePath)) then
859    begin
860    Result := UTF16ToUTF8(WideString(FilePath));
861    CoTaskMemFree(FilePath);
862    end
863    else
864    Result := '';
865    end;

[Gizmo]

Superb Typo...thank you

For others:

Code: [Select]

filename := (OpenDialog1.Filename);
UTF8ToAnsi(Filename);
if FileExistsUTF8(filename) then
     


[engkin]

For others:

Code: [Select]

filename := (OpenDialog1.Filename);
UTF8ToAnsi(Filename);
if FileExistsUTF8(filename) then
     


You are not using what UTF8ToAnsi returns. So your code is equivalent to:

Code: [Select]

filename := OpenDialog1.Filename;
if FileExistsUTF8(filename) then


[typo]

As engkin says, no need to convert OpenDialog.FileName.