编译 C++Builder 6 项目时出现“未解决的外部”错误

分类：编程问答

如何解决编译 C++Builder 6 项目时出现“未解决的外部”错误

我在编译 C++Builder 6 线程项目时遇到一些错误。我不知道如何修复它们。

Unit1.cpp：

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

using namespace std;

int i1 = 0,i2 = 0;
T1 *Thread1,*Thread2;
bool Term1,Term2;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}

void __fastcall T1::Execute()
{
    do
        Synchronize (UpdateTimer);
    while (!Terminated);
}
//-----------------------------------------------
void __fastcall T1::UpdateTimer()
{
    Timer->Enabled = !Terminated;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ComboBox1->ItemIndex = 3;
    ComboBox2->ItemIndex = 3;
    Thread1 = new T1(false);
    Thread1->Timer = Timer1;
    Thread1->FreeOnTerminate = true;
    Term1 = false;
    Thread2 = new T1(true);
    Thread2->Timer = Timer2;
    Thread2->FreeOnTerminate = true;
    Term2 = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    i1++;
    Label1->Caption = i1;
    Timer1->Enabled = false;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
    i2++;
    Label2->Caption = i2;
    Timer2->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRes1Click(TObject *Sender)
{
    if (!Term1)
        Thread1->Resume();
    else ShowMessage("Ïîòîê óæå çàâåðøåí");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRes2Click(TObject *Sender)
{
    if (!Term2)
        Thread2->Resume();
    else ShowMessage("Ïîòîê óæå çàâåðøåí");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BTerm1Click(TObject *Sender)
{
    Thread1->Terminate();
    Term1 = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BTerm2Click(TObject *Sender)
{
    Thread2->Terminate();
    Term2 = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BSuspend1Click(TObject *Sender)
{
    if (!Term1)
        Thread1->Suspend();
    else ShowMessage("Ïîòîê óæå çàâåðøåí");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BSuspend2Click(TObject *Sender)
{
    if (!Term2)
        Thread2->Suspend();
    else ShowMessage("Ïîòîê óæå çàâåðøåí");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BSyncClick(TObject *Sender)
{
    if (Term1 || Term2)
        ShowMessage("Ïîòîê óæå çàâåðøåí");
    else
    {
        if (!Thread1->Suspended)
            Thread1->Suspend();
        if (!Thread2->Suspended)
            Thread2->Suspend();
        Timer1->Enabled = false;
        Timer2->Enabled = false;
        i1 = 0;
        i2 = 0;
        Thread1->Resume();
        Thread2->Resume();
    }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    if (Term1)
        ShowMessage("Ïîòîê óæå çàâåðøåí");
    else
        switch (ComboBox1->ItemIndex)
        {
            case 0: Thread1->Priority = tpIdle;          break;
            case 1: Thread1->Priority = tpLowest;        break;
            case 2: Thread1->Priority = tpLower;         break;
            case 3: Thread1->Priority = tpNormal;        break;
            case 4: Thread1->Priority = tpHigher;        break;
            case 5: Thread1->Priority = tpHighest;       break;
            case 6: Thread1->Priority = tpTimeCritical;  break;
        }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{
    if (Term2)
        ShowMessage("Ïîòîê óæå çàâåðøåí");
    else
        switch (ComboBox2->ItemIndex)
        {
            case 0: Thread2->Priority = tpIdle;          break;
            case 1: Thread2->Priority = tpLowest;        break;
            case 2: Thread2->Priority = tpLower;         break;
            case 3: Thread2->Priority = tpNormal;        break;
            case 4: Thread2->Priority = tpHigher;        break;
            case 5: Thread2->Priority = tpHighest;       break;
            case 6: Thread2->Priority = tpTimeCritical;  break;
        }
}
//---------------------------------------------------------------------------

Uni1.h

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TGroupBox *GroupBox1;
    TGroupBox *GroupBox2;
    TLabel *Label1;
    TButton *BRes1;
    TButton *BSuspend1;
    TButton *BTerm1;
    TLabel *Label2;
    TButton *BRes2;
    TButton *BSuspend2;
    TButton *BTerm2;
    TComboBox *ComboBox1;
    TComboBox *ComboBox2;
    TButton *BSync;
    TTimer *Timer1;
    TTimer *Timer2;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Timer1Timer(TObject *Sender);
    void __fastcall Timer2Timer(TObject *Sender);
    void __fastcall BRes1Click(TObject *Sender);
    void __fastcall BRes2Click(TObject *Sender);
    void __fastcall BTerm1Click(TObject *Sender);
    void __fastcall BTerm2Click(TObject *Sender);
    void __fastcall BSuspend1Click(TObject *Sender);
    void __fastcall BSuspend2Click(TObject *Sender);
    void __fastcall BSyncClick(TObject *Sender);
    void __fastcall ComboBox1Change(TObject *Sender);
    void __fastcall ComboBox2Change(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};

class T1 : public TThread
{
private:
    void _fastcall UpdateTimer();
protected:
    void _fastcall Execute();
public:
    __fastcall T1(bool CreateSuspended);
    TTimer *Timer;
};

//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

错误：

[Linker Error] Unresolved external 't1::' referenced from C:\USERS\ALEXEY\DESKTOP\CCC\UNIT1.OBJ
[Linker Error] Unresolved external '__fastcall T1::T1(bool)' referenced from C:\USERS\ALEXEY\DESKTOP\CCC\UNIT1.OBJ

解决方法

您已经声明了一个类 T1，其中声明了一个构造函数，但您实际上并没有实现该构造函数。这就是链接器所抱怨的。

您需要将该实现添加到您的 .cpp 文件中，例如：

__fastcall T1::T1(bool CreateSuspended)
    : TThread(CreateSuspended)
{
    FreeOnTerminate = true; // <-- this should be moved in here
}

这将解决链接器错误。

话虽如此，您的代码存在一些设计缺陷。

您正在使用 Thread1 创建 CreateSuspended=false 对象，这允许它在构造函数完成后立即开始运行。但是在构造函数退出之前，您不会分配其 Timer 成员。因此线程可以在分配 Timer 之前开始运行。这在您的示例中“有效”的唯一原因是您使用 TThread::Synchronize() 直到 T1::UpdateTimer() 1 分配了 {{1} } 成员并退出

1：顺便说一句，您根本不应该在 C++ 中使用该事件，因为它会导致未定义行为。改用 Form 的构造函数。

但这不是一个值得依赖的好设计。由于您的线程类依赖于外部 TForm1::FormCreate() 对象，您应该：

  • 用 Timer 创建 TTimer 对象，然后在完全初始化其成员后 Thread1 该线程。这就是您对 CreateSuspended=true 对象所做的。

  • 将所需的 Resume() 对象指针传递给每个线程的构造函数，例如：

Thread2

此外，您为两个线程都设置了 TTimer，但是您没有为每个线程分配一个 class T1 : public TThread { private: TTimer *Timer; void _fastcall UpdateTimer(); protected: void _fastcall Execute(); public: __fastcall T1(bool CreateSuspended,TTimer *ATimer); }; ... __fastcall T1::T1(bool CreateSuspended,TTimer *ATimer) : TThread(CreateSuspended),Timer(ATimer) { FreeOnTerminate = true; } ... Thread1 = new T1(false,Timer1); Thread2 = new T1(true,Timer2); 事件处理程序，因此您无法确定线程在何时真正有效您尝试在按钮 FreeOnTerminate=true 事件处理程序中访问它们。如果线程因任何原因终止，包括意外崩溃，那么您将访问悬空指针。

此外，您不应出于任何原因从该线程自己的 OnTerminate 方法之外OnClick 运行正在运行的线程。您不知道暂停时线程的状态。它可能（在这种情况下很可能会）在 Suspend() 调用的中间，这可能导致等待挂起的 Execute() 完成其工作的死锁。如果您想暂停工作线程，请改用单独的标志，甚至是 Synchronize()，线程可以在安全且适当的情况下定期检查该标志。

最后，在工作线程的紧密循环中调用 Synchronize()，正如您所做的那样，是对工作线程的完全浪费，因为 ALL它的大部分工作仅在主 UI 线程中执行。你也可以完全摆脱你的 TEvent 类。使用 TThread::Synchronize() 或 TThread 循环、TTimer 事件处理程序或 PostMessage() 事件处理程序等就足够了。有许多不同的方法来解决这个问题。

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

导入项目后报错问题
依赖报错 idea导入项目后依赖报错，解决方案：https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错：更换其他版本 无法下载依赖可参考：https://blog.csdn.net/weixin_42628809/a
idea不能识别yaml文件
使用mybatis plus常见错误
错误1：代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
gradle常见问题与错误
错误1：gradle项目控制台输出为乱码 # 解决方案：https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
Mybatis Plus传入参数0不起作用
错误还原：在查询的过程中，传入的workType为0时，该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
linux中make编译源码包失败
报错如下，gcc版本太低 ^ server.c:5346:31: 错误：‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
微服务启动错误：Command line is too long. Shorten command line for
解决方案1 1、改项目中.idea/workspace.xml配置文件，增加dynamic.classpath参数 2、搜索PropertiesComponent，添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
vue常见错误
删除根组件app.vue中的默认代码后报错：Module Error (from ./node_modules/eslint-loader/index.js): 解决方案：关闭ESlint代码检测，在项目根目录创建vue.config.js，在文件中添加 module.exports = { lin
spark常见错误
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
matplotlib报错：AttributeError: module 'backend_interagg' has no attribute 'FigureCanvas'. Did you mean: 'FigureCanvasAgg'?
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
gitlab登录失败，报错：This challenge page was accidentally cached by an intermediary and is no longer available.
设置时间 控制面板
后端开发常见错误
错误1：Request method ‘DELETE‘ not supported 错误还原：controller层有一个接口，访问该接口时报错：Request method ‘DELETE‘ not supported 错误原因：没有接收到前端传入的参数，修改为如下 参考 错误2：cannot r
docker常见错误
错误1：启动docker镜像时报错：Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法：重启docker -&gt; systemctl r
idea常见错误
错误1：private field ‘xxx‘ is never assigned 按Altʾnter快捷键，选择第2项 参考：https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2：启动时报错，不能找到主启动类 #
pip安装依赖失败
报错如下，通过源不能下载，最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
maven常见错误
错误1：maven打包报错 错误还原：使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
cloud项目中常见错误
错误1：服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
springboot常见错误
错误1：运行项目后报如下错误 解决方案 报错2：Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案：在pom.
springmvc拦截器中使用redisTemplate报空指针异常
参考 错误原因 过滤器或拦截器在生效时，redisTemplate还没有注入 解决方案：在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
vite报错：npm ERR! command C:WINDOWSsystem32cmd.exe /d /s /c C:UsersychenAppDataLocalTempnpx-dde1c848.cmd
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot