Comments for Delphi 6 Screen Shots: WebServices

Delphi 6 Screen Shots: WebServices

2003-09-09T08:42:25-07:00

Hi,My problem is at run time, I receive 'Internal server error 500" if I access WebServices not written with Delphi (exp .NET)Where is the bug !!!Please help meJacek

re: Invalid Handle Error Solved

2002-11-26T22:16:37-08:00

Pues Claro que si.Of course, you are using a webservices that is only the invocation

Continuing Attempt to Write a Web Service Client

2001-11-05T20:53:35-08:00

This is beginning to look like a stream-of-consciousness post, but here goes.I fixed problem number two, and, realizing that the web service deals in WideStrings, threw in some typecasts to do the conversion. So I came up with the following:procedure TForm1.Button1Click(Sender: TObject);var TheAddress: ZipU2.ShortZipCode;begin TheAddress := ZipU2.ShortZipCode.Create; try with TheAddress do begin accessCode := WideString('9999'); address := WideString(Edit1.Text); city := WideString(Edit2.Text); state := WideString(Edit3.Text); end; with (HTTPRio1 as ZipCodeResolverSoap).ShortZipCode(TheAddress) do Edit4.Text := AnsiString(ShortZipCodeResult); finally TheAddress.Free; end;end;This runs OK, except that the result I get in Edit4 is a pair of question marks. So my SOAP client still isn't ready for prime time. I have the feeling that the answer might lie in the mysterious maroon-text "WSDLView" properties deep within my THTTPRio component - the Help system suggests I might need one of these if the server isn't written in Delphi. TWSDLView descends from TComponent, but I don't see anything that looks like a TWSDLView component on the palette anywhere.Can anyone tell me if this is the answer I seek, and if so, where I should be seeking it?Jim

re: Delphi 6 Screen Shots: WebServices

2001-11-05T19:10:43-08:00

At the risk of talking to myself - which I have been doing a certain amount of, since I started playing with Web Services - I have a partial answer to my own question.It turns out that there are two entities named "ShortZipCode" - one is a class, and the other is a function defined in another unit, that uses the class of the same name as a parameter. Anyway, I came up with this for my Button's OnClick method:procedure TForm1.Button1Click(Sender: TObject);var TheAddress: ZipU2.ShortZipCode; // The class! TheResponse: ZipU2.ShortZipCodeResponse; begin TheAddress := ZipU2.ShortZipCode.Create; TheResponse := ZipU2.ShortZipCodeResponse.Create; try with TheAddress do begin accessCode := '9999'; // '9999' or '0' to be used for testing address := Edit1.Text; city := Edit2.Text; state := Edit3.Text; end; {And here is the function!} TheResponse := (HTTPRio1 as ZipCodeResolverSoap).ShortZipCode(TheAddress); Edit4.Text := Copy(TheResponse.ShortZipCodeResult, 1, 10); finally TheResponse.Free; TheAddress.Free; end;end;This compiles OK, but when I run it I get an EAccessViolation on the function call. Can anybody tell me what I've bumped into this time?Jim

Delphi 6 Screen Shots: WebServices

2001-11-05T17:17:47-08:00

This example has a comprehensible function call to do the work. How about, for example, the zip code information service at http://webservices.eraserver.net/zipcoderesolver/zipcoderesolver.asmx?WSDLWhen I try to use one of the services advertised here, I find functioncalls that look like: function ShortZipCode(const parameters: ShortZipCode): ShortZipCodeResponse; stdcall;I've never seen a function like this before. It seems to use itself as its own parameters, in some weird tail-chasing fashion. I've spent a while (re)cursing at it, but to no avail. How can you invoke something like this?Jim

Delphi 6 Screen Shots: WebServices

2001-09-08T12:51:24-07:00

For us mere mortals who need explanations that make sense, I have found the following. On the HTTPRIO1 properties, go to the WSDLL location and put in: http://www.xmethods.net/sd/FedExTrackerService.wsdlThen go to the Port property and there will be, in the drop down, "FedExTrackerPort" select that and then and in the drop down for the Service property, there will be FedExTrackerService, so select that.Then when you run it, put in package number 496054180486or you will get an internal server error.Hope this helps..Frank Cowan

re: Invalid Handle Error Solved

2001-08-20T07:31:53-07:00

SSB,Well...since they are "Web" Services, it would be very appropriate to have access to the Web to use them. When I use my new code, and am not connected to the web, it either gives me an exception, or attempts to connect to the web. DCOM is just that way. :)Darrell

re: Invalid Handle Error Solved

2001-08-07T15:42:27-07:00

One more question on this. Do we need an active internet connection to get the results using these web services? I think we need an active internet connection to experiment these services. Right? Please clarify me.Thanks.Magesh.

Invalid Handle Error Solved

2001-07-28T16:12:12-07:00

I too had the Invalid Handle Error when I tried to run the code. I kept experimenting and found a solution:The HTTPIO component has several properties that must be set before you run the application. I downloaded the WSDL file to my local hard drive, then I set the following properties inside the HTTPIO component (Be sure that you have dropped an HTTPIO component on your form from the WebServices tab of Delphi's component bar):Port = FedExTrackerPortService = FedExTrackerServiceWSDL Location = Voila...It worked!!!! Questions? Contact me: darrell@nxs.net

re: Delphi 6 Screen Shots: WebServices

2001-07-19T12:30:40-07:00

I too have tried to get it to work and am hitting a wall... when I run the app to get the information I'm getting an invalid handle error.