How to retrieve wsdl

I have created a webapplication on the webserver which strips the soap 
message and sends it by tcp to an applicationserver behind a firewall. Here 
the soap message is handled by using a pascalinvoker and the answer is send 
back. This works as designed.

Now I like to be able to retrieve a wsdl. I need a htmlpublish for that. 
Question is: how do I use this in the application server. I have the full 
url sent and ready in a buffer. How do I dispatch this?

albert 

More specified: How do I get a requeststring into Request manually. The 
following doesn't work..

       Request := TCGIRequest.Create;
       Request.WriteString(StringReplace(Client.RcvdLine, #27, #10, 
[rfReplaceAll]));
       Response := TCGIResponse.Create(Request);
       WSDLHTMLPublish1.ServiceInfo(nil, Request, Response, handled);
       HTMLPage := Response.Content;
       Client.SendDocument(httpSendDoc);
       Display(0, Response.Content);


albert

"albert" <a.drent@remove.rug.nl> schreef in bericht 
news:47c53f97$1@newsgroups.borland.com...
>I have created a webapplication on the webserver which strips the soap 
>message and sends it by tcp to an applicationserver behind a firewall. Here

>the soap message is handled by using a pascalinvoker and the answer is send

>back. This works as designed.
>
> Now I like to be able to retrieve a wsdl. I need a htmlpublish for that. 
> Question is: how do I use this in the application server. I have the full 
> url sent and ready in a buffer. How do I dispatch this?
>
> albert
> 

Creating TAppServerRequest did the job.

case closed.

albert

"albert" <a.drent@remove.rug.nl> schreef in bericht 
news:47c54a7f$1@newsgroups.borland.com...
> More specified: How do I get a requeststring into Request manually. The 
> following doesn't work..
>
>       Request := TCGIRequest.Create;
>       Request.WriteString(StringReplace(Client.RcvdLine, #27, #10, 
> [rfReplaceAll]));
>       Response := TCGIResponse.Create(Request);
>       WSDLHTMLPublish1.ServiceInfo(nil, Request, Response, handled);
>       HTMLPage := Response.Content;
>       Client.SendDocument(httpSendDoc);
>       Display(0, Response.Content);
>
>
> albert
>
> "albert" <a.drent@remove.rug.nl> schreef in bericht 
> news:47c53f97$1@newsgroups.borland.com...
>>I have created a webapplication on the webserver which strips the soap 
>>message and sends it by tcp to an applicationserver behind a firewall. 
>>Here the soap message is handled by using a pascalinvoker and the answer

>>is send back. This works as designed.
>>
>> Now I like to be able to retrieve a wsdl. I need a htmlpublish for
that. 
>> Question is: how do I use this in the application server. I have the
full 
>> url sent and ready in a buffer. How do I dispatch this?
>>
>> albert
>>
>
> 

Don't know if this will help but if you want to simulate an HTTP request, I
would suggest the HandleRequest method. It's involved from DispatchRequest
after the latter retrieves information from the Request object. So, rather
than faking a Request object, you can give HandleRequest exactly what it's
looking for.

We use HandleRequest whenever we want to trigger the WSDL generation logic
outside the context of a Web Server.

Cheers,

Bruneau.

It's an interesting option, I'll look int this. The choice of creating our 
own AppServerRequest was decided because you have a CGI, ISAPI and NSAPI 
variant obtaining the webserver data in different ways. Obtaining the input 
is the only real thing which differs in these modules, so that's why we 
solved it this way.

albert

"Jean-Marie Babet" <bbabet@borland.com> schreef in bericht 
news:47e04581$1@newsgroups.borland.com...
> Don't know if this will help but if you want to simulate an HTTP request, 
> I
> would suggest the HandleRequest method. It's involved from DispatchRequest
> after the latter retrieves information from the Request object. So, rather
> than faking a Request object, you can give HandleRequest exactly what it's
> looking for.
>
> We use HandleRequest whenever we want to trigger the WSDL generation logic
> outside the context of a Web Server.
>
> Cheers,
>
> Bruneau.
>
>