Qt自动添加资源文件

2017-09-21 19:19:11来源:CSDN作者:DreamSonGO人点击

分享
QML资源的添加,在做项目的时候我们添加一个文件,经常会忘记添加进资源编译,导致调试部署时候会出现找不到文件报错。特别是有分桌面版和机器版的工程,在桌面版明明调试好好的界面,部署进机器就是报错(我刚来公司的时候犯过这样的错)。之后我们就制作了一个脚本,自动帮我们添加资源。


脚本使用的语言是perl语言,目前我不大懂这个语言,在这里记录只为了保留和希望能帮助到需要帮助的你。


//下面是脚本内容


@all_Source_file = &find_all_file("DynavinQml", 1);
@all_Source_file2 = &find_all_file("DynavinQml//MediaPlayer", 1);
@all_Source_file3 = &find_all_file("DynavinQml//DiscPlayer", 1);
@all_Source_file4 = &find_all_file("DynavinQml//PageMenu", 1);






open(OUT, ">os.qrc") || die "can't open os.qrc:$!";
print OUT '<RCC>'; print OUT "/n";
print OUT '    <qresource prefix="/">'; print OUT "/n";
for $dir (@all_Source_file){
if (
$dir =~ /.qml/||
$dir =~ /.bmp/||
$dir =~ /.gif/||
$dir =~ /.png/
) { 
if ($dir =~ /DynavinQml//MediaPlayer///){ next; }
if ($dir =~ /DynavinQml//DiscPlayer///){ next; }
if ($dir =~ /DynavinQml//PageMenu///){ next; }


print OUT "        <file>$dir</file>/n";
}
}
print OUT '    </qresource>'; print OUT "/n";
print OUT '</RCC>';
close(OUT) || die "can't close DynavinInclude.pri:$!";


open(OUT, ">MediaRes.qrc") || die "can't open MediaRes.qrc:$!";
print OUT '<RCC>'; print OUT "/n";
print OUT '    <qresource prefix="/">'; print OUT "/n";
for $dir (@all_Source_file2){
if (
$dir =~ /.qml/||
$dir =~ /.bmp/||
$dir =~ /.gif/||
$dir =~ /.png/
) { 
print OUT "        <file>$dir</file>/n";
}
}
print OUT '    </qresource>'; print OUT "/n";
print OUT '</RCC>';
close(OUT) || die "can't close DynavinInclude.pri:$!";



open(OUT, ">DiscRes.qrc") || die "can't open DiscRes.qrc:$!";
print OUT '<RCC>'; print OUT "/n";
print OUT '    <qresource prefix="/">'; print OUT "/n";
for $dir (@all_Source_file3){
if (
$dir =~ /.qml/||
$dir =~ /.bmp/||
$dir =~ /.gif/||
$dir =~ /.png/
) { 
print OUT "        <file>$dir</file>/n";
}
}
print OUT '    </qresource>'; print OUT "/n";
print OUT '</RCC>';
close(OUT) || die "can't close DynavinInclude.pri:$!";






open(OUT, ">MenuRes.qrc") || die "can't open MenuRes.qrc:$!";
print OUT '<RCC>'; print OUT "/n";
print OUT '    <qresource prefix="/">'; print OUT "/n";
for $dir (@all_Source_file4){
if (
$dir =~ /.qml/||
$dir =~ /.bmp/||
$dir =~ /.gif/||
$dir =~ /.png/
) { 
print OUT "        <file>$dir</file>/n";
}
}
print OUT '    </qresource>'; print OUT "/n";
print OUT '</RCC>';
close(OUT) || die "can't close DynavinInclude.pri:$!";







#parameter: @_ : folder position
sub find_all_dir() {
local($Source, $l_bInit) = @_;
if ($Source =~ /.git/) { return; }
opendir(DIR,"$Source" || die "can't open this $Source");
    local @files = readdir(DIR);
    closedir(DIR);
    for $file (@files){
        next if($file=~m//.$/ || $file =~m//./.$/);
        if (-f "$Source/$file"){
            #print "$Source//$file /n";
        }
        elsif(-d "$Source/$file"){
push(@dirs, "$Source//$file");
            find_all_dir("$Source/$file", 0);
        }
    }
return @dirs;
}


#parameter: @_ : folder position
sub find_all_file() {
    local($dir, $l_bInit) = @_;
if ($l_bInit) { @files_out = (); }

if ($dir =~ /.git/) { 
#print "---------------------------------------------- $dir /n"; 
#return; 
}

opendir(DIR,"$dir" || die "can't open this $dir");
    local @files = readdir(DIR);
    closedir(DIR);
    for $file (@files){
        next if($file=~m//.$/ || $file =~m//./.$/);
        if (-f "$dir/$file"){
            # print "$dir//$file /n";
push(@files_out, "$dir//$file");
        }
        elsif(-d "$dir/$file"){
           find_all_file("$dir/$file", 0);
        }
    }
return @files_out;
}


sub bDir_IsExist_File() {
local($Source, $string) = @_;
opendir(DIR,"$Source" || die "can't open this $Source");
    local @files = readdir(DIR);
    closedir(DIR);
    for $file (@files){
        next if($file=~m//.$/ || $file =~m//./.$/);
        if (-f "$Source/$file"){
if(rindex($file, $string) == (length($file) - length($string)) ){  #$string is $file`s end string
return 1; 
}
        }
    }


return 0;
}




//脚本内容结束


@all_Source_file = &find_all_file("DynavinQml", 1);
@all_Source_file2 = &find_all_file("DynavinQml//MediaPlayer", 1);
@all_Source_file3 = &find_all_file("DynavinQml//DiscPlayer", 1);
@all_Source_file4 = &find_all_file("DynavinQml//PageMenu", 1);
上面分了四个资源文件,这个看个人需求。一个资源文件过大可能编译会出现堆内存不足(这个遇到过)
需要注意的是在工程中有对应的资源文件。


这个脚本文件命名qrc_make.pl(个人命名)

执行 perl qrc_make.pl (我是试用Git工具执行)。


最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台