DLL에서 TClientDataSet에 액세스

Question

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; 

procedure loadfile;stdcall; 
procedure set_file(name_of_file:string);stdcall; 

var 
    StudentModule: TStudentModule; 
    filename:string; 

implementation 

procedure set_file(name_of_file: string);stdcall; 
    begin 
    filename:=name_of_file; 
    end; 

procedure loadfile;stdcall; 
    begin 
    StudentModule.StudentSet.LoadFromFile(filename); 
    end; 
end. 

이것은 DLL에 포함 된 단위이며 export 절에 loadfile 함수를 내 보냈습니다. 프로그램에서이 기능을 사용할 때 주소 읽기 오류가 발생합니다. 로드와 같은 TClientDataSet에서 작업을 수행하고 Dll에 저장하고 나중에 프로그램에서 사용해야합니다. 먼저 set_file 메서드를 호출하여 파일 이름을 초기화합니다. 이 문제에 관해 도움을주십시오. 감사합니다.

Answer 1

데이터 모듈을 먼저 만들어야합니다. 아직 존재하지 않는 개체를 사용하려고합니다. 그래서 액세스 위반이 표시됩니다. 또한 파일 이름에 값이 없습니다. 당신이해야 할 일은 다음과 같습니다 :

procedure loadfile; stdcall; 
var 
    studentDataModule: TStudentModule; 
    fileToLoad: string; 
begin 
    studentDataModule := TStudentModule.Create(nil); 
    try 
    // Set filename to something 
    fileToLoad := 'Myfile.dat'; 
    // Load the file 
    StudentModule.StudentSet.LoadFromFile(fileToLoad); 
    // Do something else 
    ... 
    finally 
    studentDataModule.Free; 
    end; 
end; 

두 개의 전역 변수를 사용하지 않았습니다. 이들을 초기화 할 수있는 방법은 없습니다.