delphi com - returning ADO recordsets

[MASLK]

hi!

can anybody tell me how to return a ADO recordset object from a COM made with delphi

any help would be appreciated.

thanks

MAS

 

[mikeEd]

On the COM server end, you should have a method that takes a return parameter of type

VARIANT*

, with a

retval

modifier, so you have something like:

function TCOMADOObject.getDataSet(out returnRecordSet: OleVariant): HResult;
begin
	...
	returnRecordSet := ADODataSet1.RecordSet;
end;

On the client end, you should do something like this:

var
	recSet: OleVariant;
begin
	COMObject.getDataSet(recSet);
	ADODataSet1.RecordSet := IUnknown(recSet) as _RecordSet;

 

[MASLK]

thanx a million mike appreciate the help !