小弟第一次使用Delphi 6呼叫現有的Web Services, 利用 Web Services Importer之後,Delphi 6 自動產生以下2個Unit(簡述): //--------------------------------------------------------------- Unit Services; interface uses InvokeRegistry, Types, XSBuiltIns; type GetDelData = class; { GetDelData } GetDelData = class(TRemotable) private Ftdate: WideString; published property tdate: WideString read Ftdate write Ftdate; end; { GetDelDataResponse } GetDelDataResponse = class(TRemotable) private FGetDelDataResult: GetDelDataResult; published property GetDelDataResult: GetDelDataResult read FGetDelDataResult write FGetDelDataResult; end; { GetDelDataResult } GetDelDataResult = class(TRemotable) private Fschema: WideString; published property schema: WideString read Fschema write Fschema; end; implementation initialization RemClassRegistry.RegisterXSInfo(TypeInfo(GetDelData),'http://tempuri.org/MyLibrary/Service1','GetDelData',''); RemClassRegistry.RegisterXSInfo(TypeInfo(GetDelDataResponse),'http://tempuri.org/MyLibrary/Service1','GetDelDataResponse',''); RemClassRegistry.RegisterXSClass(GetDelData,'http://tempuri.org/MyLibrary/Service1','GetDelData',''); RemClassRegistry.RegisterXSClass(GetDelDataResponse,'http://tempuri.org/MyLibrary/Service1','GetDelDataResponse',''); RemClassRegistry.RegisterXSClass(GetDelDataResult,'http://tempuri.org/MyLibrary/Service1','GetDelDataResult',''); end. //---------------------------------------------------------- Unit ServiceSoap; interface uses Types, XSBuiltIns, Services; type Service1Soap = interface(IInvokable) ['{91EECC72-9BCD-491B-A5A7-10814271F817}'] procedure GetDelData(var parameters: GetDelData); stdcall; end; implementation uses InvokeRegistry; initialization InvRegistry.RegisterInterface(TypeInfo(Service1Soap), '', 'utf-8'); end. //------------------------------------------------------------ 利用HTTPRIO component 來呼叫, 但卻在傳遞參數時發生了問題.... "procedure GetDelData(var parameters: GetDelData)" 如此宣告的procedure該如何傳值,又該如何取得回傳值? 希望知道或有經驗的大大能提供寶貴的意見,謝謝!!

補充一下它的WSDL內容(簡述): 〈s:element name="GetDelData"〉 〈s:complexType〉 〈s:sequence〉 〈s:element minOccurs="0" maxOccurs="1" name="tdate" 〉〈type="s:string" /〉 〈/s:sequence〉 〈/s:complexType〉 〈/s:element〉 .... 〈s:element name="GetDelDataResponse"〉 〈s:complexType〉 〈s:sequence〉 〈s:element minOccurs="0" maxOccurs="1" name="GetDelDataResult"〉 〈s:complexType〉 〈s:sequence〉 〈s:element ref="s:schema" / 〉 〈s:any /〉 〈/s:sequence〉 〈/s:complexType〉 〈/s:element〉 〈/s:sequence〉 〈/s:complexType〉 〈/s:element〉 ..... 〈wsdl:message name="GetDelDataSoapIn"〉 〈wsdl:part name="parameters" element="tns:GetDelData" /〉 〈/wsdl:message〉 〈wsdl:message name="GetDelDataSoapOut"〉 〈wsdl:part name="parameters" element="tns:GetDelDataResponse" /〉 〈/wsdl:message〉 〈wsdl:portType name="Service1Soap"〉 〈wsdl:operation name="GetDelData"〉 〈wsdl:input message="tns:GetDelDataSoapIn" /〉 〈wsdl:output message="tns:GetDelDataSoapOut" /〉 〈/wsdl:operation〉 〈/wsdl:portType〉 〈wsdl:binding name="Service1Soap" type="tns:Service1Soap"〉 〈soap:binding transport="http://....../soap/http"〉 〈style="document" /〉 〈wsdl:operation name="GetDelData"〉 〈soap:operation soapAction="http://....../GetDelData"〉 〈style="document" /〉 〈wsdl:input〉 〈soap:body use="literal" /〉 〈/wsdl:input〉 〈wsdl:output〉 〈soap:body use="literal" /〉 〈/wsdl:output〉 〈/wsdl:operation〉 〈/wsdl:binding〉 〈wsdl:service name="Service1"〉 〈documentation xmlns="http://......" /〉 〈wsdl:port name="Service1Soap" binding="tns:Service1Soap"〉 〈soap:address location="http://......" /〉 〈/wsdl:port〉 〈/wsdl:service〉

看來是Delphi 6最初的Bug... 執行Delphi 6 Patch 2 之後就不會有這個問題了 (雖然還是有別的問題,但文不對題,還是將此問題終結) 謝謝!!

用D7比較好一點。

------
---

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.