各位前輩有個問題想請教:
本人的程式是由主程式呼叫dll檔.dll檔含一個dataModule .
dll元件及部份程式如下:

一,元件:
dataModule : TSQLConnection TSQLDataSet
dll: TDataSetProvider TClientDataSet TDBGrid TDataSource;

二,主程式呼叫方式如下:
try
LibHandle:=LoadLibrary(pchar( EmployeeManage.dll));
if LibHandle = 0 then begin
exit;
end;
@ExcuteFunc:=GetProcAddress(LibHandle,pchar(ShowEmployeeManageForm));
ExcuteFunc;
FreeLibrary(LibHandle);
except on e : exception do
end;
三.dll的部份程式:
unit UniEmployeeManage;
interface
uses
(省略)
procedure ShowEmployeeManageForm;export;
exports ShowEmployeeManageForm;

type
.
.
implementation

{$R *.dfm}

procedure ShowEmployeeManageForm;
begin
try
frmEmployeeManage:= TfrmEmployeeManage.Create(Application);
frmEmployeeManage.ShowModal;
except
end;
end;

procedure TfrmEmployeeManage.FormCreate(Sender: TObject);
begin
DataModule1 := TDataModule1.Create(Application);
..
..
..
end;

procedure TfrmEmployeeManage.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DataModule1.Free;
end;

問題是：在dll檔出現後,若有更新任何資料,儲存且關閉dll後,就會出現錯誤"應用程式發生例外:不明的軟體例外錯誤";
若沒有任何資料更新並儲存就不會有問題.

請各位幫忙解決,謝謝!!

編輯記錄

你好:

針對 DLL 中之全域變數 "Application"...應該是 呼叫此 DLL 的主程式...

所以...建議不要用Application 當 Owner( 因為不知"主程式"是否會盡到 Owner 的職責 )...

沒有 Owner 當然自己要處理乾淨.

試試看:

procedure ShowEmployeeManageForm;
begin
try
frmEmployeeManage:= TfrmEmployeeManage.Create(nil);
frmEmployeeManage.ShowModal;
FreeAndNil(frmEmployeeManage);
except
if frmEmployeeManage<>nil then FreeAndNil(frmEmployeeManage);
end;
end;

procedure TfrmEmployeeManage.FormCreate(Sender: TObject);
begin
DataModule1 := TDataModule1.Create(nil);
..
..
..
end;

procedure TfrmEmployeeManage.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DataModule1.SQLConnection1.Connected := False;
FreeAndNil(DataModule1);
end;

編輯記錄

已解決,謝謝!!

請問是如何解決的~~ 我也遇到相似的問題~~

時間太久,有點忘了.大約記得是和Owner()內放置的object有關.注意Mickey版主的說明應該就沒問題了.
祝你好運!!