[英]Translate code from Delphi to C ++ Builder 10.3
There is a library for parsing .有一个用于解析的库。
I added ALXmlDoc.pas
to the project, C++Builder created ALXmlDoc.hpp
In ALXmlDoc.pas
lines 177,178:我在项目中添加了
ALXmlDoc.pas
,C++Builder 在ALXmlDoc.pas
第 177,178 行创建了ALXmlDoc.hpp
:
property Nodes [const Name: AnsiString]: TALXMLNode read GetNodeByName; default;
property Nodes [const Index: integer]: TALXMLNode read GetNodeByIndex; default;
In ALXmlDoc.hpp
:在
ALXmlDoc.hpp
:
__property TALXMLNode * Nodes [const System :: AnsiString Name] = {read = GetNodeByName / *, default */};
__property TALXMLNode * Nodes [const int Index] = {read = GetNodeByIndex};
I get an error about duplication - how to fix it?我收到有关重复的错误 - 如何解决?
In .pas
line 705在
.pas
第 705 行
property OnParseText: TAlXMLParseTextEvent read FonParseText Write FonParseText; // [added from TXMLDocument]
In ALXmlDoc.hpp
:在
ALXmlDoc.hpp
:
__property _di_TAlXMLParseTextEvent OnParseText = {read = FonParseText, write = FonParseText};
__interface TAlXMLParseTextEvent: public System :: IInterface
{
virtual void __fastcall Invoke (System :: TObject * Sender, const System :: AnsiString Path, const System :: AnsiString Str) = 0;
};
private:
_di_TAlXMLParseTextEvent FonParseText;
protected:
void __fastcall DoParseText (const System :: AnsiString Path, const System :: AnsiString Str);
In my Unit1.h
:在我的
Unit1.h
:
void __fastcall OnParseText (System :: TObject * Sender, const System :: AnsiString Path, const System :: AnsiString Str);
In my Unit1.cpp
:在我的
Unit1.cpp
:
void __fastcall TForm1 :: OnParseText (System :: TObject * Sender, const System :: AnsiString Path, const System :: AnsiString Str)
{
ShowMessage(Str);
}
// ------------------------------------------------ ---------------------------
void __fastcall TForm1 :: Button1Click (TObject * Sender)
{
TALXMLDocument * aXMLDocument = new TALXMLDocument ("root");
aXMLDocument-> OnParseText = OnParseText;
}
I get an error:我收到一个错误:
[bcc32 Error] Unit1.cpp (30): E2235 Member function must be called or its address taken
[bcc32 错误] Unit1.cpp (30): E2235 Member function 必须被调用或其地址被占用
How to declare an event?如何申报活动?
In C++, array properties can't be overloaded solely on their index type.在 C++ 中,不能仅在其索引类型上重载数组属性。 So you will have to rename one of the offending properties, there is no other option.
因此,您将不得不重命名其中一个有问题的属性,没有其他选择。 And then I would suggest you file a report with the library author asking to make the library be more friendly to C++ users.
然后我建议您向库作者提交报告,要求使库对 C++ 用户更友好。
In the Delphi code, TAlXMLParseTextEvent
is a reference to an anonymous method :在 Delphi 代码中,
TAlXMLParseTextEvent
是对匿名方法的引用:
TAlXMLParseTextEvent = reference to procedure (Sender: TObject; const Path, Str: AnsiString);
Which is why it gets translated to an __interface
on the C++ side (because anonymous methods really are implemented behind the scenes using interfaces).这就是为什么它被翻译成
__interface
端的 __interface (因为匿名方法确实是使用接口在幕后实现的)。 Delphi-style anonymous methods require extra handling in C++, as is documented on Embarcadero's DocWiki: Delphi 风格的匿名方法需要在 C++ 中进行额外处理,如 Embarcadero 的 DocWiki 中所述:
How to Handle Delphi Anonymous Methods in C++ 如何处理 C++ 中的 Delphi 匿名方法
Under the cover, Delphi implements anonymous methods types (also known as method references) via an interface that implements an
Invoke(...)
method.在幕后,Delphi 通过实现
Invoke(...)
方法的接口实现匿名方法类型(也称为方法引用)。So a method that takes a method reference parameter in Delphi is exposed to C++ as a method that takes an interface.
因此,在 Delphi 中采用方法引用参数的方法暴露给 C++ 作为采用接口的方法。
As such, your C++ code would need to do something more like this instead:因此,您的 C++ 代码将需要执行更多类似的操作:
struct TParseTextMethod
{
void operator()(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
ShowMessage(Str);
}
};
//------------------------------------------------ ---------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
// the TMethodRef functor is defined in the documentation,
// you can copy/paste it as-is into your code...
typedef TMethodRef<TAlXMLParseTextEvent,
TParseTextMethod,
void,
TObject *Sender,
const AnsiString,
const AnsiString> MyMethRef;
aXMLDocument->OnParseText = _di_TAlXMLParseTextEvent(new MyMethRef(TParseTextMethod()));
}
Or, you can streamline the functor usage a bit more by not using the TMethodRef
wrapper (see Inheritance and Interfaces and Implementing Interfaces ):或者,您可以通过不使用
TMethodRef
包装器来进一步简化仿函数的使用(请参阅Inheritance 和接口和实现接口):
class TParseTextMethod : public TCppInterfacedObject<TAlXMLParseTextEvent>
{
public:
TParseTextMethod() {}
INTFOBJECT_IMPL_IUNKNOWN(TInterfacedObject);
void __fastcall Invoke(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
ShowMessage(Str);
}
};
//------------------------------------------------ ---------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
aXMLDocument->OnParseText = _di_TAlXMLParseTextEvent(new TParseTextMethod());
}
Or, if you want to keep using your OnParseText()
method as-is, then you will have to wrap it inside a functor, eg:或者,如果您想继续按原样使用
OnParseText()
方法,则必须将其包装在仿函数中,例如:
void __fastcall TForm1::OnParseText(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
ShowMessage(Str);
}
//------------------------------------------------ ---------------------------
typedef void __fastcall (__closure *TAlXMLParseTextMethod)(TObject *Sender, const AnsiString Path, const AnsiString Str);
struct TParseTextMethod
{
TAlXMLParseTextMethod Method;
TParseTextMethod(TAlXMLParseTextMethod aMethod) : Method(aMethod) {}
void operator()(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
Method(Sender, Path, Str);
}
};
//------------------------------------------------ ---------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
typedef TMethodRef<TAlXMLParseTextEvent,
TParseTextMethod,
void,
TObject *Sender,
const AnsiString,
const AnsiString> MyMethRef;
aXMLDocument->OnParseText = _di_TAlXMLParseTextEvent(new MyMethRef(TParseTextMethod(&OnParseText)));
}
Or:或者:
void __fastcall TForm1::OnParseText(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
ShowMessage(Str);
}
//------------------------------------------------ ---------------------------
typedef void __fastcall (__closure *TAlXMLParseTextMethod)(TObject *Sender, const AnsiString Path, const AnsiString Str);
class TParseTextMethod : public TCppInterfacedObject<TAlXMLParseTextEvent>
{
public:
TAlXMLParseTextMethod Method;
TParseTextMethod(TAlXMLParseTextMethod aMethod) : Method(aMethod) {}
INTFOBJECT_IMPL_IUNKNOWN(TInterfacedObject);
void __fastcall Invoke(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
Method(Sender, Path, Str);
}
};
//------------------------------------------------ ---------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
aXMLDocument->OnParseText = _di_TAlXMLParseTextEvent(new TParseTextMethod(&OnParseText));
}
Alternatively, if you are using one of the Clang-based compilers then you can use a C++ style lambda instead of a functor:或者,如果您使用的是基于 Clang 的编译器之一,那么您可以使用C++ 样式 lambda而不是仿函数:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
aXMLDocument->OnParseText = [](TObject*, const AnsiString, const AnsiString Str) {
ShowMessage(Str);
};
}
Or:或者:
void __fastcall TForm1::OnParseText(TObject *Sender, const AnsiString Path, const AnsiString Str)
{
ShowMessage(Str);
}
//------------------------------------------------ ---------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TALXMLDocument *aXMLDocument = new TALXMLDocument("root");
aXMLDocument->OnParseText = [this](TObject *Sender, const AnsiString Path, const AnsiString Str) {
OnParseText(Sender, Path, Str);
};
}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.