Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как подружить COM, TDataSet и ASP? [D6, MSSQL]

ddenis © (2003-08-29 00:31:00)

Приветствую!

Ситуация такова. Пишу на Delphi COM-объект, и вот приспичило написать метод, который бы возвращал набор данных, но как это сделать? Т.е. порядок такой - в asp-файле создается этот объект, вызывается метод, в этом методе происходит обращение к базе данных и я хочу, чтобы этот метод вернул набор данных, как это делает следующая конструкция:

set con = Server.CreateObject("ADODB.Connection")
con.Open...
set rs = con.Execute("exec my_stored_proc")

В результате с rs можно работать:

while not rs.EOF
...
rs.MoveNext
wend

Вот все это заменить бы на что-то вроде

set my_obj = Server.CreateObject("my_dll.my_com_obj")
set rs = my_obj.GetDataSet
while not rs.EOF
...
rs.MoveNext
wend

Как это сделать на уровне COM-объекта, т.е. в Delphi? Какой тип должен быть у возвращаемого значения, какие нужны преобразования на Delphi и в ASP? Надеюсь, понятно объяснил... Всем спасибо...

ddenis (2003-08-29 09:10:00) [1]

Rad, спасибо большое, попробую.

Rad (2003-08-29 01:05:00) [2]

> ddenis (29.08.03 00:31)
Немного сумбурно получилось :(
Вкратце: из Delphi передаем результат запроса в виде объекта ADODB.Recordset, помещая его в OleVariant.
В ASP, собственно, код вполне может выглядеть точно так, как ты написал в исходном вопросе.

Rad (2003-08-29 01:01:00) [3]

А в СОМ-объекте же у тебя ADO для соединения с ASP используется? Ну вот и передавай _Recordset (у меня лично ситуация чуть другая, но код QueryResultAsADORecordSet:= CreateOleObject("ADODB.Recordset") as _Recordset;вполне работает.
Тип OleVariant замечательным образом этот самый рекордсет передаст куда угодно (причем, рекордсет м.б. и отсоединенным от БД).
Если пользуешься компонентами ADO, то используй свойство Recordset.
Всё :)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »