Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do I make a DLL in Delphi to use in C#?

Delphi Across Platforms

How do I make a DLL in Delphi to use in C#?

by  djjd47130  Posted    (Edited  )
This is what I've learned today making a DLL in Delphi 7 to use in an ASP.NET 4.0 Website in C#. I'm brand new to C# and am basically teaching myself, all my previous knowledge has been in just Delphi and SQL.

This DLL is specifically one single function called to validate an encrypted string using one of my pre-built encryption objects in Delphi. I'm building a website which utilizes a SQL database from a larger Delphi package of mine, which I have specific encryption techniques I needed to use in the website.

Some of the code is specific to my project, but you can clear the function and change it accordingly.

Delphi 7: JDEncr.dll

Create a new DLL by going to File > New > Other... > New Tab > DLL Wizard

Code:
library JDEncr;

uses
  SysUtils,
  Classes,
  Windows,
  StrUtils,
  Encryption in '..\JDCommon\Encryption.pas';
  //Pre-made encryption unit

{$R *.res}

//Note: use PChar and not String, and Bool, not Boolean
//stdcall goes at the end of each declaration

function CompareStrings(PlainText, EncryptedText: PChar;
  EncType: Integer; CaseSensitive: Bool): Bool; stdcall;
var
  S: String;
  Enc: TEncType;
begin
  Enc:= TEncType.Create(EncType, 1);
  try
    Result := False;
    S:= DecryptString(EncryptedText, Enc);
    if CaseSensitive then begin
      if S = PlainText then
        Result:= True;
    end else begin
      if UpperCase(S) = UpperCase(PlainText) then
        Result:= True;
    end;
  finally
    Enc.Free;
  end;
end;

//exports section goes at end of unit before the begin/end.
//List everything you want to export, just like in the uses
exports
   CompareStrings;

begin

end.

Save this DLL in the 'bin' folder of the website's project.

C#: Class JDEncr.cs

In Visual Studio 2010, right-click the project's root in the Solution Explorer > Add > New Item... > C Sharp > Web > Class

Reminder: C# is case-sensitive

Code:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Runtime.InteropServices;
//use InteropServices to use DllImport

namespace JDWeb
{
    public class JDEncr
    {
        //Uses Ansi CharSet
        //Uses StdCall CallingConvention (like in Delphi)
        //uses String instead of PChar
        //Parameters recognize types only, and names can differ from original function in DLL
        [DllImport("JDEncr.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        public static extern bool CompareStrings(String PlainText, String EncryptedText, int EncType, bool CaseSensitive);
    }
}

C#: Utilization of JDEncr

Code:
  bool P = JDEncr.CompareStrings(EnteredPassword, RegisteredPassword, EncryptionType, true);

Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top