unigui 保存字符串到文件 并下载 、UniFileUpload1选择本地文件

保存字符串到文件 并下载
procedure SaveStrToFile(const Content, FileName: string);
var
  Stream: TStringStream;
begin
  Stream := TStringStream.Create(Content);
  UniSession.SendStream(Stream, FileName);
  Stream.Free;
end;
//选择本地文件
UniFileUpload1.Execute
procedure TFrame_Interface.UniFileUpload1Completed(Sender: TObject; AStream: TFileStream);
begin
   //对流操作
end;