2

我正在使用下面的 C++ 示例在 Delphi 中编写一个 DLL：

USERDLL_API double process_message (const char* pmessage, const void* param) 
{
    if (pmessage==NULL) { return 0; }
    if (param==NULL) { return 0; }

    if (strcmp(pmessage,"state")==0) 
    { 
        current_state *state = (current_state*) param;
        return process_state( (current_state*)param ); 
    }
}

不幸的是，我对 C++ 和指针几乎一无所知。我应该使用什么来代替 char* (PChar?) 和 void*？

function process_message (const pmessage: PChar; const param: ???): Double; export;
begin
    ???
end;

exports process_message;

对函数主体的任何帮助也将受到高度赞赏。我意识到这不是火箭科学，但是如果有人愿意为我做这件事，我不会仅仅为了转换几行而学习 C++ 的基础知识:-)

4

3 回答 3

10

RAD Studio 在线文档包括一个 Delphi 到 C++ 类型的映射 表，它可以帮助您将 C++ 代码转换为 Delphi。

Delphi type         Platform    Corresponding C++ type

Boolean (Delphi)                bool (C++)
ShortInt (Delphi)               ShortInt, signed char (C++)
SmallInt (Delphi)               short (C++)
Integer (Delphi)                int (C++)
Byte (Delphi)                   Byte (C++)
Word (Delphi)                   Word (C++)
Cardinal (Delphi)               unsigned (C++)
Int64 (Delphi)                  __int64 (C++)
UInt64 (Delphi)                 unsigned __int64 (C++)
NativeInt (Delphi)  32-bit Win   int (C++)
                    64-bit Win  __int64 (C++)
                    64-bit iOS  long (C++)
NativeUInt (Delphi) 32-bit      unsigned (C++)
                    64-bit Win  unsigned __int64 (C++)
                    64-bit iOS  unsigned long (C++)
Single (Delphi)                 float (C++)
Double (Delphi)                 double (C++)
Extended (Delphi)               Extended (C++)
Currency (Delphi)               Currency, CurrencyBase (C++)
Comp (Delphi)                   Comp, CompBase (C++)
Real (Delphi)                   double (C++)
ShortString (Delphi)            ShortString, ShortStringBase (C++)
OpenString (Delphi)             OpenString (C++)
File (Delphi)                   file (C++)
Text (Delphi)                   TextFile (C++)
ByteBool (Delphi)               ByteBool (C++)
WordBool (Delphi)               WordBool (C++)
LongBool (Delphi)               BOOL (C++)
Real48 (Delphi)                 not supported in C++
Pointer (Delphi)                void* (C++)
PWideChar (Delphi)              WideChar* (C++)
PAnsiChar (Delphi)              char* (C++)
Variant (Delphi)                defined in sysvari.h (C++)
OleVariant (Delphi)             defined in sysvari.h (C++)
LongInt (Delphi)                int (C++)
                     64-bit iOS long (C++)
LongWord (Delphi)               unsigned (C++)
                     64-bit iOS unsigned long (C++)
FixedInt (Delphi)               int (C++)
FixedUInt (Delphi)              unsigned int (C++)
TextFile (Delphi)               TextFile (C++)
于 2009-09-14T08:39:59.810 回答
7 
function process_message (const pmessage: PChar; const param: Pointer): Double; export; stdcall;
begin
    If (pmessage = nil) Or (param = nil) Then
        Result := 0;
    Else If StrComp(pmessage, 'state') = 0 Then
       Result := process_state(current_state^(param));

    // missing a return statement for cases where pmessage is not 'state' here!
end;

exports process_message;

未经测试，但应该有助于您入门。

于 2009-09-14T08:07:37.670 回答
6

Pointer数据类型与 C 完全等效void*。

于 2009-09-14T08:09:45.850 回答