ADOQuery in DLL

← →
Tornado © (2003-07-24 09:43) [0]

Простой вопрос наверно, но все же: в DLL надобно строить график, вот так:

procedure DBChartIzmCreate(??????); var DBChart: TDBChart; LineSer: TLineSeries; begin DBChart := TDBChart.Create(nil); LineSer := TLineSeries.Create(nil); LineSer.ParentChart := DBChart; LineSer.Title := "ААА"; LineSer.DataSource := ADOQuery1; LineSer.XValues.ValueSource := "NumPara"; LineSer.YValues.ValueSource := "RazIz"; LineSer.XLabelsSource := "Slesh"; LineSer.Active := true; LineSer.Free; DBChart.Free; end;

Источник данных - ADOQuery, вопрос: как передать ADOQuery в эту процедуру из программы, в проге ADOQuery в DataModule. Понимаю, ламерский вопрос, что-то клинит, подскажите плиз.

← →
Skier © (2003-07-24 10:04) [1]

С передачей объектов в DLL всё не так просто...
Может быть тебе стоит передавать в DLL параметры ADOQuery (PChar)и создавать ADOQuery в DLL, а не передавать его ?

← →
Tornado © (2003-07-24 12:34) [2]

Skier © (24.07.03 10:04)

так бы не хотелось, ADOQuery используется в программе еще и для других целей, а эта DLL вызывается только когда график строится...хотя может я чего не понял, если можно поподробнее.

← →
Skier © (2003-07-24 12:37) [3]

> а эта DLL вызывается только когда график строится...

И зачем DLL тогда нужна ? Только память лишнюю будет кушать...
"Не надо без надобности умножать число сущностей"

procedure DBChartIzmCreate(rst:OleVariant);
var
ds:TADODataset;
begin
ds.Recordset:=rst;
...
...
end;

вызов

DBChartIzmCreate(ADOQuery1.Recordset);

сорри, создать объект забыл

procedure DBChartIzmCreate(rst:OleVariant);
var
ds:TADODataset;
begin
ds:=TADODataset.Create(nil);
try
ds.Recordset:=rst;
...
...
finally
ds.Free;
end;
end;

вызов

DBChartIzmCreate(ADOQuery1.Recordset);

ADOQuery in DLL Найти похожие ветки