Skip to main content
2 de 3
Formato de código
jachguate
  • 32.1k
  • 8
  • 41
  • 69

como consumir dll delphi en c#

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

Raidel Fonseca
  • 549
  • 2
  • 13
  • 28