保存字符串到文件 并下载
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;
unigui 保存字符串到文件 并下载 、UniFileUpload1选择本地文件
最新推荐文章于 2024-05-30 09:57:21 发布