访问Delphi应用程序中DLL中加载的TClientDataset的内容

Question

我有DLL，它具有在TClientDataSet上执行的功能，如要加载的set文件和加载和保存文件。

unit dll_dmunit;

interface

uses
  System.SysUtils, System.Classes, Data.DB, Datasnap.DBClient, Vcl.Dialogs,Vcl.DBGrids;

type
  TStudentModule = class(TDataModule)
    StudentSet: TClientDataSet;
    StudentSource: TDataSource;
    StudentSetNAME: TStringField;
    StudentSetID: TIntegerField;
    StudentSetAGE: TIntegerField;
    StudentSetSLNo: TAutoIncField;
    dlgOpen: TOpenDialog;
    dlgSave: TSaveDialog;
    private
    { Private declarations }
  public
  end;

  function loadfile:tdbgrid;stdcall;
  procedure setfile(fname:string);stdcall;
  procedure savefile;stdcall;

var
  StudentModule: TStudentModule;
  filename:string;
  grid:TDBgrid;

const
  path:string='C:\Users\GlobalLogic\Documents\RAD Studio\Projects\Student\test.cds';

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

  procedure setfile(f_name: string);stdcall;
  begin
    filename:=f_name;
  end;

  function loadfile:tdbgrid;stdcall;
  var
    _xmldata:string;
  begin
    StudentModule := TStudentModule.Create(nil);
    grid:=TDBGrid.Create(nil);
    result:=grid;
  try
    filename:='C:\Users\GlobalLogic\Documents\RAD Studio\Projects\Student\test.cds';
    StudentModule.StudentSet.LoadFromFile(filename);
    grid.DataSource:=StudentModule.StudentSource;
    _xmldata :=StudentModule.StudentSet.XMLData;
    result:=grid;
  finally
    StudentModule.Free;
  end;
    showmessage('End of the function');
  end;

  procedure  savefile;stdcall;
  begin
    StudentModule.StudentSet.SaveToFile(filename);
  end;
end.

我能够执行loadfile方法，但现在我需要将TClientDataSet的内容导出到Delphi应用程序。 为此，我试图获取TDbgrid中的内容，然后将此对象返回到应用程序层，但我无法这样做。 然后我尝试读取XML格式，但无法理解如何传递和解码XML格式。 我需要将加载的数据集的内容移动到我想要显示数据的应用程序。 请帮我这样做。 谢谢

Answer 1

下面是一个简单的实现，它应该做你想要的，而不必从你的dll导出对象，这往往有点尴尬。 相反，只需导出包含数据的XML字符串即可。

重要的一点是导出函数的签名（在本例中为function ExportXML:pwideChar; ）和dll的export部分。 确保将XML数据导出为pwidechar 。

var Xmldata:widestring;
...
 function loadfile...
...
 Xmldata :=StudentModule.StudentSet.XMLData;

 function ExportXML:pwideChar;stdcall;
 begin
    result:= pwideChar( Xmldata);
 end;

exports
  ExportXML name 'ExportXML';

在您的应用程序中，只需将DLL调用ExportXML的结果加载到TClientDataSet实例中，然后将其插入控件中。

有关使用 dll的exports部分的更多方法，请参阅在库中使用导出子句 ，这似乎是您所缺少的。

stdcall ，如果你从Delphi转到Delphi，你不需要stdcall指令。 看到：

如果您希望您的库可用于以其他语言编写的应用程序 ，则最安全的方法是在导出函数的声明中指定stdcall。 其他语言可能不支持Delphi的默认寄存器调用约定。