Скачать: CL | DM;

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 тогда нужна ? Только память лишнюю будет кушать...
"Не надо без надобности умножать число сущностей"

---

← →
Polevi ©   (2003-07-24 13:07) [4]

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

вызов

DBChartIzmCreate(ADOQuery1.Recordset);

---

← →
Polevi ©   (2003-07-24 13:09) [5]

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

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

вызов

DBChartIzmCreate(ADOQuery1.Recordset);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c