知识大全如何在Delphi中调用.Net编写的DLL中的函数

Posted 2022-07-14 函数

篇首语：学而不厌，诲人不倦。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何在Delphi中调用.Net编写的DLL中的函数相关的知识，希望对你有一定的参考价值。

如何在Delphi中调用.Net编写的DLL中的函数 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　最近因公司群发邮件程式需要给注册一段时间没有激活的用户发激活邮件邮件中有注册密码需要还原发给用户但由于密码加密是用C# 中的TripleDES完成手头上又没有现成Delphi的实现时间紧急现翻译是来不及了于是经过查资料反复实施终于成功实现在Delphi中调用 C# 封装的DLL中的方法(Function)和过程(Procedure)现把实施步骤写下以供有需要的XDJM分享

　　建立 DotNetFunc cs 封装要使用的Function Procedure 　　生成密钥文件用于给程序集强名称签名

sn k key snk

　　使用强名称签名编译成类库

csc /t:library DotNetFunc cs

　　生成类型库

tlbexp DotNetFunc dll /out:DotNetFunc tlb

　　注册dll

regasm DotNetFunc dll

　　移入gac全局程序集缓存

gacutil i DotNetFunc dll

　　 Delphi中的调用测试

uses Variants OBJ OleCtnrs Activex; procedure TForm Button Click(Sender: TObject);var SharpObject: Variant; TestValue: string;begin try try SharpObject := CreateOleObject( CSharpServer SharpObject ); TestValue := SharpObject DecryptTripleDES(Edit Text); Edit Text :=TestValue; except on e: exception do begin ShowMessage(e Message); end; end; finally SharpObject := Unassigned; end;end;

procedure TForm Button Click(Sender: TObject);var SharpObject: Variant; TestValue: string;begin try try SharpObject := CreateOleObject( CSharpServer SharpObject ); TestValue := SharpObject EncryptTripleDES(Edit Text); Edit Text :=TestValue; except on e: exception do begin ShowMessage(e Message); end; end; finally SharpObject := Unassigned; end;end;

initialization CoInitialize(nil);

finalization CoUninitialize;

cha138/Article/program/Delphi/201311/24858

知识大全 如何在Delphi中调用.Net编写的DLL中的函数

知识大全如何在Delphi中调用.Net编写的DLL中的函数