这种想法是否可能实现？</FONT&g

喜洋洋 · 2001-04-10

这种想法是否可能实现？(100分) 我已经用MIDAS做好了一个三层结构的系统，中间层组件做成ActiveX DLL，并放在MTS中，客户端是通过
ClientDataSet连接中间层的TDataSetProvider。现在想利用现有的这些中间层组件提供WEB
功能，也就是想利用ASP调用组件中的DataSetProvider，来查询数据，处理数据。是否可能？
下面是我在ASP中的尝试：
<%
dim MTSObj
dim rs
Set MTSObj = Server.CreateObject("CustAppPrj.CustInfoServer")
rs = MTSObj.AS_GetRecords(
%>

iie · 2001-04-10

NO WAY

Kylix㊣ · 2001-04-10

听。

萧月禾 · 2001-04-10

TO iie :为什么不能？
TO 喜洋洋 :“下面是我在ASP中的尝试：”,在哪里？

addie · 2001-04-10

他的尝试在这里
<pre>
<`%
dim MTSObj
dim rs
Set MTSObj = Server.CreateObject("CustAppPrj.CustInfoServer")
rs = MTSObj.AS_GetRecords(
%`>
</pre>

addie · 2001-04-10

应该可以的。但你要在中间件中提供ADO的RecordSet接口。

喜洋洋 · 2001-04-10

谢谢addie，你说的要在中间件中提供ADO的RecordSet接口，能否更明确一点？
目前我的理解是要对这个组件进行扩展，还要写更多代码？

addie · 2001-04-11

rs = MTSObj.AS_GetRecords()返回的是一个OleVariant，不是RecordSet接口。
ASP只能通过Com接口来接收数据。比较易于实现的是在中间件中返回一个RecordSet给
ASP。

boyman · 2001-04-12

这种做法能行，在web和mts之间用xml来实现数据记录集的传递,
用“ASP调用组件中的DataSetProvider”来取数据，无法解析midas的数据包格式

喜洋洋 · 2001-04-12

>>易于实现的是在中间件中返回一个RecordSet给ASP。
我想这是解决这个问题方向了，addie能否给出更加具体的方法？就是如何导出这个RecordSet
的接口，能否给示例代码。
拜托！！！

boyman · 2001-04-13

如果相导出ado的recordset可以做到，TDataSetProvider返回的是olevariant,
midas的数据包格式 who can tell me

喜洋洋 · 2001-04-13

等待。。。

喜洋洋 · 2001-04-16

TO addie:
我看到了你原来的帖子： DispQ.asp?LID=287963，已经解决了导出RecordSet的问题，但按这种方法导出
RecordSet没法删除记录。
所以我想再导出ADOConnection或ADOCommand接口，请教addie，这又该如何导出。

addie · 2001-04-17

再检查一下，导出的RecordSet肯定能做增删改的。
导出其他接口时，在Attributes/Type下拉框中选择相应的属性，如Command *等。

喜洋洋 · 2001-04-17

TO addie：
按你说的方法导出的是一个只读属性的RecordSet，在ASP中可以调用RecordSet对象Delete方法
但并没有提交到数据库中。
如果你增删改都没问题，能否介绍一下你的用法。

wys205 · 2001-04-17

listen

addie · 2001-04-18

RecordSet是只读属性，这是相对于你的组件而言的，即你不能把一个RecordSet赋值给
你的组件。实际上，这个RecordSet内部的数据都是可读写的。我就是按贴子上说的办法
做，没发现不能删除记录。所以我无法知道你不能删除的原因，不好意思。

喜洋洋 · 2001-05-13

提前

Alongsun · 2001-11-15

我在用BCB5做多层结构系统时，我在Server端加入了一个取得服务器IP地址的方法：GetServerIP它的参数是vIP：Variant *,IN方式，并在服务端实现了这个方法，
加入的代码如下：
*vIP="192.168.0.01";最后我注册成功。
可是在我开发客户端程序时，我用TSocketConnection
当取得它的服务时我是这样做的：
Variant* vip;
SocketConnection1->AppServer.GetServerIP(vip);
Edit1->Tex=vip;
可是我在运行程序时出错，没有编译通过。
它说getserverIP不是variant的成员
getserverIP is not a memober of variant
请问？
我该如何去调用这个方法呢？
请各位大侠多多指教？
小生的QQ：65466700(24小时在线恭候)
MAIL： alongsun@sina.com

drank · 2003-03-12

<FONT color=red size=4><STRONG>这种想法是否可能实现？</STRONG></FONT&g

喜洋洋

Unregistered / Unconfirmed

iie

Unregistered / Unconfirmed

Kylix㊣

Unregistered / Unconfirmed

萧月禾

Unregistered / Unconfirmed

addie

Unregistered / Unconfirmed

addie

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

addie

Unregistered / Unconfirmed

boyman

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

boyman

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

addie

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

wys205

Unregistered / Unconfirmed

addie

Unregistered / Unconfirmed

喜洋洋

Unregistered / Unconfirmed

Alongsun

Unregistered / Unconfirmed

drank

Unregistered / Unconfirmed

Similar threads