Delphi - 调用SuperDll 持续更新

调用SuperDll

接上一篇Delphi创建Superdll，将生成的SuperDll.dll文件复制到本工程路径下，创建如下代码进行Superdll各个接口的测试。

创建uSuperDll.pas单元，用来对接DLL，具体看如下代码；

创建Delphi WinFrm窗体，引用uSuperDll.pas单元，窗体界面如下：

WinFrm uMain.pas单元代码：

 unit uMain;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, RzButton, StdCtrls, RzEdit, cxStyles, cxCustomData, cxGraphics,
   cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
   cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
   cxGridTableView, cxGridDBTableView, cxGrid, RzTabs;

 type
   TFrmMain = class(TForm)
     mmDsp: TRzMemo;
     btnSuperDll_Init: TRzBitBtn;
     btnSuperDll_Ftp_Put: TRzBitBtn;
     btnSuperDll_Ftp_Get: TRzBitBtn;
     btnSuperDll_EMail_Send: TRzBitBtn;
     pcMain: TRzPageControl;
     tsOne: TRzTabSheet;
     cxGridOneDBTableView1: TcxGridDBTableView;
     cxGridOneLevel1: TcxGridLevel;
     cxGridOne: TcxGrid;
     btnSaveToExcel: TRzBitBtn;
     cxGridOneDBTableView1Column1: TcxGridDBColumn;
     cxGridOneDBTableView1Column2: TcxGridDBColumn;
     cxGridOneDBTableView1Column3: TcxGridDBColumn;
     cxGridOneDBTableView1Column4: TcxGridDBColumn;
     cxGridOneDBTableView1Column5: TcxGridDBColumn;
     cxGridOneDBTableView1Column6: TcxGridDBColumn;
     cxGridOneDBTableView1Column7: TcxGridDBColumn;
     cxGridOneDBTableView1Column8: TcxGridDBColumn;
     cxGridOneDBTableView1Column9: TcxGridDBColumn;
     cxGridOneDBTableView1Column10: TcxGridDBColumn;
     procedure btnSuperDll_InitClick(Sender: TObject);
     procedure MsgDsp(sStr: string);
     procedure btnSuperDll_Ftp_PutClick(Sender: TObject);
     procedure btnSuperDll_Ftp_GetClick(Sender: TObject);
     procedure btnSuperDll_EMail_SendClick(Sender: TObject);
     procedure btnSaveToExcelClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   FrmMain: TFrmMain;

 implementation
 uses
   uSuperDll;
 {$R *.dfm}

 procedure TFrmMain.MsgDsp(sStr: string);
 begin
   mmDsp.Lines.Add('[' + sStr + ']-[' + FormatDateTime('YYYY-MM-DD hh:mm:ss zzz', Now()) + ']');
 end;

 procedure TFrmMain.btnSuperDll_InitClick(Sender: TObject);
 var
   bResult: Boolean;
 begin
   MsgDsp('系统初始化，请稍等！');
   bResult := False;
   try
     bResult := SuperDll_Init;
     if bResult then
     begin
       btnSuperDll_Ftp_Put.Enabled := True;
       btnSuperDll_Ftp_Get.Enabled := True;
       btnSuperDll_EMail_Send.Enabled := True;
       btnSaveToExcel.Enabled := True;
       MsgDsp('初始化成功！');
     end
     else
     begin
       btnSuperDll_Ftp_Put.Enabled := False;
       btnSuperDll_Ftp_Get.Enabled := False;
       btnSuperDll_EMail_Send.Enabled := False;
       btnSaveToExcel.Enabled := False;
       MsgDsp('初始化失败！');
     end;
   except
     on E: Exception do
     begin
       MsgDsp('读取动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
     end;
   end;
 end;

 procedure TFrmMain.btnSuperDll_Ftp_PutClick(Sender: TObject);
 var
   sType, sUsername, sPassword, sHost, sDir, sSouFilePath: string;
   bResult: Boolean;
 begin
   bResult := False;
   MsgDsp('参数初始化，请稍等！');
   sType := 'Put';
   sUsername := 'xxx';
   sPassword := 'xxx';
   sHost := 'xxx';
   sDir := '/xxx/';
   sSouFilePath := 'C:\Tmp\Test.txt';
   MsgDsp('参数初始化完成！');
   try
     MsgDsp('文件上传中，请稍等！');
     bResult := SuperDll_Ftp_PutOrGet(sType, sUsername, sPassword, sHost, sDir, sSouFilePath, sSouFilePath);
     if bResult then
     begin
       MsgDsp('上传成功！');
     end
     else
     begin
       MsgDsp('上传失败！');
     end;
   except
     on E: Exception do
     begin
       MsgDsp('上传失败，读取动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
     end;
   end;
 end;

 procedure TFrmMain.btnSuperDll_Ftp_GetClick(Sender: TObject);
 var
   sType, sUsername, sPassword, sHost, sDir, sDesFilePath: string;
   bResult: Boolean;
 begin
   bResult := False;
   MsgDsp('参数初始化，请稍等！');
   sType := 'Get';
   sUsername := 'xxx';
   sPassword := 'xxx';
   sHost := 'xxx';
   sDir := '/xxx/';
   sDesFilePath := 'C:\Tmp\1.csv';
   MsgDsp('参数初始化完成！');
   try
     MsgDsp('文件下载中，请稍等！');
     bResult := SuperDll_Ftp_PutOrGet(sType, sUsername, sPassword, sHost, sDir, sDesFilePath, sDesFilePath);
     if bResult then
     begin
       MsgDsp('下载成功！');
     end
     else
     begin
       MsgDsp('下载失败！');
     end;
   except
     on E: Exception do
     begin
       MsgDsp('下载失败，读取动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
     end;
   end;
 end;

 procedure TFrmMain.btnSuperDll_EMail_SendClick(Sender: TObject);
 var
   vSubject, vFrom, vRecipients, vCCList, vBccList, vBody, vAttachment, vUsername, vPassword, vHost: string;
   bResult: Boolean;
 begin
   bResult := False;
   MsgDsp('参数初始化，请稍等！');
   vBody := '-------------------------------------SYSTEM TEST----------------------------------' + ## +
     '----------------------------------------------------------------------------------' + ## +
     'It is Function - [SuperDll_EMail_Send] Test, please do not reply deractly, thanks.';
   vSubject := 'SuperDll_EMail_Send Test';
   vFrom := 'xxx';
   vRecipients := 'xxx';
   vCCList := 'xxx';
   vBccList := 'xxx';
   vAttachment := 'C:\Tmp\1.csv';
   vUsername := 'xxx';
   vPassword := 'xxx';
   vHost := 'xxx';
   MsgDsp('参数初始化完成！');
   try
     MsgDsp('邮件发送中，请稍等！');
     bResult := SuperDll_EMail_Send(vSubject, vFrom, vRecipients, vCCList, vBccList, vBody, vAttachment, vUsername, vPassword, vHost);
     if bResult then
     begin
       MsgDsp('邮件发送成功！');
     end
     else
     begin
       MsgDsp('邮件发送失败！');
     end;
   except
     on E: Exception do
     begin
       MsgDsp('邮件发送失败，调用动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
     end;
   end;
 end;

 procedure TFrmMain.btnSaveToExcelClick(Sender: TObject);
 var
   bResult: Boolean;
   sFullPathName: string;
   od: TOpenDialog;
 begin
   try
     od := TOpenDialog.Create(nil);
     MsgDsp('正在尝试导出Excel，请稍后！');
     od.Title := '选中您要保存文件的位置';
     od.Filter := '*.xls';
     od.Execute;
     sFullPathName := od.FileName;
     if Pos('.xls', sFullPathName) <=  then
     begin
       sFullPathName := sFullPathName + '.xls';
     end;
     bResult := SaveCxGridToExcel(cxGridOne, sFullPathName);
     if bResult then
     begin
       MsgDsp('导出Excel成功！');
     end
     else
     begin
       MsgDsp('导出Excel失败，请确认！');
     end;
     od.Free;
   except
     on E: Exception do
     begin
       od.Free;
       MsgDsp('导出Excel失败，调用动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
       Exit;
     end;
   end;

   try
     od := TOpenDialog.Create(nil);
     MsgDsp('正在尝试导出CSV，请稍后！');
     od.Title := '选中您要保存文件的位置';
     od.Filter := '*.csv';
     od.Execute;
     sFullPathName := od.FileName;
     if Pos('.xls', sFullPathName) <=  then
     begin
       sFullPathName := sFullPathName + '.xls';
     end;
     bResult := SaveCxGridToCSV(cxGridOne, sFullPathName);
     if bResult then
     begin
       MsgDsp('导出CSV成功！');
     end
     else
     begin
       MsgDsp('导出CSV失败，请确认！');
     end;
     od.Free;
   except
     on E: Exception do
     begin
       od.Free;
       MsgDsp('导出CSV失败，调用动态链接库失败，错误信息[' + E.Message + ']，请知悉！');
       Exit;
     end;
   end;

 end;

 end.

uSuperDll.pas代码如下：

 unit uSuperDll;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, IniFiles, StrUtils, cxGrid;

 function SuperDll_Init: Boolean; stdcall; //1: 初始化函数
 function SuperDll_Ftp_PutOrGet(vType: string; var vUserName: string; var vPassWord: string; var vHost: string; var vDir: string; var vDesFilePath: string; vSouFilePath: string): Boolean; stdcall; //2: FTP文件上传下载
 function SuperDll_EMail_Send(vSubject: string; var vFrom: string; var vRecipients: string; var vCCList: string; var vBccList: string; var vBody: string; var vAttachment: string; var vUsername: string; var vPassword: string; var vHost: string): Boolean; stdcall; //3: 邮件发送
 function SaveCxGridToExcel(vCxGrid: TcxGrid; var vFullPathName: string): Boolean; stdcall;
 function SaveCxGridToCSV(vCxGrid: TcxGrid; var vFullPathName: string): Boolean; stdcall;

 implementation
 function SuperDll_Init; external 'SuperDll.dll';
 function SuperDll_Ftp_PutOrGet; external 'SuperDll.dll';
 function SuperDll_EMail_Send; external 'SuperDll.dll';
 function SaveCxGridToExcel; external 'SuperDll.dll';
 function SaveCxGridToCSV; external 'SuperDll.dll';
 end.

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。