Fortran Coder

查看: 114|回复: 3

[混编] 关于qt调用Fortran的dll程序设置进度条的问题

[复制链接]

12

帖子

5

主题

0

精华

入门

F 币
76 元
贡献
34 点
发表于 2019-9-4 19:38:08 | 显示全部楼层 |阅读模式
   各位老师,我现在遇到一个问题,就是我调用Fortran的dll需要运行时间过长,所以我想设置一个进度条来表示dll运行的进度,当调用外部程序结束时,进度条正好显示百分百,我应该如何在Fortran程序中建立函数来把实时的进度传递到qt中呢?请各位老师指教。
回复

使用道具 举报

738

帖子

0

主题

0

精华

宗师

F 币
874 元
贡献
485 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2019-9-5 09:03:35 | 显示全部楼层
[C++] 纯文本查看 复制代码
int setProgress(int i){
  ui->progress->setValue(i);
}

int some(){
  fortran_func( ... , ... , setProgress )
}

[Fortran] 纯文本查看 复制代码
Subroutine Fortran_Func( ... , ... , callBack )
  do i = 1 , 1000
       .... 
       call callBack( i )
  end do
End Subroutine Fortran_Func

12

帖子

5

主题

0

精华

入门

F 币
76 元
贡献
34 点
 楼主| 发表于 2019-9-6 11:02:29 | 显示全部楼层
本帖最后由 紫雪封尘 于 2019-9-6 11:05 编辑

您好,您的意思是设置回调函数,我做了测试,但是由于对c++不很熟悉,所以我写的语句遇到了错误,请老师指教。
void Thread::progress(int a)
{
    emit UpdateSignal(a);
}

void Widget::UpdateSlot(int num)
{   
ui->progressBar->setValue(num);}
void Thread::run()
{
     typedef void(*setprogress)(int) ;
     typedef void(*QTSEG)(setprogress );  
     QLibrary dll("Dllsey_information.dll");
     if(dll.load())
     {
       QTSEG in=(QTSEG)dll.resolve("PROGRESS");
     in(progress );//此处报错,说是由于非静态函数的关系,我不知如何修改,请指教
     }
   
}





738

帖子

0

主题

0

精华

宗师

F 币
874 元
贡献
485 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2019-9-6 11:55:25 | 显示全部楼层
[C++] 纯文本查看 复制代码
QDialog *pThis;
void progress(int a){
    pThis->ui->progress->setValue(a);
}

void QDialog::on_okBtn_clicked(){
  pThis = this;
  thread->start();
}

void Thread::run(){
  in(progress);
}
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-11-20 01:48

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表