C ++ to Delphi function conversion: what to do with void * parameter?
I am writing a DLL in Delphi using the below C ++ example:
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 );
}
}
Unfortunately, I know almost nothing about C ++ and pointers. What should be used instead of char * (PChar?) And void *?
function process_message (const pmessage: PChar; const param: ???): Double; export;
begin
???
end;
exports process_message;
Any help with the function body would be much appreciated as well. I realize this is not rocket science, but I wouldn't learn the basics of C ++ to convert a couple of lines if someone is kind enough to do it for me :-)
+2
source to share
3 answers
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;
Unconfirmed, but should get you started.
+7
source to share
The RAD Studio online documentation includes a Delphi to C ++ types table that can help you translate your C ++ code to 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++)
+10
source to share