远程调用技术代码追踪(webservice)[归纳].pdf

最近阅读了 SocketConn 的源码和 WebService 的源码， 把追踪的过程写了下来， 方便大家学

习。毕竟这需要精力， 时间和毅力。 感谢煮茶待英雄博志区和三层数据库讨论区兄弟们的支

持，特别是 julian 兄弟， 不是他， 我可能没耐心继续下去。 如果有时间， 大家可以继续完善。

从 socket 和 Websevice 的底层实现细节，我们发现 BORLAND 的工程师们的构思和实现的

过程。我觉得这对我们的学习应该是非常重要的。学会思考。学会读源码，学会分析。

希望和我交往的朋友可通过 QQ 或 Email 联系我。 Wu_yanan2003@yahoo.com.cn

另见：《远程调用技术代码追踪 (socket) 》

关注我的：《远程调用技术代码追踪 (第三方控件 ) 》

远程调用技术内幕

里也进行了注册。 然后客户端把数据通过 HTTP 传输到服务器端， 服务器端通过拆包， 去到

注册管理的类中寻找相应的接口， 并创建一个相应的对象， 把客户端的数据压进去， 调用后，

把数据再传回来。

在调用这句的时候， TinvokableClassRegistry 类已经创建了，由于 inquire_v1 也引用了

InvRegistry 注册，所以在哪里被引用的时候已经被创建了。

function InvRegistry: TInvokableClassRegistry;

begin

if not Assigned(InvRegistryV) then

InitIR;

Result := InvRegistryV;

RemClassRegistryV:= RemTypeRegistry;

InitBuiltIns; //定们到这一句：

InitXSTypes;

InitMoreBuiltIns;

end;

先看 InvRegistryV := TInvokableClassRegistry.Create; ，这个类是用来注册，相应的接口及类，

并能够根据 soap 封包内容找到相应的接口及方法。

TRemotableClassRegistry = TRemotableTypeRegistry;

所对应的是 TremotableTypeRegistry, 这个类主要是对数据类型进行注册。

大致来了解一下这个类。

TInvokableClassRegistry = class(TInterfacedObject)

这里可以看到，声明了两个动态数组。分别用来放接口注册，及类注册信息。

ClassType: TClass;

Proc: TCreateInstanceProc;

URI: string;

end;

它包含了 webservice 实现类的指针，以建立实现类的 factory 函数指针。

Name: string; { Native name of interface }

ExtName: Widestring; { PortTypeName }

UnitName: string; { Filename of interface }

GUID: TGUID; { GUID of interface }

Info: PTypeInfo; { Typeinfo of interface }

Namespace: Widestring; { XML Namespace of type }

WSDLEncoding: WideString; { Encoding }

Documentation: string; { Description of interface }

SOAPAction: string; { SOAPAction of interface }

ReturnParamNames: string; { Return Parameter names }

UDDIBindingKey: String; { UDDI Binding key }

end;

RemClassRegistry.RegisterXSInfo(TypeInfo(System.Boolean), XMLSchemaNameSpace,

'boolean');

对于处理结构型数据，需要进行 SOAP 封包类型的转换

开发人员在使用这种自定义数据类型前必须对其进行注册，分别是 RegisterXSClass 和 RegisterXSInfo 。前

一个方法是注册从 Tremotable 继承下来的类，后一个不需要是从 TremotablXS 继承下来的类。

这三个函数类似，都是注册一些基本类型等。

看看到底怎么处理的 ,(这里注册一个 BOOLEAN 类型 )

'boolean');

procedure TRemotableTypeRegistry.RegisterXSInfo(Info: PTypeInfo; const URI: WideString = '';

if Found then

Exit;

if AppNameSpacePrefix <> '' then

AppURI := AppNameSpacePrefix + '-';

if URI = '' then

if Info.Kind = tkDynArray then

begin

end

else

end

else

else

begin

URIMap[Index].Name := Info.Name;

end;

URIMap[Index].ExtName := ExtName;

UnLock;

看研究一下 GetEntry 函数， 这里以后多次用到， 发现这个函数是 TremotableClassRegistry 类

Result := FindEntry(Info, Found, Name);

if not Found then

SetLength(URIMap, Result + 1);

end;

这个函数功能是搜索类型是否已注册，否则，动态数组加 1，分配空间进行注册。

看看 FindEntry ( 这里传进来的 info 是 TypeInfo(System.Boolean), name: Boolean)

function TRemotableClassRegistry.FindEntry(Info: PTypeInfo; var Found: Boolean; const Name:

WideString): Integer;

begin

Result := 0;

begin

end;

end;

这个函数的功能是遍历整个动态数组 TremRegEntry ，利用 TypeInfo 信息和名字进行搜索，

查看是否已进行注册。

看看 URIMAP 的定义：

URIMAP: array of TRemRegEntry;

URI: WideString; //

IsScalar: Boolean; //

MultiRefOpt: TObjMultiOptions; //

SerializationOpt: TSerializationOptions;

PropNameMap: array of ExtNameMapItem; { Renamed properties }

继续 RegisterXSInfo 函数：

if AppNameSpacePrefix <> '' then

AppURI := AppNameSpacePrefix + '-';

if URI = '' then

begin

if Info.Kind = tkDynArray then

end

else if Info.Kind = tkEnumeration then

begin

end

else

URIMap[Index].URI := URI;

if Name <> '' then

URIMap[Index].Name := Info.Name;