zoukankan      html  css  js  c++  java
  • uniGUI之上传文件UniFileUploadButton(26)

    TUniFileUploadButton主要属性:

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

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

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

    TUniFileUploadButton控件 支持多文件批量上传! 

    procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;  AStream: TFileStream);
    var
      i:integer;
    begin
      UniFileUploadButton1.MultipleFiles:=True;//多选 模式  
      UniFileUploadButton1.MaxFiles:=4;         //最大文件数
             for I := 0 to UniFileUploadButton1.MaxFiles-1 do  begin
              caption:= UniFileUploadButton1.Files[i].FileName ;
             end;
    end;

    如果文件数超过MaxFiles


     事件: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://blog.csdn.net/dlboy2018/article/details/105284722

  • 相关阅读:
    linux下文件编码转换
    linux下打开文件数
    从hive0.7.1升级到hive0.8.1
    hive使用过程中碰到的问题
    JVM和GC
    代码生成器开发设计
    开源代码生成器:SmartCode [转]
    byte与其他类型的转换
    测试版天思.net代码生成器
    [源码试]写xml的解析器
  • 原文地址:https://www.cnblogs.com/tulater/p/12291051.html
Copyright © 2011-2022 走看看