iOSでテンポラリフォルダに日本語のファイル名を保存できない。 (ID:150776)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

DelphiのFMXの開発を行っております。

インターネット上のファイルをTNetHTTPRequest.GetメソッドでMemoryStreamに取得し、
ローカルストレージのテンポラリフォルダにファイル名を日本語にして保存していますが、
保存したファイルをブラウザで開こうとすると「指定されたファイルが見つかりません」
というエラーダイアログが表示されます。TNetHTTPRequest.Getでエラーは起きていません。
ファイル名を英数字にした場合は、問題なくブラウザで表示できます。

どなたか原因が分かる方おられませんでしょうか？

【バージョン】
RAD Studio 11 Alexandria
Embarcadero® Delphi 11.0 バージョン 28.0.42600.6491

【ソース】

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls,
  System.Net.HttpClientComponent,System.IOUtils, System.Net.URLClient,
  System.Net.HttpClient,
  FMX.WebBrowser
  ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    NetHTTPClient1: TNetHTTPClient;
    NetHTTPRequest1: TNetHTTPRequest;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { private 宣言 }
  public
    { public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
  LFileName: string;
  LResponseContent: TMemoryStream;
  App: Pointer;
begin
  LResponseContent := TMemoryStream.Create;
  try

NetHTTPRequest1.Get('https://www5.cao.go.jp/keizai-shimon/kaigi/minutes/2023/0124/gijiyoushi.pdf', LResponseContent);

LFileName := TPath.Combine(TPath.GetTempPath, '資料.pdf');
    LResponseContent.SaveToFile(LFileName);

WebBrowser1.URL := 'file://' + LFileName;

finally
    LResponseContent.Free;
  end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る