Текущий архив: 2003.08.07;
Скачать: 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 вся ветка
Текущий архив: 2003.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
