Динамически загружаемая dll и MSConnection

← →
Boatswain (2010-03-23 08:44) [0]

Доброго времени суток.
Есть программа на Delphi6 для работы с MSSQL7 с помощью SDAC.
Необходимо подключить к ней форму с Query и DBGrid, но чтобы форма была в dll и эта dll использовала то же соединение.
С написанием dll особо не сталкивался.

Делаю так:
Создаю dll проект

uses
SysUtils,
Classes,
Forms, DB, DBAccess, MSAccess,
Myform in "Myform.pas" {Form1};

{$R *.res}

procedure RunMyForm(HouseId:Integer; MyConnection: TMSConnection); cdecl;
begin
Form1 := TForm1.Create(HouseId, MyConnection, Application);
Form1.ShowModal;
Form1.Free;
end;

exports RunMyForm;

begin
end;

и форму.На ней DBGrid1, MSQuery1, MSDataSource1, ну и кнопка.

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
MSQuery1: TMSQuery;
MSDataSource1: TMSDataSource;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
HouseId:integer;
MyConnection: TMSConnection;
Constructor Create(AHouseID:integer; AMyConnection: TMSConnection; AOwner : TComponent);reintroduce;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Constructor TForm1.Create(AHouseID:integer; AMyConnection: TMSConnection; AOwner : TComponent);
begin
inherited Create(AOwner);
MyConnection:= AMyConnection;
HouseId:=AHouseID;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MSQuery1.Connection:=MyConnection;
MSQuery1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MSQuery1.Active then MSQuery1.Close;
end;

end.

Для вызова пробывал 2 варианта
1.Статический.
type
TForm1 = class(TForm)
Button1: TButton;
MSConnection1: TMSConnection;
MSQuery1: TMSQuery;
MSDataSource1: TMSDataSource;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure RunMyForm(HouseID:integer; MyConnection:TMSConnection); cdecl; external "Mydll.DLL";

procedure TForm1.Button1Click(Sender: TObject);
begin
RunMyForm(1,MSConnection1);
end;

end.
2.Динамический.
type
TForm1 = class(TForm)
Button1: TButton;
MSConnection1: TMSConnection;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
TDLLProc = procedure(AHouseId:Integer; AMyConnection:TMSConnection);
var
MyHandle : THandle;
MyProc : TDLLProc;
HouseId:Integer;
begin
HouseId:=1;
MyHandle:=LoadLibrary("D:\Work\MyDLL\MyDLL.dll");
if MyHandle>=32 then { if <=32 - error ! }
begin
@MyProc:=GetProcAddress(MyHandle,"RunMyForm");
if @MyProc<>nil
then
begin
MyProc(1, Form1.MSConnection1);
end
else
ShowMessage("Функция не найдена!");
try
FreeLibrary(MyHandle);
except
end;
end
else
ShowMessage("Библиотека не найдена!");
end;

Так вот при нажатии на Button1 в первом случае все работает, а во втором

Access violation at address 0116F24D in module "MyDLL.dll". Read of address 8BD88B97.

А хотелось бы динамически загружать библиотеку.
Как это сделать и можно ли так и где я не прав?

Заранее благодарен за ответ.

← →
Сергей М. © (2010-03-23 09:12) [1]

Во 2-м случае беспардонно нарушено соглашение о вызове.
Да и вообще лучше выкинуть эту блажь из головы - выносить дельфийскую форму в DLL.

← →
Boatswain (2010-03-23 12:25) [2]

Тогда так:
1. А как правильно оформить соглашение о вызове?
2. Про блажь ничего не могу сказать. Задача такая поставлена и не я принимаю решения.

← →
Сергей М. © (2010-03-23 16:44) [3]

> А как правильно оформить соглашение о вызове?

А как ты его оформлял при статике ?
Точно так же и при динамике - суть-то от этого не меняется ..
Или ты "намекаешь" на то что не понимаешь, о каких таких "соглашениях" идет речь ?
Ну тогда тебе в "Сад", а не в "Базы" ...

> Про блажь ничего не могу сказать. Задача такая поставлена и не я принимаю решения

Это печально. Очень. Особенно с учетом того что за исполнение задачи взялся человек, привыкший бездумно копипастить шматки кода, невесть откуда выдранные из Тырнета.

Али возражения будут, мол, все было совсем не так ?)

← →
Boatswain (2010-03-23 20:04) [4]

Спасибо за помощь.

Динамически загружаемая dll и MSConnection Найти похожие ветки