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

begin begin begin begin 远程调用技术代码追踪之Webservice (一) 最近阅读了 SocketConn的源码和WebService的源码，把追踪的过程写了下来，方便人家学习。 毕竟这需要精力，时间和毅力。感谢煮茶待英雄博志区和三层数据库讨论区兄弟们的支持，特别 是Julian兄弟，不是他，我可能没耐心继续下去。如果有时间，人家可以继续完善。从socket 和Websevice的底层实现细节，我们发现BORLAND的工程师们的构思和实现的过程。我觉得这对 我们的学习应该是非常重要的。学会思考。学会读源码，学会分析。 希望和我交往的朋友可通过QQ或Email联系我。 117 18111另见：《远程调用技术代码追踪(socket)》 《远程调用技术代码追踪(第三方控件)》 webservice内部工作机制比较复杂，有些地方分析错谋在所难免。加上时间关系，比较匆忙。 有错误的地方，请斧正。学习不密闭。有些地方贴了些图片。不好贴上来，所以不是很完整，有 需妥的，可以QQ，或者MAIL联系我。 远程调用技术内幕 有关WebService的相关的知识，我就不说了，我直接分析源码。有问题的地方请参考李维的书。 initialization 仃ypelnfo(IMyFirstWS), urn:MyFirstWSIntf-IMyFirstWS,, utf-8); 看过李维的分布式架构的应该都知道，WEB服务端对类和接口进行了注册，客户端这里也进行了 注册。然后客户端把数据通过HTTP传输到服务器端，服务器端通过拆包，去到注册管理的类中 寻找相应的接口，并创建?个相应的对象，把客户端的数据压进去，调用后，把数据再传回来。 在调用这句的时候，TinvokableClassRegistry类己经创建了，由于inquire_vl也引用/ InvR egistry注册，所以在哪里被引用的时候已经被创建了。 function InvRegistry: TinvokableClassRegistry; if not Assigned(InvRegistryV) then InitIR; Result := InvRegistryV; end; 初次引用会调用InitIR方法。 procedure InitIR; begin InvRegistryV :=; RemT^eRegistryV :=; RemClassRegistryV:= RemTypeRegistry; InitBuiltlns; 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 URIMap[Index!. URI := * urn/ + AppURI + GetTypeData(Info). UnitName else URIMap[Index]. URI := 1 urn:1 + AppURI; end else URIMap[Index]. URI := URI; if Name then URIMap[Index]. Name := Name else URIMap[Index]. Name :=; URIMap[Index]. Name :=; URIMap[Index]. Name :=; URIMap[Index]. Name :=; begin end; URIMap[Index]?ExtName := ExtName: URIMap[Index]?Info := Info; if = tkClass then URIMap[Index]?ClassType := GetTypeData(Info)?ClassType; finally UnLock; end; end; 看研究?下GetEntry函数，这里以后参次用到，发现这个函数是TremotableClassRegistry类 的，说明实际的注册还是在TremotableClassRegistry这个类完成的。 function (Info: PTypelnfo; var Found: Boolean; const Name: WideString): Integer; begin Result := FindEntry(Info, Found, Name); if not Found then SetLength(URIMa