(38)uniGUI for CBuilder UniFileUpload上传多个文件

(中行雷威2020.4.3)

(同一个世界,同一个梦想,交流学习C++Builder and Delphi XE10,传承c++builder and Delphi的魅力!欢迎各地朋友加入我的QQ群484979943,进群密码“BCB”,同时也请将该群号广为宣传,希望能够广集各方高手,共同进步。如需下载开发工具及源代码请加入我的QQ群。)

【阅读倡议】

1、有问题请留言;

2、没问题请点赞;

3、看连载请加群;

4、下源码请加群;

【开发工具】

1、C++Builder and Delphi 10.3.3

2、FMSoft_uniGUI_Complete_Professional_1.90.0.1525(正版)

本人主笔的国内第一本uniGUI教学案例代码已诞生,分为cbuilder和delphi两个版本,买代码送手册,需要的朋友可以加入我的QQ技术交流群484979943给我(群主)留言。资料简介:

https://www.meipian.cn/20b86ayo?share_from=others&user_id=64168117&uuid=a8a75af8c0cc31e6a21b8a79a2b07398&share_depth=1&first_share_uid=64168117&utm_medium=meipian_android&share_user_mpuuid=94b70e99e8b6986c71b270a9883befb2
 
众所周知,UniFileUpload能够上传文件,支持单文件上传和多文件上传两种模式,它的用法也很简单。在主窗体上放一个UniFileUpload控件,配置一下它的属性,然后添加一个按钮调用它的事件即可。这个控件以前是在传送完毕后判断文件大小限制,不够科学,现在的版本已经更正,能够在上传前判断文件大小,上传500M大小的文件速度很快,再大的文件可能不支持,需要实际测试。

一、属性配置

MultiFiles是是否支持多文件上传的开关属性,如果为false则不支持多文件上传,需要在UniFileUpload的OnCompleted事件里添加上传文件处理代码,需要屏蔽OnMultiCompleted事件中的代码,反之支持多文件上传,需要在UniFileUpload的OnCompleted事件屏蔽处理代码,需要在OnMultiCompleted事件中添加处理代码。

二、调用文件上传

void __fastcall TMainForm::UniToolButton5Click(TObject *Sender)
{
UniFileUpload1->Execute();
}

三、单文件上传事件

这是一个我写的聊天系统传送文件的代码,可参照学习,此时UniFileUpload多文件支持属性要关闭,在OnCompleted里添加代码。

void __fastcall TMainForm::UniFileUpload1Completed(TObject *Sender, TFileStream *AStream)

{
//上传单个文件
String tmpStr1,tmpStr2,tmpStr;
fromFile=AStream->FileName.c_str();
shortPath="中转文件\\"+UniMainModule()->loginUserNo+UniMainModule()->loginUserName;
destPath=UniServerModule()->FilesFolder+shortPath ;
destFile=destPath+"\\"+ExtractFileName(UniFileUpload1->FileName);

//创建目录
if(!DirectoryExists(destPath))
    {
    ForceDirectories(destPath.c_str());
    }
//拷贝文件
if(0==CopyFile(fromFile.c_str(),destFile.c_str(), False)) //FALSE覆盖
    {
    ShowMessageN("发送失败!");
    return ;
    }
else
    {
    //添加记录
    UniQuery1->Close();
    UniQuery1->SQL->Clear();
    mySql="insert into chat_info values(sysdate,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11)";
    UniQuery1->SQL->Add(mySql);
    //UniQuery1->ParamByName("p1")->Value=Now();
    UniQuery1->ParamByName("p2")->Value=AESEncryptStrToHex(UniMainModule()->loginUserName+"给你发送了一个文件", UniMainModule()->aesKey, TEncoding::ANSI, TEncoding::UTF8,
      kb128, UniMainModule()->aesKey, pmZeroPadding, false,rlCRLF, rlCRLF);
    UniQuery1->ParamByName("p3")->Value=destPath+"\\"+ExtractFileName(UniFileUpload1->FileName);
    UniQuery1->ParamByName("p4")->Value=toUserType;
    UniQuery1->ParamByName("p5")->Value=UniMainModule()->loginUserNo;
    UniQuery1->ParamByName("p6")->Value=UniMainModule()->loginUserName;
    UniQuery1->ParamByName("p7")->Value=toUserNo;
    UniQuery1->ParamByName("p8")->Value=toUserName;
    UniQuery1->ParamByName("p9")->Value="未读";
    UniQuery1->ParamByName("p10")->Value=UniSession->RemoteIP;
    UniQuery1->ParamByName("p11")->Value="未提醒";
    UniQuery1->ExecSQL();
    if(UniQuery1->RowsAffected>0)
        {
        tmpStr1=FormatDateTime("yyyyMMdd hh:nn:ss",Now());
        tmpStr2=UniMainModule()->loginUserName;
        tmpStr=tmpStr1+"【"+tmpStr2+"】";
        UniHTMLMemo1->Lines->Add("<p>"+tmpStr);
        UniHTMLMemo1->Lines->Add("<p>你给["+toUserName+"]发送了一个文件");
        UniHTMLMemo1->Lines->Add("<a href=\""+destPath+"/"+ExtractFileName(UniFileUpload1->FileName)+"\" target=\"_blank\">"+ExtractFileName(UniFileUpload1->FileName)+"</a>");
        UniHTMLMemo3->Lines->Clear();

//        UniMemo1->Lines->Add("<p>"+tmpStr);
//        UniMemo1->Lines->Add("<p>你给["+toUserName+"]发送了一个文件");
//        UniMemo1->Lines->Add("<a href=\""+destPath+"/"+ExtractFileName(UniFileUpload1->FileName)+"\" target=\"_blank\">"+ExtractFileName(UniFileUpload1->FileName)+"</a>");
//        UniHTMLMemo3->Lines->Clear();

        //ShowMessageN("发送成功!");
        }
    else
        {
        try
            {
            DeleteFile(fromFile.c_str());
            //ShowMessageN("删除临时文件成功!");
            }
        catch(...)
            {
            //ShowMessageN("删除临时文件失败!");
            }
        }
    }
//

}

 

 

