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;