uniGUI之上传文件UniFileUploadButton(26)

2020-02-10 16:02:00来源:博客园 阅读 ()

新老客户大回馈,云服务器低至5折

uniGUI之上传文件UniFileUploadButton(26)

TUniFileUploadButton主要属性:

Filter: 文件类型过滤,有图片image/*   audio/* video/*三种过滤

MaxAllowedSize: 设置文件最大上传尺寸;

Message标题以及消息文本,可翻译成中文

TUniFileUploadButton控件目前最大的问题是不支持文件批量上传! 

事件:OnCompleted(Sender: TObject; AStream: TFileStream)

procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
var
  DestName : string;
  DestFolder : string;
begin
  //将 文件 加载到  UniImage1里
    UniImage1.Picture.LoadFromFile(AStream.FileName);
    Caption:='File Name: '+UniFileUploadButton1.FileName;

//将 文件 保存到UploadFolder文件夹,先要创建这个UploadFolder文件夹
    DestFolder:=UniServerModule.StartPath+'UploadFolder\';   //要在与exe同下新建一个UploadFolder文件夹
    DestName:=DestFolder+ExtractFileName(UniFileUploadButton1.FileName);
    CopyFile(PChar(AStream.FileName), PChar(DestName), False);
    ShowMessage('File: '+UniFileUploadButton1.FileName+' Uploaded to folder: '+DestFolder);

end;

 


原文链接:https://www.cnblogs.com/tulater/p/12291051.html
如有疑问请与原作者联系

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:uniGUI之UniSyntaxEdit(24)

下一篇:uniGUI之UniPopupMenu(27)