1

我在尝试返回对象时遇到了一点麻烦（我在返回类时也遇到了问题，但这不是问题的重点，我只是在解释，因为您可能会在代码中看到注释错误）。

该代码的目的是返回一个 TMemo 以与现有对象相等，如下所示：

Memo1 = CriptLibDll::CriptLib::Encriptar(anyString, anyString, Memo1)

以下是文件：

脚本库.h：

#ifndef CriptLibDllH
#define CriptLibDllH

#ifdef CRIPTNSDLL_EXPORTS
#define CRIPTLIBDLL_API __declspec(dllexport)
#else
#define CRIPTLIBDLL_API __declspec(dllimport)
#endif

#ifdef __cplusplus

#include <fmx.h>
#include <System.Classes.hpp>
#include <string.h>
#include <FMX.Memo.hpp>

extern "C" {
#endif

    CRIPTLIBDLL_API TMemo* Cript_BasicoM(String Original, String Chave, TMemo* Memo);
//  CRIPTLIBDLL_API TStringList Cript_BasicoL(String Original, String Chave, TSringList Lista);
    CRIPTLIBDLL_API String Cript_BasicoS(String Original, String Chave, String Linha);

#ifdef __cplusplus
}

namespace CriptLib
{
    class Encriptar
    {
    public:
        TMemo* Subst(String Original, String Chave, TMemo* Memo) { return Cript_BasicoM(Original, Chave, Memo); }
//      static TStringList Subst(String Original, String Chave, TSringList Lista) { return Cript_BasicoL(Original, Chave, Lista); }
        String Subst(String Original, String Chave, String Linha) { return Cript_BasicoS(Original, Chave, Linha); }
    };
}
#endif

#endif

脚本库.cpp：

#define CRIPTNSDLL_EXPORTS

#include "CriptLib.h"

#include <fmx.h>
#include <FMX.Memo.hpp>
#include <System.Classes.hpp>
#include <string.h>

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

TMemo* Cript_BasicoM(String Original, String Chave, TMemo* Memo){

    TMemo* Encriptado = Memo;

    if (Original.Length() != Chave.Length()) {
        throw Exception (L"O tamanho das palaras chave e original não podem ser diferentes");
    }

    String Linha = NULL;

    for (int i = 0; i < Original.Length(); i++) {
        for (int k = 0; k < Encriptado->Lines->Count; k++) {
            Linha = Encriptado->Lines->Strings[k];
            for (int l = 0; l < Linha.Length(); l++) {
                if (Linha[l] == Original[i]) Linha[l] = Chave [i];
            }
            Encriptado->Lines->Strings[k] = Linha;
        }
    }

    Encriptado->Lines->Add(Original);
    Encriptado->Lines->Add("CriptB");

    return Encriptado;
}

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

/*TStringList Cript_BasicoL (String Original, String Chave, TStringList Lista){

    TStringList* Encriptado = new TStringList;
    Encriptado->Strings = Lista->Strings;

    if (Original.Length() != Chave.Length()) {
        throw Exception (L"O tamanho das palaras chave e original não podem ser diferentes");
    }

    String Linha = NULL;

    for (int i = 0; i < Original.Length(); i++) {
        for (int k = 0; k < Encriptado->Count; k++) {
            Linha = Encriptado->Strings[k];
            for (int l = 0; l < Linha.Length(); l++) {
                if (Linha[l] == Original[i]) Linha[l] = Chave [i];
            }
            Encriptado->Strings[k] = Linha;
        }
    }

    Encriptado->Add(Original);
    Encriptado->Add("CriptB");

    return Encriptado;
} */

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

String Cript_BasicoS (String Original, String Chave, String Linha){

    String Encriptado = Linha;

    if (Original.Length() != Chave.Length()) {
        throw Exception (L"O tamanho das palaras chave e original não podem ser diferentes");
    }

    for (int i = 0; i < Original.Length(); i++) {
        for (int l = 0; l < Encriptado.Length(); l++) {
            if (Encriptado[l] == Original[i]) Encriptado[l] = Chave [i];
        }
    }

    return Encriptado;
}
//---------------------------------------------------------------------------

到目前为止我遇到的错误：

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Internal::Strhlpr::UnicodeFree(System::UnicodeString&)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\ VCLE.LIB|ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Syncobjs::TInterlocked::Increment(int&)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\VCLE.LIB |ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Internal::Strhlpr::UnicodeAssign(System::UnicodeString&, System::UnicodeString&)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB \WIN32\DEBUG\VCLE.LIB|ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Internal::Strhlpr::UnicodeSetLength(System::UnicodeString&, int)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\调试\VCLE.LIB|ustring

[ilink32 错误] 错误：从 C:\USERS\USER\DOCUMENTS\DESENVOLVIMENTO BASE\TT2\WIN32\DEBUG\CRIPTLIB.OBJ 引用的无法解析的外部 'System::Sysutils::Exception::'

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Sysutils::Exception::Exception(System::UnicodeString)' 从 C:\USERS\USER\DOCUMENTS\DESENVOLVIMENTO BASE\TT2\WIN32\DEBUG\CRIPTLIB.OBJ 引用

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Sysutils::Exception::~Exception()' 引用自 C:\USERS\USER\DOCUMENTS\DESENVOLVIMENTO BASE\TT2\WIN32\DEBUG\CRIPTLIB.OBJ

[ilink32 错误] 错误：未解析的外部 '__fastcall System::TObject::~TObject()' 引用自 C:\USERS\USER\DOCUMENTS\DESENVOLVIMENTO BASE\TT2\WIN32\DEBUG\CRIPTLIB.OBJ

[ilink32 错误] 错误：未解析的外部 System::Sysconst::_SRangeError' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\VCLE.LIB|ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::LoadResString(System::TResStringRec *)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\VCLE.LIB|syssupp

[ilink32 错误] 错误：未解析的外部 'System::Sysutils::ERangeError::' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\VCLE.LIB|ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::UniqueString(System::UnicodeString&)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB\WIN32\DEBUG\VCLE.LIB|ustring

[ilink32 错误] 错误：未解析的外部 '__fastcall System::Internal::Strhlpr::UnicodeFromPChar(System::UnicodeString&,char *, bool)' 引用自 C:\PROGRAM FILES(X86)\EMBARCADERO\STUDIO\15.0\LIB \WIN32\DEBUG\VCLE.LIB|ustring

[ilink32 错误] 错误：无法执行链接

用于（尝试）构建此项目的参考：

如何在 C++ 中“返回一个对象”？

C++ 通过引用返回一个类对象

在 DLL 中填充 TStringList（不幸的是 Delphi）

从现在开始，非常感谢

4

0 回答 0