四、多文件上传事件

这是一个我写的聊天系统传送文件的代码,可参照学习,此时UniFileUpload多文件支持属性要打开,在OnMultiCompleted里添加代码。

void __fastcall TMainForm::UniFileUpload1MultiCompleted(TObject *Sender, TUniFileInfoArray Files)

{
//上传多个文件
//String tmpFile;
String tmpStr1,tmpStr2,tmpStr;
shortPath="中转文件\\"+UniMainModule()->loginUserNo+UniMainModule()->loginUserName;
destPath=UniServerModule()->FilesFolder+shortPath ;
//创建目录
if(!DirectoryExists(destPath))
    {
    ForceDirectories(destPath.c_str());
    }

for (int i=Files.Low;i<=Files.High;i++)
    {
    fromFile=Files[i]->Stream->FileName.c_str();
    //fromFile=Files[i]->FileName.c_str();


    destFile=destPath+"\\"+Files[i]->FileName;
    UniHTMLMemo3->Lines->Add(destFile);
    UniHTMLMemo3->Lines->Add(destFile.Length());


    //拷贝文件
    if(0==CopyFile(fromFile.c_str(),destFile.c_str(), False)) //FALSE覆盖
        {
        ShowMessageN("发送失败!");
        return ;
        }
    else
        {
        //添加记录
        UniQuery1->Close();
        UniQuery1->SQL->Clear();
        mySql="insert into chat_info values(sysdate,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11)";
        UniQuery1->SQL->Add(mySql);
        //UniQuery1->ParamByName("p1")->Value=Now();
        UniQuery1->ParamByName("p2")->Value=AESEncryptStrToHex(UniMainModule()->loginUserName+"给你发送了一个文件", UniMainModule()->aesKey, TEncoding::ANSI, TEncoding::UTF8,
          kb128, UniMainModule()->aesKey, pmZeroPadding, false,rlCRLF, rlCRLF);
//        UniQuery1->ParamByName("p3")->Value=destPath+"\\"+ExtractFileName(UniFileUpload1->FileName);
        UniQuery1->ParamByName("p3")->Value=destPath+"\\"+Files[i]->FileName;
        UniQuery1->ParamByName("p4")->Value=toUserType;
        UniQuery1->ParamByName("p5")->Value=UniMainModule()->loginUserNo;
        UniQuery1->ParamByName("p6")->Value=UniMainModule()->loginUserName;
        UniQuery1->ParamByName("p7")->Value=toUserNo;
        UniQuery1->ParamByName("p8")->Value=toUserName;
        UniQuery1->ParamByName("p9")->Value="未读";
        UniQuery1->ParamByName("p10")->Value=UniSession->RemoteIP;
        UniQuery1->ParamByName("p11")->Value="未提醒";
        UniQuery1->ExecSQL();
        if(UniQuery1->RowsAffected>0)
            {
            tmpStr1=FormatDateTime("yyyyMMdd hh:nn:ss",Now());
            tmpStr2=UniMainModule()->loginUserName;
            tmpStr=tmpStr1+"【"+tmpStr2+"】";
            UniHTMLMemo1->Lines->Add("<p>"+tmpStr);
            UniHTMLMemo1->Lines->Add("<p>你给["+toUserName+"]发送了一个文件");
            UniHTMLMemo1->Lines->Add("<a href=\""+destPath+"/"+Files[i]->FileName+"\" target=\"_blank\">"+Files[i]->FileName+"</a>");
            UniHTMLMemo3->Lines->Clear();
            //ShowMessageN("发送成功!");
            }
        else
            {
            try
                {
                DeleteFile(fromFile.c_str());
                //ShowMessageN("删除临时文件成功!");
                }
            catch(...)
                {
                //ShowMessageN("删除临时文件失败!");
                }
            }
        }
    }
//
}
//---------------------------------------------------------------------------
 

  • 1
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值