【unigui】文件上传

weixin_31098003

已于 2024-02-06 15:44:49 修改

阅读量172

点赞数 1

文章标签： javascript 开发语言 ecmascript

于 2024-02-06 15:40:05 首次发布

本文链接：https://blog.csdn.net/weixin_31098003/article/details/136057924

版权

//单文件上传
procedure TMainForm.UniBitBtn5Click(Sender: TObject);
begin
    UniFileUpload2.Execute;
end;

procedure TMainForm.UniFileUpload2Completed(Sender: TObject;
  AStream: TFileStream);
var
  DestName : string;
  DestFolder : string;
begin
    DestFolder:=ExtractFileDir(ParamStr(0))+'\UploadFolder\';   //要在与exe同下新建一个UploadFolder文件夹
    if not DirectoryExists(DestFolder) then  ForceDirectories(DestFolder);

    DestName:=DestFolder+ExtractFileName(UniFileUpload2.FileName);
    if CopyFile(PChar(AStream.FileName), PChar(DestName), False) then
    begin
          ShowMessage('上传成功！');
    end
    else
    begin
          ShowMessage('上传失败！');
          exit;
    end;

end;

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

    DestFolder:=ExtractFileDir(ParamStr(0))+'\UploadFolder\';   //要在与exe同下新建一个UploadFolder文件夹
    if not DirectoryExists(DestFolder) then  ForceDirectories(DestFolder);

    DestName:=DestFolder+ExtractFileName(UniFileUploadButton1.FileName);
    if CopyFile(PChar(AStream.FileName), PChar(DestName), False) then
    begin
          ShowMessage('File: '+UniFileUploadButton1.FileName+' Uploaded to folder: '+DestFolder);
    end
    else
    begin
          ShowMessage('上传失败！')
    end;


end;

//多文件上传

procedure TMainForm.UniFileUpload1MultiCompleted(Sender: TObject;
  Files: TUniFileInfoArray);
var
  DestName : string;
  DestFolder : string;
  fromFile : string;
  destFile : string;
  i : Integer;
begin
    DestFolder:=ExtractFileDir(ParamStr(0))+'\MultiUpload\';   //要在与exe同下新建一个UploadFolder文件夹

    if not DirectoryExists(DestFolder) then  ForceDirectories(DestFolder);
    for i :=0 to High(files) do
    begin
    fromFile:=Files[i].Stream.FileName;
    DestName:=DestFolder+ExtractFileName(files[i].FileName);  //将 文件 保存到UploadFolder文件夹，先要创建这个UploadFolder文件夹
      if not CopyFile(PChar(fromFile), PChar(DestName), False) then               //FALSE覆盖
        begin
               ShowMessage('上传失败！');
               Exit;  //退出函数
        end;
    end;

    ShowMessage('上传成功！');

end;