远程调用技术代码追踪之Webservice.doc

远程调用技术代码追踪之 Webservice(一)

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

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

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

和 Websevice 的底层实现细节，我们发现 BORLAND 的工程师们的构思和实现的过程。我觉得这对

我们的学习应该是非常重要的。学会思考。学会读源码，学会分析。

希望和我交往的朋友可通过 QQ 或 Email 联系我。 117

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

《远程调用技术代码追踪(第三方控件) 》

(TypeInfo(IMyFirstWS), 'urn:MyFirstWSIntf-IMyFirstWS', 'utf-8');

看过李维的分布式架构的应该都知道，WEB 服务端对类和接口进行了注册，客户端这里也进行了

注册。然后客户端把数据通过 HTTP 传输到服务器端，服务器端通过拆包，去到注册管理的类中

寻找相应的接口，并创建一个相应的对象，把客户端的数据压进去，调用后，把数据再传回来。

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

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

function InvRegistry: TInvokableClassRegistry;

begin

if not Assigned(InvRegistryV) then

InitIR;

Result := InvRegistryV;

RemClassRegistryV:= RemTypeRegistry;

InitBuiltIns; ynUnitName;

URIMap[Index].URI := 'urn:' + AppURI + UnitName;

end

else if = tkEnumeration then

begin

UnitName := GetEnumUnitName(Info);

URIMap[Index].URI := 'urn:' + AppURI + UnitName;

end

else if = tkClass then

if Name <> '' then

URIMap[Index].Name := Name

else

begin

URIMap[Index].Name := ;

UnLock;

end;

end;

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

的，说明实际的注册还是在 TremotableClassRegistry 这个类完成的。

function (Info: PTypeInfo; var Found: Boolean; const Name: WideString): Integer;

begin

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

function (Info: PTypeInfo; var Found: Boolean; const Name: WideString): Integer;

begin

Result := 0;

Found := False;

while Result < Length(URIMap) do

Exit;

end;

end;

Inc(Result);

end;

end;

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

是否已进行注册。

看看 URIMAP 的定义：

else if = tkEnumeration then

begin

UnitName := GetEnumUnitName(Info);

URIMap[Index].URI := 'urn:' + AppURI + UnitName;

end

URIMap[Index].URI := URI;

if Name <> '' then

URIMap[Index].Name := Name

else

begin

URIMap[Index].Name := ;

end;

这句比较关键：

URIMap[Index].Info := Info;

FRegClasses: array of InvRegClassEntry;

FRegIntfs: array of InvRegIntfEntry; 这是注册自己定义接口及类的动态数组。