Delphi XE2 HTTPRIO Không thể truy xuất thiết bị đầu cuối URL cho dịch vụ/Cảng

Question

Tôi đang chuyển đổi một chương trình Delphi 2007 đến Delphi XE2 và gặp vấn đề với các thông báo lỗi sau:

Không thể truy xuất thiết bị đầu cuối URL cho dịch vụ/cổng "/" từ WSDL 'http: // .....'

Các dịch vụ tôi đang kết nối với được viết bằng Delphi 2007.

vào năm 2007, biên dịch và chạy không có vấn đề. Trên XE2 với cùng một mã nó rơi với lỗi.

Tôi đã thử nhập lại giao diện bằng cách sử dụng trình nhập WSDL mới có cài đặt mặc định nhưng không có niềm vui.

Tôi cũng đã thử đặt tên cổng và dịch vụ và lỗi vẫn tồn tại. Không chắc chắn thông tin nào được sử dụng nhưng theo như tôi có thể nói nó đang kết nối.

Đây là hoạt động của phương pháp mà tôi đang sử dụng

<operation name="CheckRegistration"> 
    <soap:operation soapAction="urn:ScubaUpdateWSIntf-IScubaUpdateWS#CheckRegistration" style="rpc"/> 
    <input> 
    <soap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"  namespace="urn:ScubaUpdateWSIntf-IScubaUpdateWS"/> 
    </input> 
    <output> 
    <soap:body use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:ScubaUpdateWSIntf-IScubaUpdateWS"/> 
    </output> 
</operation> 

Đây là thông điệp:

<message name="CheckRegistration10Request"> 
    <part name="centreId" type="xs:int"/> 
    <part name="centreName" type="xs:string"/> 
    <part name="checkActiveOnly" type="xs:boolean"/> 
</message> 
<message name="CheckRegistration10Response"> 
    <part name="return" type="xs:boolean"/> 
</message> 

Ngoài nhập khẩu các WSDL, ném vào một HTTPRIO và gọi phương thức với

(HTTPRIO1 as IScubaUpdateWS).CheckRegistration(strtoint(tcentre),tcentreName,true); 

Tôi không nghĩ mình đang làm bất kỳ điều gì khác và khi tôi nói cùng một mã hoạt động trên Delph i 2007.

Answer 1

Giải quyết. Vâng loại! Có vẻ như Delphi XE2 đang tìm kiếm 2 dịch vụ mà khi Delphi 2007 đang tìm kiếm một. Chương trình tôi đang sử dụng đang đọc vị trí WSDL từ sổ đăng ký và cài đặt nó. Trên Delphi 2007 nó là tốt bởi vì nó được dùng một và chỉ dịch vụ và làm cho rằng lựa chọn cổng/dịch vụ. Trên Delphi XE2 nó được đặt lại vị trí WSDL có kết quả trong cổng và dịch vụ bị xóa. Nhờ @JohnEasley đã chỉ cho tôi đúng hướng. Để giải quyết, tôi hiện đang phải sử dụng mã sau đây sau khi thay đổi vị trí WSDL. Không chắc nó sẽ làm việc cho mỗi người như tôi giả định các mục nhập đầu tiên là một trong đó là cần thiết

servicenames:=Tdomstrings.Create; 
portnames:=Tdomstrings.Create; 
HTTPRIO1.WSDLItems.GetServices(servicenames); 
if servicenames.count>0 then 
begin 
HTTPRIO1.Service:=servicenames[0]; 
HTTPRIO1.WSDLItems.GetPortsForService(servicenames[0],portnames); 
if portnames.count>0 then 
    HTTPRIO1.Port:=portnames[0]; 
end; 
servicenames.clear; 
servicenames.Free; 
portnames.clear; 
portnames.Free; 

Thanks guys