uniGUI之文件下载(29)

UniSession.SendFile('新建文本文档.txt'  //服务器端  文件名
                   ,'anew.txt'          //客户端 新下载 的文件名
                   );

procedure TMainForm.UniButton3Click(Sender: TObject);
var
  S : TStringStream;
begin
  S:=TStringStream.Create('Some text here....');
  try
    UniSession.SendStream(S, 'Mydoc.txt');
  finally
    S.Free;
  end;
end;