Skip to main content
Indentar el código de pascal.
Origen Enlace
jachguate
  • 32.1k
  • 8
  • 41
  • 69

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

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

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

Formato de código
Origen Enlace
jachguate
  • 32.1k
  • 8
  • 41
  • 69

tengo una function de delphi que la exporto como dll, aqui dejo mi codigo:

library MdEncDec;



uses
System.SysUtils,
System.Classes,
Bcrypt;

{$R *.res}


{$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

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

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

Origen Enlace
Raidel Fonseca
  • 549
  • 2
  • 13
  • 28

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