大富翁论坛基于SOAP 的Web Service-dfwSOAP发布了！ (0分)

WSDL 的 URL 是：http://www.delphibbs.com/cgi-bin/dfwsoap.exe/wsdl/IdfwService
有兴趣的人可以连上去做 SOAP Client　了　
不久我会发布源程序的。

我等。。。。

看不懂啊，什么意思？

关于什么是 SOAP 的讨论请看这里：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=595773

等着看源代码啦！！！

又是类似在线更新的东西么？

得，又得狂学soap，然后准备给RE升级

一个问题想请教一下：
用xml传递数据库记录奇慢无比，原因是加入的xml标记太多。我想在传递之前先压缩。
请问，在soapwebdiapatch的beforedispatch中可以吗？客户端httpriop(我想不起来是不是这样拼的啦)有ongetxml之类的事件可用吗？
不吝赐教。

to qdlzq_cn:
你可看一下这篇文章http://home.pchome.com.tw/guide/code6421/BizSnap.html

To yysun:
dfwSOAP能用了吗，我用getl这个函数怎么取不回数据，而是
“大富翁 Web Servie - chkl”这几个字。
使用listroom就提示login failed for user 'GISLAB/IUSR_NT4'

wagxu兄，那篇文章我早看过，只是最基本的。即使用mime执行效能也是很低的。关键在于我不知道在何处进行字符串的压缩/解压。
另，关于bizsnap，还有问题。你可找找我的贴子。

用access那多慢啊，yysun，你如果搞定期发行chm离线包光盘来收费的话，我倒比较感兴趣

wagxu：已经修复了权限问题，dfwSOAP 6个方法应该全部能用了。

To yysun:
function chkl(const DateFrom: WideString;
const DateTo: WideString): WideString;
中DateFrom和DateTo的时间格式是"08/20/2001 11:00:00"这样吗

孙老师，好久不见了！
最近在玩什么阿？这个是用Delphi6的SOAP控件写的么？
我有个想法，把SOAP和P2P结合起来。为什么不用Corba 或者DCOM呢？因为SOAP协议相对简单而且公开。
我想找把SOAP请求转换成COM调用的源码，不过没找到...

tqz, 又见到您，太好了。
我也在玩 P2P 啊 用 jxta 作为基础平台。
msdn 上有一大堆 SOAP -> COM 的东西，不过我没有仔细看。
Delphi 6 写 SOAP 非常容易。您是指在服务器端做 SOAP -> COM 吗？

孙老师，接口里的listroom有点儿问题，就是生成xml时<AA></AA>里的标记应为
<A ID="..">，而程序中传回的为<Q ID="..">，估计是您代码拷贝时疏忽了。
还是一事请教，就是我总是有些困惑，soap能做数据传输比较频繁的商用应用吗？
总感觉它的速度有些慢；还有就是它在象大富翁这种有web页面的应用中有用吗？
想来想去它在数据更新方面还有些用处，可大富翁原先就能通过asp、xml实现这种功能，
希望得到您的指教。

Think, 谢谢您的提醒！是我的疏忽。现在已经改好。
我还没有看到正式的商用应用，有人说可以做：
- 新闻
- 天气预报
- 汇率、股市
- 快递邮件查询
这些系统的特点是数据少、但是实时更新快。
关键现在 MS 和 Sun 都在推崇这个东西，好象生怕落后似的。
我看到 D6 做 SOAP 如此简单方便，所以做了例子给大家。
我们论坛一直是个星技术的试验场
Web Service 与以前的 asp, xml 方案不同的地方是：其接口是标准 WSDL，
用不着我发布接口说明，您自己 import 一下就看到 interface 了。

孙老师反馈好快，怪不得刚才调用总不成功：）
还有就是 chkl中DateFrom和DateTo的时间格式是"'8/22/2001 11:00:00"这样吗？
这个总是不行。
调用格式：
IdfwSvc.chkl('8/22/2001 11:00:00','8/22/2001 11:02:00')；
返回错误提示：
Line 1: Incorrect syntax near '11'

我觉得yysun这个Web Service做的不好。主要要调用他的方法如listroom后得到的东西
还要自己再去解析,做客户端比较麻烦。要是能返回一个动态数组就好了。这样客户端做
起来就很好做。因为动态数组的结构和表结构一样。我昨天就在做ＤＦＷ的Web Service，
不过还没有做好，只做了GetRooms这个方法，过两天就可以全部做好。做好后我会放到网
上来和大家一起探讨。
如：
unit RoomsType;
interface
uses InvokeRegistry,Types,XMLSchema;
type
TXSRoom=class;
TXSRoomArray = array of TXSRoom;
TXSRoom = class(TRemotable)
private
FID: LongInt;
FGroup: string;
FMaster: string;
FMaster2: string;
FRoom: string;
published
property ID:LongInt read FID write FID;
property Room : string read FRoom write FRoom;
property Master : string read FMaster write FMaster;
property Master2 : string read FMaster2 write FMaster2;
property Group : string read FGroup write FGroup;
end;

implementation
initialization
RemClassRegistry.RegisterXSClass(TXSRoom, '', 'TXSRoom','');
RemTypeRegistry.RegisterXSInfo(TypeInfo(TXSRoomArray),'','TXSRoomArray');
finalization
RemClassRegistry.UnRegisterXSClass(TXSRoom);
RemTypeRegistry.UnRegisterXSInfo(TypeInfo(TXSRoomArray));
end.

unit DFWIntf;

interface
uses
InvokeRegistry,RoomsType;
type
IDFW = interface(IInvokable)
['{B83DED21-878B-4183-84EF-BF194E2C4FCD}']
function GetRooms : TXSRoomArray ;
stdcall;
end;

implementation
initialization
InvRegistry.RegisterInterface(TypeInfo(IDFW));
end.

unit DFWImpl;

interface
uses
InvokeRegistry,DFWIntf,RoomsType;
type
TDFW = class(TInvokableClass,IDFW)
private
{ Private declarations }
public
function GetRooms : TXSRoomArray ;
stdcall;
end;

implementation
{ TDFW }
function TDFW.GetRooms: TXSRoomArray;
begin

end;

initialization
InvRegistry.RegisterInvokableClass(TDFW);
end.