由于朋友他必须要用delphi调用.net 下的一个过程,.但是不会,找到我,我也觉得以前没有弄过,所以我 就到处找资料,找到后但都不是很全,摸索了几个小时,终于调通了,把过程给大家分享一下
这个是com的主体文件
using
System;
using System.Runtime.InteropServices;
using System.IO;
using System.Text;
using System.Security.Cryptography;
// 3desj加密
namespace _des
... {
[Guid("8B090A3D-9A44-4be6-9971-C7DFF9E111BB")]
//这个Guid 用工具---genguid 注册 生成一个系统没有用的值
public interface DBCOM_Interface
...{
[DispId(1)]
string DES3Encrypt(string strString, string strKey);
[DispId(2)]
string DES3Decrypt(string strString, string strKey);
[DispId(3)]
void Encrypt(ref byte[] Data, Int32 DataLen, byte[] Key);
}
// Events interface Database_COMObjectEvents
[Guid("356D756C-0E42-49d6-A646-AACF7B5B04A9"),
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface
using System.Runtime.InteropServices;
using System.IO;
using System.Text;
using System.Security.Cryptography;
// 3desj加密
namespace _des
... {
[Guid("8B090A3D-9A44-4be6-9971-C7DFF9E111BB")]
//这个Guid 用工具---genguid 注册 生成一个系统没有用的值
public interface DBCOM_Interface
...{
[DispId(1)]
string DES3Encrypt(string strString, string strKey);
[DispId(2)]
string DES3Decrypt(string strString, string strKey);
[DispId(3)]
void Encrypt(ref byte[] Data, Int32 DataLen, byte[] Key);
}
// Events interface Database_COMObjectEvents
[Guid("356D756C-0E42-49d6-A646-AACF7B5B04A9"),
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface