Convertendo função C ++ para Delphi: o que fazer com o parâmetro void *?
-
07-07-2019 - |
Pergunta
Eu estou escrevendo um DLL no Delphi usando o exemplo abaixo C ++:
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 );
}
}
Infelizmente, eu sei quase nada sobre C ++ e ponteiros. O que devo usar em vez de char * (PChar?) E void *?
function process_message (const pmessage: PChar; const param: ???): Double; export;
begin
???
end;
exports process_message;
Qualquer ajuda com o corpo da função será muito apreciada também. Eu percebo que não é ciência de foguetes, mas eu não iria aprender o básico de C ++ apenas para converter um par de linhas, se a gentileza de alguém para fazer isso por mim: -)
Solução
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;
Não testado, mas deve ajudar para você começar.
Outras dicas
A documentação online RAD Studio inclui um Delphi para C ++ tipos de mapeamento mesa que pode ajudá-lo a traduzir o código C ++ para 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++)
Pointer
tipo de dados é um equivalente exacto do C void*
.
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow