[fpc-pascal] TFPHTTPClient Post works with jetty, fails with tomcat

[Mattias Gaertner]

On Mon, 19 Dec 2011 09:27:16 +0100 (CET)
michael.vancanneyt at wisa.be wrote:

> 
> 
> On Mon, 19 Dec 2011, Mattias Gaertner wrote:
> 
> > Hi,
> >
> > For some reason TFPHTTPClient.Post hangs when accessing a "solr"
> > server over "tomcat". It works with "solr" over "jetty".
> > "curl" works fine with both, so I guess the tomcat server works
> > normally.
> >
> > Here is the code:
> >
> >    client:=TFPHTTPClient.Create(nil);
> >    client.RequestHeaders.Add('Content-Type: text/xml');
> >    client.RequestBody:=ms; // a TMemoStream with some xml to post
> >    client.Post(URL);
> >
> > It hangs here:
> >
> > procedure TFPCustomHTTPClient.ReadResponse
> > ...
> >  else if L<0 then
> >    // No content-length, so we read till no more data available.
> >    Repeat
> >      R:=Transfer(ReadBufLen);
> >    until (R=0);
> >
> > Is there a remedy?
> 
> Can you check what happens with strace?
> 
> It means that the server didn't send a 'content-length' header, which is
> strange in itself.

Yes, it does not send the Content-Length.
The comment is right.
If I skip the repeat loop, it works, but I don't get the response.
The response is a small xml snippet.

Mattias