tengo una function de delphi que la exporto como dll, aqui dejo mi codigo:
library MdEncDec;
uses
System.SysUtils,
System.Classes,
Bcrypt;
{$R *.res}
function EncryptWord( value: PChar ): ShortString; stdcall; export;
var
BCRYPT1: TBCRYPT;
begin
BCRYPT1 := TBCRYPT.create( nil );
try
BCRYPT1.AlphaMode := False;
BCRYPT1.AlphaMode := True;
BCRYPT1.Mode := MODE_ENCRYPT;
BCRYPT1.InString := value;
Result := BCRYPT1.OutString;
finally
BCRYPT1.Free;
end;
end;
function DecryptWord( value: PChar ): ShortString; stdcall; export;
var
BCRYPT1: TBCRYPT;
begin
BCRYPT1 := TBCRYPT.create( nil );
try
BCRYPT1.AlphaMode := False;
BCRYPT1.AlphaMode := True;
BCRYPT1.Mode := MODE_DECRYPT;
BCRYPT1.InString := value;
Result := BCRYPT1.OutString;
finally
BCRYPT1.Free;
end;
end;
exports EncryptWord, DecryptWord;
begin
end.
A la hora de consumirla en c# hice lo siguiente:
[DllImport("MdEncDec.dll", CharSet = CharSet.Unicode, CallingConvention
=CallingConvention.StdCall)]
public static extern string
EncryptWord([MarshalAs(UnmanagedType.LPWStr)] string cadena);
Console.WriteLine(EncryptWord("Test"));
Console.ReadLine();
Esto me da problemas no me muestra la cadena encriptada que es la function del delphi,al final no me muestra nada, ya compile la dll 32 y 64 bit en modo debug y release no se que mas hacer, si alguien tiene conocimientos acerca de esto y pudiera ayudarme, se lo agradeceria, llevo una semana en esto.
Gracias
ShortString
es un tipo de dato que solo existe en pascal. No recomiendo su uso en DLL's que van a ser consumidas desde otros entornos, menos .NET. Diría que, de manera simple, utilicesAnsiString
o y aún así vas a tener el problema de quién reserva y quien libera la memoria. Es mejor recibir un puntero a un arreglo de caracteres, como unPChar
,PAnsiChar
oPWideChar
, y que sea quién llama a esta rutina el responsable de reservar y liberar esta memoria.