如何在COM中返回数据集？

2005-01-12 04:50:18 242 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

封装数据库操作---数据实体操作封装（一） com.spkg.com插件下载地址：在还未接触Java WEB开发学习之前，总是很好奇网站是如何做的，网站对用户来说操作很方便，只需要输入网址就可以使用网站提供的服务，而不用很麻烦的安装客户端。后来做了很长时间的JAVA WEB项目开发，说起WEB开发，不得不想起MVC模型，老师经常提及的Controller（控制层），Service（服务层），Dao（持久层）。项目做了几个之后，不阅读详情

我在COM中建了一个ADO查询，COM方法中如何返回一个记录集？

我定义了函数返回类型为OleVariant，
把数据集赋给Result。
即 result:=adoquery.recordset.

这样做是否可以！

客户端如何调用这个数据集？

...全文

MNIST机器学习入门之MNIST数据集详细代码与注解就好比编程入门有Hello World，机器学习入门有MNIST 在此之前我们需要下载好MNIST数据集放入你的程序目录中地址是http://yann.lecun.com/exdb/mnist/ 就这四个然后就是代码了代码如下： import tensorflow as tf from tensorflow.examples.tutorials.mnist im... 阅读详情

echowoods

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

aiirii 2005-01-13

打赏
举报

另外的:
Create OleVariant from a Dataset

procedure CreateVarArrayFromDataset(var varResultSet: OleVariant;
ADataset : TDataset);
var
m : Integer;
nRecords, nColumns, nCurRec : Integer;
begin
nRecords := -1;
nColumns := -1;

try
{ Create the array... }
{ Set size to 0..m-1 where m equals the number of columns. }
nColumns := Max(0, ADataset.FieldCount-1);

{ Each item is an array of size (0..n) where n equals the }
{ number of records.}
{ Entry 0 is where we store the column name. }

nRecords := Max(0, ADataset.RecordCount);

varResultSet := VarArrayCreate([0, nColumns, 0, nRecords],
varVariant);

for m := 0 to nColumns do
varResultSet[m, 0] := ADataset.Fields[m].DisplayLabel;

{ Populate from result set. }
ADataset.First;
nCurRec := 1; { Current record number. }
while not ADataset.Eof do begin
{ Put in field values. }
for m := 0 to nColumns do
varResultSet[m, nCurRec] := ADataset.Fields[m].Value;

ADataset.Next;
Inc(nCurRec);
end;
except
on E: Exception do
raise Exception.Create('CreateVarArrayFromDataset() - ' +
IntToStr(nRecords) +
' rec,'+IntToStr(nColumns)
+'cols,'+E.Message);
end;
end;

aiirii 2005-01-13

打赏
举报

Delphi提供了RemoteDataModule向导来帮你产生COM程序的结构.
由于Delphi的程序具有传送DataSet的特殊机制,所以Delphi也实现了一个接口叫做IProvider(即TDataSetProvider),来帮助应用程序服务器上的COM程序发送DataSet数据.
(3)前台程序与NT服务器上的COM程序是通过DCOM的机制互相沟通
前台的应用程序是通过MIDAS.DLL和应用程序服务器相互沟通,前台的MIDAS.DLL会把接收到的应用程序服务器发过来的数据包再还原成DataSet,丢给前台程序中的TClientDataSet组件.
注:前台程序必须提供相应的TClientData组件来和应用程序服务器上的每个IProvider(即TDataSetProvider)对应.用户修改前台数据时,修改的只是Cache(缓存)在前台的Dataset,最后

要通过TClientData.ApplyUpdate方法来把前台变动的数据写回到后台数据库中.

sunkevin 2005-01-13

打赏
举报

在COM中最好用ClientDataSet控件，函数的result := ClientDataSet1.data;
由其它的ClientDataSet控件接收此函数的返回值
ClientDataSet2.data := result;

wozhuchuanwei 2005-01-13

打赏
举报

function TYxCy_SupplySystemMain.SelectTable(
const TableName: WideString): OleVariant;
begin
try
with AQ_SelectTable do
begin
Close;
SQL.Text:='SELECT * FROM '+TableName;
Open;
Result:=DSP_SelectTable.Data;
end;
AQ_SelectTable.Close;
SetComplete;
except
SetAbort;
end;
end;

这样就可以返回表格了！
前台用CDS接受就可以了！

echowoods 2005-01-13

打赏
举报

halfdream 2005-01-13

打赏
举报

aiirii的话不错，不过有个地方要修正一下。。
IProvider是DELPHI4时候MIDAS所使用来传数据集包的，保留它一定程度是为了兼容性，
从DELPHI5开始，改用了IAppserver,数据集不再使用单独的接口，增加了效率（可见李维《D5分布式多层基础篇）

另外，远程调用参数可以直接传ADO的recordset接口，这种传递方式是当没法使用MIDAS时候可以用的方式。

echowoods 2005-01-13

打赏
举报

问题己解决,谢谢各位,结贴

wozhuchuanwei 2005-01-13

打赏
举报

中间层：
ADOConnection->ADOQuery->DataSetProvider
过程：
function TYxCy_SupplySystemMain.SelectTable(
const TableName: WideString): OleVariant;
begin
try
with AQ_SelectTable do
begin
Close;
SQL.Text:='SELECT * FROM '+TableName;
Open;
Result:=DSP_SelectTable.Data;
end;
AQ_SelectTable.Close;
SetComplete;
except
SetAbort;
end;
end;

客户端：
DCOMConnection->ClientDataSet->DataSource

vision2000 2005-01-12

打赏
举报

dddddd

如何在COM中返回数据集？

相关推荐