关于QT程序调用Fortran生成的Dll的问题，求解答！！ - 知否问答 - 万象云+社区

#include "Test00.h" #include<Windows.h> #include<qmessagebox.h> typedef int(*FUNCTIONABZERO)(int input); Test00::Test00(QWidget *parent) : QMainWindow(parent) { ui.setupUi(this); loadDll = LoadLibrary(TEXT("C:\VisualStudioWorkspace\QtStudy\Test00\Test00\TestDll.dll")); if (loadDll == NULL) { QMessageBox::warning(this, QStringLiteral("警告!"), QStringLiteral("载入库文件失败!"), QMessageBox::Yes); } } void Test00::on_startBtn_clicked() { FUNCTIONABZERO ABZERO = (FUNCTIONABZERO)GetProcAddress(loadDll,"ABZERO"); if (ABZERO==NULL) { QMessageBox::warning(this, QStringLiteral("警告！"), QStringLiteral("函数不存在!"), QMessageBox::Yes); } else { int a = ui.arg1->text().trimmed().toInt(); int result = ABZERO(a); ui.result->setText(QString::number(result)); } }

QLibrary myDLL("C:\VisualStudioWorkspace\QtStudy\Test00\Test00\TestDll.dll"); if (myDLL.load()) { QMessageBox::information(this,"OK","DLL is loaded! "); } else { QMessageBox::warning(this,"Warning","DLL load failure！"); }

include

typedef void (mysubroutine_type)(int, double, char*);

mysubroutine_type mysubroutine = nullptr; QLibrary lib("mydll.dll");

if (lib.load()) { mysubroutine = (mysubroutine_type) lib.resolve("mysubroutine_"); // 注意Fortran导出函数名可能带下划线后缀 if (mysubroutine) { int a = 10; double b; char c[256]; mysubroutine(a, &b, c); // ...处理返回结果... } else { qDebug() << "Failed to resolve function"; } } else { qDebug() << "Failed to load library"; } ``` 请注意，实际的函数名称可能会因为编译器的不同而有所变化（例如，GFortran会在函数名后添加下划线和额外的字符）。你可能需要查看编译生成的DLL的导出表以确定正确的函数名称。另外，确保Fortran编译器与Qt使用的C++编译器兼容，避免因ABI不匹配导致的问题。

回答动态