用Delphi开发动态库DLL

公司的ERP系统一直被邮件所烦。

以前在ERP里面发送邮件,采用的是一个在网上找的DLL文件,没有源码。

这个DLL文件采用的是SMTP方式,可以实现简单的邮件发送,更高级的功能就没有,比如副本,附件,以HTML方式发送等。

最近有一些时间,抽空就把这个问题解决了一下。

首先用Wireshark监控了一下这个DLL文件发送时的数据包,发现应该是用Delphi的Indy组件具体实现的。

Indy组件刚好会用,就用Delphi+Indy开发了一个自己的DLL邮件发送功能,解决了公司一直困扰的问题。

需要说明的是Delphi开发DLL供PowerBuilder调用过程中需要注意的一些问题:
1. Delphi要使用ActiveX Library方式,这样编译是生成的才是一个DLL文件。
2. 最好用一个单独的unit来存放具体的实现代码,这样的目的是方便可以建立另外一个测试用的application。例如,sendmail这个组件的所有实现代码都在sendimpl.pas里面,另外我又建立一个测试用的testform,这个测试程序直接包含sendimpl.pas就好了,很方便。
3. Delphi需要被外部调用的最好都是函数function,不要有过程procedure,我测试PowerBuilder调用过程总有问题。
4. Delphi每个需要被外部调用的函数都声明为stdcall调用。
5. Delphi需要被外部调用的函数里面如果有字符参数或者返回值,都用PChar类型,不要用String。

下面是一些参考代码片段:
1. Delphi里面的函数定义

function incvalue(const x: Integer): Integer; stdcall;

function UpperString(Msg: PChar): PChar; stdcall;

function SendMessageFile(sFile: PChar): Integer; stdcall;

 

2. Delphi里面声明需要被外部调用的函数

exports incvalue, UpperString, SendMessageFile;

 

3. PowerBuilder里面的外部函数声明

FUNCTION long incvalue(long fdf) Library "M:\projects\sendmail\sendmail.dll" 

FUNCTION int SendMessageFile( string sFile) Library "M:\projects\sendmail\sendmail.dll" 

FUNCTION string UpperString( string sFile) Library "M:\projects\sendmail\sendmail.dll" 

 

http://files.cnblogs.com/eastson/sendmail.rar

你可能感兴趣的:(Delphi)