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

vvt

[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

vvt

[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);
}